1樓：佼曉肇含
你在自己寫的方法裡
加個static
關鍵字。這樣就可以直接通過
類名來呼叫了。也就是像呼叫系統函式那樣，不用new直接通過類名就可以呼叫了。
2樓：昆櫻亮
完整**如下,初始化都已經做好啦,新增控制元件試試吧:
dim ncount as integerprivate sub form_load()'初始化控制元件資訊
caption = "密碼校驗"
label1.caption = "請輸入密碼:"
text1.text = ""
label2.fontname = "宋體"
label2.fontsize = 15.75label2.autosize = truelabel2.visible = falseend sub
private sub text1_keypress(keyascii as integer)
if len(text1.text) > 6 and keyascii <> 8 and keyascii <> 13 then
keyascii = 0
end if
if keyascii = 13 and text1.text = "1234567" then
label2.caption = "歡迎光臨!"
label2.visible = trueelseif keyascii = 13 thenif ncount <> 1 then
label2.visible = truelabel2.caption = "密碼不符，請再輸入一遍!"
text1.text = ""
ncount = ncount + 1
else
label2.visible = truelabel2.caption = "非法使用者，請推出程式!"
text1.text = ""
text1.enabled = falseend if
end if
end sub
急求一個vb密碼輸入的驗證程式編寫**！
3樓：
我寫過類似的程式
其實驗證密碼只要用一個「if 輸入的密碼=正確的密碼 then 」就解決了。
關鍵是怎麼儲存密碼和如何儲存登入人名（如果是網路應用程式還要記錄ip地址），因為如果密碼錯三次就不能再登入了，那麼重啟程式後是不是會重新計數呢？要是重啟也不能再重新登入，那就要儲存輸入密碼錯誤的使用者名稱和登入次數。
另一個問題是如何儲存密碼和使用者名稱的問題，如果直接放在某個資料庫或檔案中，用很多方法都可以調出檔案讀出使用者名稱和密碼。所以儲存的檔案必須是經過加密的，不管用什麼方法，開啟那個檔案是讀不出密碼和使用者名稱的。因為密碼和使用者名稱根本就不在檔案裡，而是以某種方法計算出來的。
這樣的加密方法，就連程式的編寫者如果忘了密碼都無法進入。只能在原程式**中通過逐語句高度來查詢出來。沒有原**的人無法破解。
我的方法（大致意思）是：
以國標漢字編碼為基礎進行一種變換得到另一套編碼，如果是中文名，就用這套編碼對輸入的漢字進行轉換，然後與一個隨機數作為進行某種運算，得到一個編碼。儲存的使用者名稱檔案中存放的是那個隨機數。解碼是就以該隨機數進行逆變換就可以了。
對於英文字元也一樣，將ascii碼進行某種換算後，再與隨機數進行變換編碼，任何人想從電腦中儲存的使用者登入密碼檔案中找到密碼都是不可能的。因為根本無規律可循。
至於登入的次數就將次數附加到隨機數的後面當隨機數的一部份就行了，不過是多一位小數而已。比如隨機數取小數點後的7位，第八位就是密碼輸錯的次數。
4樓：匿名使用者
剛剛寫過了類似的** ，算了 再寫下
private sub command1_click()static i as integer '說明下，假設 使用者名稱、密碼 分別是 yutian8802和 123456
if i > 2 then
msgbox "您已登入三次了。。。程式將結束！"
endelse
if text1.text = "yutian8802" thenif text2.text = "123456" thenmsgbox "登陸成功"
else
msgbox "密碼錯，請重新輸入！"
end if
else
msgbox "使用者名稱錯，請重新輸入！"
end if
i = i + 1
end if
end sub
測試了 沒問題了 你試試！有什麼問題 一起**~
5樓：
dim j as integer
private sub commandbutton1_click()dim i as integer
dim s1 as string
dim s2 as string
if text1.text <> "" thens1 = text1.text
end if
if text2.text <> "" thens2 = text2.text
end if
j = j + 1
if j > 2 then
msgbox "輸入次數大於3 退出"
end if
end if
if s1 = "123" and s2 = "000" thenmsgbox "登入成功"
end if
if s1 <> "123" or s2 <> "000" thenmsgbox "帳號或密碼不正確"
end if
end sub
怎麼用vb設計一個登陸程式，能實現「使用者名稱和密碼從檔案中讀取」，簡單解釋一下
6樓：匿名使用者
你這是要**？還是怎的，建一個窗體，弄倆文字框，一個賬戶一個密碼，然後在文字框做判斷，讀取檔案，先從使用者名稱判斷 不對則提示錯誤，完後累計次數，累加一下，賬戶通過讀文字密碼，密碼錯誤的話繼續累計。累計3次直接退出。
unload me
7樓：匿名使用者
（1）設計登入介面，輸入正確的使用者名稱和密碼後才可進入系統。使用者名稱和密碼從檔案中讀取。允許3次錯誤。
(2) 正確登入後，在led顯示視窗的標題欄上顯示，「歡迎你！使用者名稱」，不同的使用者顯示內容不同。(3)使用者退出系統時，顯示一個新的視窗，上面顯示該使用者退出時間，並提示「歡迎下次使用！」
用VB設計程式中遇到的問題，用VB設計程式中遇到的一個問題
哦，這樣的話應該先畫一個按鈕。預設命名command1。這裡舉例x y x y 然後 sub command1 click dim a as long 宣告a變數 a x y x y 記住不要加 if a 某值 then msgbox 等於這個值 else msgbox 不等於這個值 end if ...
vb設計計時器，vb 設計一個計時器
10ms產生一次timer事件是不行的 因為vb的timer是有一個精度的，精度大約在55ms，所以interval再小就不起作用了，api gettickcount的精度大約也是在55ms，要想獲得更高的精度，可以用api timegettime，其精度大約在1 10ms，如果這個仍然滿足不了你的...
VB設計簡單的計算器急用，VB設計一個簡單的計算器 急用
command1為控制元件陣列 private sub command1 click index as integer 數字鍵text1.text text1.text command1 index captionend subprivate sub command2 click 等號 text1....