Declare Function SendMessage Lib “user32” Alias “SendMessageA” _(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _lParam As Any) As Long Declare Function PostMessage Lib “user32” Alias “PostMessageA” _(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _ByVal lParam As Long) As Long
Option Explicit 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 = PostMessage(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 cmdPast_Click() fb=SendMessage(Text1.hwnd, WM_PAST, 0, 0) End Sub Private Sub cmdUndo_Click() fb=SendMessage(Text1.hwnd, WM_UNDO, 0, 0) End Sub
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
