Question

VB 如何实现进入主窗体前有一个指定文字验证

打开程序，，
会先有一个类似QQ登陆的窗口，但是不同的是 ，这里不需要账号密码，是不需要数据库的，只要输入我指定的文字 然后按进入按钮就可以打开程序，这样子，新人不懂

Answer 1

Private sub form1_load()

form2.show ' log in form

End Sub
Private sub commandbutton1_click()
If text1.text<>"指定文字" then msgbox "验证错误"
else form1.show
end if
end sub

Answer 2

Private sub form1_load()

dim a as string, b as string
b= "12345"
a=inputbox("请输入文字","输入文字验证")
if a <> b then end
end sub

输入12345才通过，否则直接结束

Answer 3

你在程序里边把你指定的那个文字写死，然后判断一下输入的值是否相等不就好了。

Const str = "指定文字A"
if testbox.text <> str then
exit sub
else
......
endif