
展开全部
简单点的:
设置textbox的passwordchar属性为**,
在
Private Sub Command1_Click()
if text1.text="123456" then
msgbox "密码正确"
unload me
else
msgbox “密码错误,请重新检查输入!"
end if
End Sub
设置textbox的passwordchar属性为**,
在
Private Sub Command1_Click()
if text1.text="123456" then
msgbox "密码正确"
unload me
else
msgbox “密码错误,请重新检查输入!"
end if
End Sub
展开全部
用文本框控件
假设密码为123,则在change事件中写
if text1="123"then
end
end if
假设密码为123,则在change事件中写
if text1="123"then
end
end if
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
dim pwd$
pwd=inputbox("请输入密码:")
if pwd="123456" then end.me else msgbox "Wrong Password! "
pwd=inputbox("请输入密码:")
if pwd="123456" then end.me else msgbox "Wrong Password! "
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询