VB.NETメモ


■タスクトレイ
・タスクトレイにアイコンを表示させる
１．ツールボックスから"NotifyIcon"を設定する。
２．アイコンを指定する。

・タスクトレイアイコンに右クリックウィンドウを表示させる
１．ツールボックスからContextMenu1を追加する．
２．"NotifyIcon"のプロパティの"ContextMenu"を"ContextMenu1"にする．
３．"ContextMenu1"を設定する．


■クリップボード
・クリア
Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Integer) As Integer
    Private Declare Function CloseClipboard Lib "user32" () As Integer
    Private Declare Function EmptyClipboard Lib "user32" () As Integer
    
    Private Sub Command1_Click(ByVal eventSender As System.Object, _ 
        ByVal eventArgs As System.EventArgs) Handles Command1.Click
        Dim ret As Integer
        ret = OpenClipboard(Me.Handle.ToInt32)
        ret = EmptyClipboard()
        ret = CloseClipboard()
    End Sub


■その他
・キー送信
Ctrl+cを送るだけ
 →SendKeys.Send("^(c)")
Ctrl+cを送って完了を待つ
 →SendKeys.SendWait("^(c)")

・Sleep(ミリ秒)
System.Threading.Thread.Sleep(1000)

・フォームを常に前面に表示
フォームのプロパティのTopMostをTrueにする．

・グローバル変数の設定
変数宣言をモジュールで行う．

・改行コードの追加
"NO" & vbCrLf
"NO" & vbNewLine

・リターンが押されたとき"OK"を表示する
Private Sub Form1_KeyDown(ByVal sender As System.Object, _
    ByVal e As System.Windows.Forms.KeyEventArgs) _
    Handles Form1.KeyDown
    If e.KeyCode = Keys.Return Then
        MsgBox("OK")
    End If
End Sub

・アクティブなウィンドウについて
'アクティブなウィンドウのハンドルを取得する関数の宣言
Private Declare Function GetForegroundWindow Lib "user32.dll" () As Long
Dim WindowHandleForeground As Long
'アクティブなウィンドウのハンドルを取得
WindowHandleForeground = GetForegroundWindow()