新网创想网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
按楼主要求编的,Text1输入用户名,Text2输入密码,Command1为登录按钮,Command2为取消按钮。
让客户满意是我们工作的目标,不断超越客户的期望值来自于我们对这个行业的热爱。我们立志把好的技术通过有效、简单的方式提供给客户,将通过不懈努力成为客户在信息化领域值得信任、有价值的长期合作伙伴,公司提供的服务项目有:域名申请、虚拟主机、营销软件、网站建设、云岩网站维护、网站推广。
如果楼主要实现用户名不区分大小写,只要把Text1.Text
=
"admin"改成LCase(Text1.Text)
=
"admin"就可以了。
如果想要密码框不显示输入的字符,而是显示“*”号的话,只要把Text2的PasswordChar属性设为“*”即可。
Private
Sub
Command1_Click()
Static
t
As
Integer
If
Text1.Text
=
"admin"
And
Text2.Text
=
"admin"
Then
Unload
Me
Form2.Show
Else
MsgBox
"对不起,输入错误。"
t
=
t
+
1
If
t
=
3
Then
Unload
Me
End
If
End
Sub
Private
Sub
Command2_Click()
Unload
Me
End
Sub
把异常堆栈打出来看看
补充:
在更新或提交的时候出现的错误,可能是某个控件的值,字符串等无法转换成数字,你检查一下是不是不小心弄错了控件了
哈哈简单哪
第一步:登陆网页代码
第二步:登陆以后判断是否登陆成功
有两种方法:1.获取网页代码,判断网页字符有无”登陆成功”字样
源代码:
2.就是判断网页是否跳转到了某一页
源代码:
两种方法结合起来用,可以判断网页是否无法连接