1樓：
private sub command1_click()
if text1.text = "user" then
txt2.setfocus
elseif text1.text <> "user" then
msgbox "請輸入正確的使用者名稱！", vbokonly + vbinformation, "注意"
end if
if text2.text = "123456" then
form1.hide
form2.show
elseif text2.text <> "123456" then
msgbox "請輸入正確的密碼！", vbokonly + vbinformation, "注意"
end if
end sub
private sub command2_click()
endend sub
private sub form_load()
form1.show
form2.hide
end sub
private sub text1_keydown(keycode as integer, shift as integer)
if text1.text = "user" and keycode = vbkeyreturn then
text2.setfocus
elseif text1.text <> "user" and keycode = vbkeyreturn then
msgbox "請輸入正確的使用者名稱！", vbokonly + vbinformation, "注意"
end if
end sub
private sub text2_keydown(keycode as integer, shift as integer)
if text2.text = "123456" and keycode = vbkeyreturn then
form1.hide
form2.show
elseif text2.text <> "123456" and keycode = vbkeyreturn then
msgbox "請輸入正確的密碼！", vbokonly + vbinformation, "注意"
end ifend sub
2樓：匿名使用者
你在事件處理函式名中使用的是text1和text2這兩個名字,但你**中用的都是txt1和txt2
不知這text1與txt1是否是同一個控制元件,如果是,那麼,你肯定有一種拼寫是錯誤的.
用vb設計登陸介面，急，用VB設計一個登陸介面，急！！！
用vb新建一個工程，在窗體form1上畫兩個label控制元件，一個是label1一個是label2，把label1的caption屬性設為 使用者名稱 label2的caption屬性設為 密碼 然後分別在這倆label右邊各畫一個textbox控制元件，一個叫text1，一個叫text2，把te...
怎樣不讓電腦出現使用者登陸系統介面
windows xp自動登陸方法彙總 由於在工作中經常碰到需要幫人設定xp自動登入，對於一些電腦只是個人使用的,確實經常輸入密碼是件很不方便的事情，所以找到了幾種xp自動登陸方法的方法，記錄一下。1 使用第三方工具，超級兔子之類的。2 第1步 執行登錄檔編輯器，依次 hkey local machi...
為什麼origin登陸介面會出現「初次登入時您必須連上線路」
你第一次登入，必須連上伺服器。讀取相關資訊。origin是可以離線登入的。畢竟很多遊戲是單機。電腦也有無網路的時候，所以允許登入離線模式 第一次沒有相關資訊，就這提示了。不懂繼續問，滿意請採納 origin顯示 您初次登入時必須保持聯網。請檢查您的網路連線後再試一次 怎麼辦 30 第一次登入要聯網登...