求教高手，sendmessage的问题！！！！！！！！

Question

程序思路：一个文本框，一个按钮，按下按钮相当于在文本框中按下删除按键
考虑在按下按钮时候向文本框发送一个消息。用sendmessage，但具体发送什么消息
不清楚，请高手指点，多谢！！

Answer 1

试着发 删除按键的ASC码，句柄指定text文本框

Answer 2

'窗体上2个按钮，一个textbox
Option Explicit
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Const VK_DELETE = &H2E
Private Const KEYEVENTF_EXTENDEDKEY = &H1
Private Const KEYEVENTF_KEYUP = &H2Private Sub Command1_Click() '方法1
    Text1.SetFocus
    keybd_event VK_DELETE, 0, 0, 0   ' press DELETE
    keybd_event VK_DELETE, 0, KEYEVENTF_KEYUP, 0   ' release DELETE
End SubPrivate Sub Command2_Click() '方法2
    Text1.SetFocus
    SendKeys "{delete}"
End Sub

Answer 3

Private Sub Command1_Click() 
    Text1.SetFocus
    SendKeys vbBack
End Sub