玄関へお回り下さい。
SendKeysクラスの使用例 (4個）        (SNo.116)

１．SendKeysクラスのSendメソッド を使ってのコピー
２．SendKeysクラスのSendメソッド を使っての元に戻す
３．SendKeysクラスのSendメソッド を使っての貼り付け
４．クリップボードのデータをメモ帳に貼り付け
使用コントロール Button1 〜 Button4   TextBox1
その他条件 WindowsXP(Vista)　Visual Basic 2005(VB2008)
　
１．SendKeysクラスのSendメソッド を使ってのコピー
　
Private Sub Button1_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button1.Click
'コピー
    TextBox1.Focus()
    System.Windows.Forms.SendKeys.Send("^C")
'他のキーについては、MSDN http://tinyurl.com/9o7ts で調べて下さい。
End Sub　
　
２．SendKeysクラスのSendメソッド を使っての元に戻す
　
Private Sub Button2_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button2.Click
'元に戻す
    TextBox1.Focus()
    System.Windows.Forms.SendKeys.Send("^Z")
End Sub　
　
３．SendKeysクラスのSendメソッド を使っての貼り付け
　
Private Sub Button3_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button3.Click
'貼り付け
    TextBox1.Focus()
    System.Windows.Forms.SendKeys.Send("^V")
End Sub　
　
４．クリップボードのデータをメモ帳に貼り付け
　
Private Sub Button4_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button4.Click
'クリップボードのデータをメモ帳に貼り付け
    'メモ帳を起動
    System.Diagnostics.Process.Start("NotePad.exe")
    'メモ帳が立ち上がるまで待つ
    System.Threading.Thread.Sleep(500)
    'クリップボードのデータをメモ帳に貼り付け
    System.Windows.Forms.SendKeys.Send("^V")
End Sub　
　





2004/05/11
2005/10/21


VBレスキュー(花ちゃん)
VB.NET2003　　VB2005