发信人: green_z()
整理人: winsy(2003-03-05 15:26:57), 站内信件
|
【 在 liuzhenwei (lzw) 的大作中提到: 】
: 【 在 fishy (死鱼) 的大作中提到: 】
: : 【 在 liuzhenwei (lzw) 的大作中提到: 】
: :
: : Public Const WM_UNDO = &H304
: .......
用下面的方法没有问题,我已经试过了(VB 6.0).
Const WM_UNDO = &H304
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 Sub cmdUndo_Click()
SendMessage Text1.hwnd, WM_UNDO, 0, 0
End Sub
--
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 202.103.182.36]
|
|