しょうゆ醸造中
世の中適当
スポンサーサイト
上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。
性格診断
やってみた。
http://www32.ocn.ne.jp/~emina/

ISTP型:なんでも一度は試してみる
http://www32.ocn.ne.jp/~emina/typebox/istp.html

らしい。
あっているような、あっていないような。
スポンサーサイト
本当にごめんなさい
この人からバトンが。

晒し


Q1.あなたのデスクトップを見られて、一言どうぞ。

殺風景でごめんなさい。

Q2.これはあなたの個人のPC?

そうです。

Q3.この壁紙は何?どこで手に入れた?

見ての通り、Windows標準の背景色のみ!

Q4.壁紙は頻繁に変える?

全く変えないです。

Q5.デスクトップのアイコンの数はいくつ?

20前後らしい。

Q6.ファイルやショートカットがゴチャゴチャしているデスクトップ、許せる?

ありえなーい。

Q7.何かこだわりはある?

背景色は黒! 他の色はまぶしすぎて、作業していると目が疲れます。
あと、タスクバーは上。

Q8.今回、このバトンが回ってきてから、こっそりとデスクトップを整理した?

お客様の名前が出ないように整理を。

Q9.最後に『この人のデスクトップを覗きたい』という5人へバトン!

ここで終わりらしい。
VS.NET用マクロ
Sub AddRegion()
Dim CloseUndoContext As Boolean = False

If DTE.UndoContext.IsOpen = False Then
CloseUndoContext = True
DTE.UndoContext.Open("DevHawkAddRegionMacro", False)
End If

Try
Dim name As String = InputBox("表示するテキストを入力してください。")

If (name.Trim().Length = 0) Then Exit Sub

Dim sel As TextSelection = DTE.ActiveDocument.Selection

Dim lTop = sel.TopPoint.Line
Dim lBot = IIf(sel.BottomPoint.AtStartOfLine, sel.BottomPoint.Line - 1, sel.BottomPoint.Line)

sel.MoveToLineAndOffset(lBot, 1)
sel.EndOfLine()
sel.NewLine()

If DTE.ActiveDocument.Language = "CSharp" Then
sel.Text = "#endregion"
ElseIf DTE.ActiveDocument.Language = "Basic" Then
sel.Text = "#End Region"
Else
Throw New System.Exception("Invalid Language: " + DTE.ActiveDocument.Language)
End If

sel.MoveToLineAndOffset(lTop, 1)
sel.StartOfLine()

If DTE.ActiveDocument.Language = "CSharp" Then
sel.Text = "#region " + name.Trim()
ElseIf DTE.ActiveDocument.Language = "Basic" Then
sel.Text = "#Region """ + name.Trim() + """"
Else
Throw New System.Exception("Invalid Language: " + DTE.ActiveDocument.Language)
End If

sel.NewLine()
Finally
If CloseUndoContext Then DTE.UndoContext.Close()
End Try
End Sub
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。