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

[zzmwz]

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

[vcshcn]

WM_KEYDOWN 试试

[pm666]

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

[rainstormmaster]

'窗体上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 = &H2

Private 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 Sub

Private Sub Command2_Click() '方法2
Text1.SetFocus
SendKeys "{delete}"
End Sub

[guoyx]

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

[Ringfo]

setText等于空^_^