如何实现记事本中的那个文本撤消功能啊？

Question

谢谢

Answer 1

to:cike_1111那如何获取光标位置呢?再请赐教

Answer 2

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPrivate Const WM_UNDO = &H304
Private Sub Command1_Click()
    SendMessage Text1.hwnd, WM_UNDO, 0, 0
End Sub

Answer 3

http://dfs.iis.u-tokyo.ac.jp/~maoxc/vb/5527.htm

Answer 4

不是吧，不用任何代碼。你在textbox上操作試試。跟記事本上的撤消功能一個模樣