登录窗口

yueyiggjjddmm 发布于 2008-11-20 22:49， 1266 次点击

Private Sub CommandButton1_Click()
If InputBox("请输入密码") = "12345" Then
End Sub
以上代码不用输入密码，或输入任意数字都可以进入，怎么设置必须与密码相符才能进入？
请帮忙修正

3 回复

langzhang2008-11-23 14:07

你只写了条件要做什么样的事情呢是跳转的当前页面吗？

jxyga1112008-11-24 08:21

你這有幾個問題
一。你只找IF...THEN不打END IF不會有錯？
二。你要在IF里面做什么動作對了是打開窗體from2.show
三。你InputBox如果你輸入錯誤會出錯建議不要使用。

alpglide2008-11-24 23:16

Private Sub CommandButton1_Click()
    If InputBox("请输入密码") = "12345" Then
         进去
     else
         出来
    end if
End Sub