Private Sub Command1_Click()
If text1.Text = "达达" And text2.Text = "123456" Then
form2.Show
Else
MsgBox "密码或用户名出错"
End If
End Sub
下面VB代码 ，密码正确后怎么设置代码为弹出 密码正确 的对话框？
答案:2 悬赏:10 手机版
解决时间 2021-03-06 21:53
- 提问者网友：低吟詩仙的傷
- 2021-03-06 05:46
最佳答案
- 五星知识达人网友：神的生死簿
- 2021-03-06 06:18
Private Sub Command1_Click()
If text1.Text = "达达" And text2.Text = "123456" Then
MsgBox "密码正确"
form2.Show
Else
MsgBox "密码或用户名出错"
End If
End Sub
If text1.Text = "达达" And text2.Text = "123456" Then
MsgBox "密码正确"
form2.Show
Else
MsgBox "密码或用户名出错"
End If
End Sub
全部回答
- 1楼网友：荒野風
- 2021-03-06 06:37
楼上的，没有 form1_load()
代码：
private sub form_load()
dim a
a = msgbox("确定要退出吗？", 1, "退出")
if a = 1 then
end
end if
end sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯