Declare Function SendMessage Lib"user"(ByVal hWnd As Integer,ByVal wMsg As Integer,wParam As Integer,lparam As Any) As Long
Global Const WM_USER=&h400
Global Const EM_UNDO=WM_USER+23
UndoResult=SendMessage(myControl.hWnd,EM_UNDO,0,0)
Private Sub CmdUndo_Click()
Select Case CurrentTextBox
Case "TxtCompany":
TxtCompany(CurrentLine).SetFocus
SendKeys Chr(27) '发送"撤销"命令到当前输入框
Case "TxtProducer":
TxtProducer(CurrentLine).SetFocus
SendKeys Chr(27)
Case "TxtProduct":
TxtProduct(CurrentLine).SetFocus
SendKeys Chr(27)
Case "TxtModel":
TxtModel(CurrentLine).SetFocus
SendKeys Chr(27)
Case "TxtPrice":
TxtPrice(CurrentLine).SetFocus
SendKeys Chr(27)
Case "TxtTime":
TxtTime(CurrentLine).SetFocus
SendKeys Chr(27)
Case "TxtComment":
TxtComment(CurrentLine).SetFocus
SendKeys Chr(27)
End Select
End Sub