|
楼主 |
发表于 2009-5-30 03:31
|
显示全部楼层
抄来了一段
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
Const WM_CUT = &H300
Const WM_COPY = &H301
Const WM_PAST = &H302
Const WM_CLEAR = &H303
Const WM_UNDO = &H304
Dim fb As Long
Private Sub cmdClear_Click()
fb = SendMessage(Text1.hwnd, WM_CLEAR, 0, 0)
End Sub
Private Sub cmdCopy_Click()
fb = SendMessage(Text1.hwnd, WM_COPY, 0, 0)
End Sub
Private Sub cmdCut_Click()
fb = SendMessage(Text1.hwnd, WM_CUT, 0, 0)
End Sub
Private Sub Command4_Click()
fb = SendMessage(Text1.hwnd, WM_PAST, 0, 0)
End Sub
Private Sub Command5_Click()
fb = SendMessage(Text1.hwnd, WM_UNDO, 0, 0)
End Sub |
|