率土之滨焰焚箕轸位置:VB出学者问

来源：百度文库编辑：神马品牌网时间：2024/05/02 19:26:29

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 对话框它弹出实时错误类型不匹配

因为你不输入的时候，flag1 = "" And flag2 = ""，都不是你说的="1"，这样程序自然就会执行Else
MsgBox ("输入错误") ，也就是会跳出错误提示

VB出学者问 VB出学者问 VB出学者问 VB出学者问 VB出学者问 VB出学者问 VB出学者问 VB出学者问电脑出学者的问题 VISUAL FOXPRO的出学者！