如何查询马拉松成绩单:VB出学者问
来源:百度文库 编辑:查人人中国名人网 时间:2024/10/03 05:29:40
Dim name1 As String
Dim mima1 As String
Dim flag1 As String
Dim flag2 As String
Private Sub mm_Change()
flag2 = 0
mima1$ = "1"
If mm.Text = mima1$ Then
flag2 = 1
End If
End Sub
Private Sub qd_Click()
If flag1 = 1 And flag2 = 1 Then
Form2.Show
Form1.Hide
Else
MsgBox ("输入错误")
End If
End Sub
Private Sub qx_Click()
End
End Sub
Private Sub yhm_Change()
flag1 = 0
name1$ = "1"
If yhm.Text = name1$ Then
flag1 = 1
End If
End Sub
这段代码是一个 输入用户名 和密码 点击确定 进入 可我在什么都不输入的时候 直接点击 确定 回弹出 错误信息 这是为什么呢 请高手们指点 谢谢
不是说弹出 ELSE 对话框 它弹出 实时错误 类型不匹配
Dim mima1 As String
Dim flag1 As String
Dim flag2 As String
Private Sub mm_Change()
flag2 = 0
mima1$ = "1"
If mm.Text = mima1$ Then
flag2 = 1
End If
End Sub
Private Sub qd_Click()
If flag1 = 1 And flag2 = 1 Then
Form2.Show
Form1.Hide
Else
MsgBox ("输入错误")
End If
End Sub
Private Sub qx_Click()
End
End Sub
Private Sub yhm_Change()
flag1 = 0
name1$ = "1"
If yhm.Text = name1$ Then
flag1 = 1
End If
End Sub
这段代码是一个 输入用户名 和密码 点击确定 进入 可我在什么都不输入的时候 直接点击 确定 回弹出 错误信息 这是为什么呢 请高手们指点 谢谢
不是说弹出 ELSE 对话框 它弹出 实时错误 类型不匹配
因为你不输入的时候,flag1 = "" And flag2 = "",都不是你说的="1",这样程序自然就会执行Else
MsgBox ("输入错误") ,也就是会跳出错误提示