コピー・貼り付け・切り取り・元に戻す（API使用）
 　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　玄関へお回り下さい。
コピー・貼り付け・切り取り・元に戻す（API使用）      （１２４）
　　 Option Explicit　　 'SampleNo=124　VB6.0(SP5) 2002.03.29
'指定のウィンドウにメッセージを送る（P750)
Private Declare Function SendMessage Lib "user32" _
　　Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
　　ByVal wParam As Long, lParam As Any) As Long
Private Const WM_COPY = &H301　　　 'コピー　（P837)
Private Const WM_CUT = &H300　　　　'切り取り（P840)
Private Const WM_PASTE = &H302　　　'貼り付け（P876)
Private Const WM_UNDO = &H304　　　 '元に戻す（P892)


Private Sub Command1_Click()
'コピー
　　Dim lngRet As Long
　　lngRet = SendMessage(Text1.hwnd, WM_COPY, 0, 0)
End Sub


Private Sub Command2_Click()
'貼り付け
　　Dim lngRet As Long
　　lngRet = SendMessage(Text1.hwnd, WM_PASTE, 0, 0)
End Sub


Private Sub Command3_Click()
'元に戻す
　　Dim lngRet As Long
　　lngRet = SendMessage(Text1.hwnd, WM_UNDO, 0, 0)
End Sub


Private Sub Command4_Click()
'切取り
　　Dim lngRet As Long
　　lngRet = SendMessage(Text1.hwnd, WM_CUT, 0, 0)
End Sub
　　
コピー・貼り付け・切り取り・元に戻すはSendKeys ステートメントを使っても出来るのですが、機種によっては、SendKeys　ステートメントがうまく動作しない場合があるようです。そういった場合に、試して下さい。



2002/03/29