关于VB6.0专业版的简单程序编写问题

发布网友 发布时间：2024-03-05 21:58

我来回答

共4个回答

热心网友 时间：2024-03-12 17:01

txttext1 <> text1
txttext2 <> text2
控件名字与你程序中的不一样啊？
当然没法定位对象。

热心网友 时间：2024-03-12 17:03

通用部分代码：
Dim strusername As String
Dim strpassword As String
Const username As String = "admin"
Const password As String = "000000"
Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "用户名不能为空！"
Text1.SetFocus
Exit Sub
Else
strusername = Trim(Text1.Text)
strpassword = Trim(Text2.Text)
If (strusername = username) And (strpassword = password) Then
MsgBox "登录成功！当前用户为：" & strusername
Else
MsgBox "登录失败，用户名不存在或密码错误"

Text1.SetFocus
End If
End If
End Sub

Private Sub Form_Load()
strusername = ""
strpassword = ""
Text1.Text = ""
Text2.Text = ""
Text2.MaxLength = 10

End Sub
就这样，我试了，可以运行

热心网友 时间：2024-03-12 17:08

两个问题：
一。没有对象，txttext1.text不是这样写，去掉txt成text1.text，他们的名称不一样~
二。确定你改的是名称而不是 caption属性~

热心网友 时间：2024-03-12 17:03

你可以点击调试可以看到具体是那个对象的名称不对,根据你的这个代码你是要修改文本框与按钮的名称才可以运行!