keybd event的问题

Question

我想用keybd event向form1的text1 發送1,但不知為何沒反應,以下代碼對嗎? 
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 KEYEVENTF_EXTENDEDKEY = &H1
Private Const KEYEVENTF_KEYUP = &H2
Private Sub Command1_Click()
Call keybd_event(49, 0, KEYEVENTF_EXTENDEDKEY, 0) '按下1键
Call keybd_event(49, 0, KEYEVENTF_KEYUP, 0)  '抬起1键
End Sub该如何改啊

Answer 1

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 KEYEVENTF_EXTENDEDKEY = &H1
Private Const KEYEVENTF_KEYUP = &H2
Private Sub Command1_Click()
Form1.Text1.SetFocus
Call keybd_event(49, 0, KEYEVENTF_EXTENDEDKEY, 0) '按下1键
Call keybd_event(49, 0, KEYEVENTF_KEYUP, 0)  '抬起1键End Sub

Answer 2

谢谢楼上的 
我现在的程序有几个text 我想要光标在哪个文本框就在哪个文本框内输入该如何做啊？？

Answer 3

Dim FocusText As VB.TextBoxPrivate Sub Command1_Click()
  FocusText.SetFocus
  'keybd_event
End SubPrivate Sub Text1_LostFocus()
  Set FocusText = Text1
End SubPrivate Sub Text2_LostFocus()
  Set FocusText = Text2
End Sub