VB问题请问高手能不能帮帮忙？

来源：百度知道 编辑：UC知道 时间：2024/06/23 17:34:44
如图上说明的效果能不能做到。请VB高手赐代码？谢谢了。http://hiphotos.baidu.com/yao11028/pic/item/d59b4eefe203ca2aacafd53a.jpg
输入相应数字，车回就可以。执行Form2的Command命令按钮。。

在输入数字后 回车才执行的话 改这样。
Form1代码
Private Sub Form_Load()
Text1.Text = ""
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If Text1.Text = "123" And KeyAscii = 13 Then Form2.Command1_Click
If Text1.Text = "456" And KeyAscii = 13 Then Form2.Command2_Click
End Sub

form2代码

Public Sub Command1_Click()
MsgBox "command1成功"
End Sub

Public Sub Command2_Click()
MsgBox "command2成功"
End Sub
楼上错了 要这样才对~

能做到 很简单
自动的可能困难
必须加一个按钮 执行
还要用到IF 判断语句

Form1代码
Private Sub Text1_Change()
If Text1.Text = "123" Then Command1_Click
If Text1.Text = "456" Then Command2_Click
End Sub
form2代码
Public Sub Command1_Click()
MsgBox "command1成功"
End Sub

Public Sub Command2_Click()
MsgBox "command2成功"
End Sub

han4422951