(Modul)(General)(Declaration)
Global Const WM_USER = &H400
Global Const EM_UNDO = WM_USER + 23
Public 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 Sub Command1_Click()
UndoResult = SendMessage(Text1.hwnd, EM_UNDO, 0, 0)
End Sub
alıntıdır
emeğe saygı
Global Const WM_USER = &H400
Global Const EM_UNDO = WM_USER + 23
Public 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 Sub Command1_Click()
UndoResult = SendMessage(Text1.hwnd, EM_UNDO, 0, 0)
End Sub
alıntıdır
emeğe saygı
