Question

vb6 textbox控件设置问题？

三个text控件，一个确认按钮，一个清空按钮，一个label控件，在三个text里依次输入数据，按确认数据显示在label里，按清空清除label里的显示。问题怎么让光标在按下清空按钮后自动回到第一个text控件里？

Answer 1

就是利用text的获得焦点
Private Sub Command1_Click()
'确认按钮
text1.text = ""
text2.text = ""
text3.text = "" '把数据传入label之后，text的内容自动清除
Label1.Caption = Text1 & Text2 & Text3
End Sub

Private Sub Command2_Click() '清空按钮
Label1.Caption = ""
Text1.SetFocus
End Sub

Answer 2

Private Sub Command1_Click() '确认按钮
Label1.Caption = Text1 & Text2 & Text3
End Sub

Private Sub Command2_Click() '清空按钮
Label1.Caption = ""
Text1.SetFocus
End Sub

Answer 3

private sub command2_click() '清空
label1.caption=""
text1.setfocus
end sub