求加密VB编码

来源：百度知道 编辑：UC知道 时间：2024/05/19 14:33:50
如图
在前面的框内输入密码123456，在点击一下确认，显示Form2
这段编码可不可以给我

非常感谢

Private Sub Command1_Click()
If Text1="123456" Then
Form2.Show
Unload Me
Else
Msgbox "密码错！"
End If
End Sub

if text1.text = "123456" then
me.hide
form2.show
else
msgbox"there have some problem in your input text,please check it and try again."
end if

顺便说下,这不叫加密

就用if语句判断，满足条件才执行显示窗口命令，
if text1.text = "123456" then
form2.show
else
a = msgbox("输入错误")
text1.setfocus
end if

if text1="123456" then form2.show

加密算法 先发上来
没有加密算法 咋给你加密呢