UC知道如何让一个命令按钮执行不同的操作?
来源：百度知道 编辑：UC知道 时间：2024/06/17 07:35:46
窗体上有一个按钮,一个文本框和三个标签,我要的效果是在文本框输入数据,点击按钮将这个数据返回给标签1后自动清空文本框,再在文本框输入新数据点击按钮把这个新数据返回给标签2,又自动清空文本框,再输入数据点击按钮后把它返回给标签3后卸载该窗体.要怎么样实现这种效果?谢谢!
Private sub command1_click()
static i as integer '静态变量
select case i
case 0
label1.caption = text1.text
case 1
label2.caption = text1.text
case 2
label3.caption = text1.text
unload me
end select
text1.text = "" '清空
i=i+1 'i+1
end sub
Option Explicit
Private Sub Command1_Click()
Static i As Integer
i = i + 1
Me.Controls("Label" & i).Caption = Text1
Text1 = ""
Text1.SetFocus
If i >= 3 Then Unload me
End Sub