VB中焦点问题

来源：百度知道 编辑：UC知道 时间：2024/06/05 01:37:33
在load下面.焦点在text1上,如何按健盘"回车健后"执行COMMAND1_click()"
执行后.text2出现答案.如在第二次输入时text1的值如何自动清空原有的值

(默认的是接在第一次输入的数字后输入)

Private Sub Command1_Click()
'…………
Text2.Text = Text1.Text
'…………
End Sub

Private Sub Text1_GotFocus() '当获得焦点时清空一次
Text1.Text = ""
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Command1_Click
Command1.SetFocus
End If
End Sub

Private Sub Command1_Click()
Text1.Text = ""
Text2.Text = "答案"
End Sub

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Command1_Click
End If
End Sub

回车是 chr（13） 你可以写text.text1=""