在VB中如何实现文本的“撤消”及“重复”功能？

[faib920]

在VB中如何实现文本的“撤消”及“重复”功能？

[zjq5308]

用一个win api可以

[shawls]

send message
undo !

y can use the msdn

[tg123]

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_UNDO = &H304

Private Sub Command1_Click()
SendMessage Text1.hwnd, WM_UNDO, 0, 0
End Sub

[tg123]

以上
1commandbutton (command1)
textbox(text1)

[faib920]

请问tg123(T.G.)：有没有“重复”功能的代码？