UC知道谁学过VB 啊
来源：百度知道 编辑：UC知道 时间：2024/06/26 04:32:29
1、设计一个简单程序，程序运行后，单击左边按钮，文本框显示“欢迎使用VB 6.0”,若单击中间按钮，清除文本框的内容，单击右边按钮，程序结束。
①程序代码：
Private Sub Form_Load()
If LCase(Text1.Text) = "admin" And LCase(Text2.Text) = "123456" Then
Unload Me
Else: MsgBox "ÊäÈë´íÎó"
End If
End Sub③运行结果：
希望哪位大哥帮帮忙啊，帮小弟，写出以上的程序啊! 急急啊
①程序代码：
Private Sub Form_Load()
If LCase(Text1.Text) = "admin" And LCase(Text2.Text) = "123456" Then
Unload Me
Else: MsgBox "ÊäÈë´íÎó"
End If
End Sub③运行结果：
希望哪位大哥帮帮忙啊，帮小弟，写出以上的程序啊! 急急啊
假设左边按钮为 Command1 ，中间按钮为 Command2 ，右边按钮为 Command3
Private Sub Command1_Click()
Text1.Text = "欢迎使用VB 6.0"
End Sub
Private Sub Command2_Click()
Text1.Text = ""
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
另外 text 属性是文本框的默认属性
所以上面代码中的 text1.text 还可以省略为 text1 ，即
Private Sub Command2_Click()
Text1 = ""
End Sub
左边按钮
Text1.Text="欢迎使用VB 6.0"
中间按钮
Text1.Text=""
右边按钮
end