1樓：良水毅魔滴奮
上面的應該是錯了的。
dim icount as integer '用於記錄次數。
private sub command1_click()'確定按鈕。
dim psw as string '記錄密慶虧仔碼。
psw = abc" '密碼為abc
icount = icount + 1
if = psw then
msgbox "密碼正確，歡迎使用本系空巧統！",vbokonlyelseif icount < 3 or icount = 3 then
msgbox "密碼不正確，您還有" &3 - icount & 次機會，請重新登入！"
獲得焦點。 清空文字。
exit sub
elsemsgbox "密譽汪碼不正確，謝絕使用！"
unload me
end if
end if
end sub
private sub command2_click() 退出按鈕。
unload me
end sub
private sub form_load()icount = 0 '初始次數為0
清空文字。end sub
2樓：網友
ok為「確定」按鈕。
psw為密碼文字框。
剛它裡邊的**如下：
private sub ok_click()dim cc as integer
cc=0if <>"abc" then
cc=cc+1
if cc >=3 then
msgbox "密碼不正確，您已經三次嘗試進入本系統，桐櫻檔均不成功，系統將自動關閉！",vbokonly
vbcritical, "警告"
unload me
end if
elsemsgbox "密碼正確，歡局亂迎使用本系統頌羨！"
end if
unload me
end sub
應該是這樣`！（呵`！我是初學者~！）
如何做vb才能顯示密碼框中的密碼
3樓：匿名使用者
我們在使用windows時，經常會碰到一些密碼框，輸入其中的文字都以「＊」顯示。現在，有許多共享軟體和自由軟體都可以實現隱藏密碼的正確顯示。究竟這是怎樣實現的呢！
其實，這比較簡單，雖然這些資訊都以「＊」顯示，但其內部還是以當初的字元表示，所以，我們只要用windows api函式就可以實現。
在windows中，每乙個視窗、控制項都有它的名字（叫做name或window text）。對於form、dialog box、message box來說，名字就顯示在title bar中；對於edit、button、static control，名字顯示在他所佔的區域中。密碼框本身就是個edit控制項，雖然顯示的是特殊字元，但名字屬性沒有變，還是輸入時的字元。
windows提供了兩個api函式來獲得這個名字：
int getwindowtextlength(hwnd hwnd); 得到名字的長度。
其中，hwnd ：想要得到的那個視窗或控制項的控制代碼 handle
int getwindowtext(hwnd hwnd, lptstr lpstring, int nmaxcount );得到名字。
其中，hwnd ：想要得到的那個視窗或控制項的控制代碼 handle；
nmaxcount ：可拷貝的最大字元數。
下面以delphi為例，說明它的實現過程。
新建一form，放置label、edit、button各乙個到form中，將edit1的passwordchar屬性改為「＊」雙擊button1：
procedure : tobject);
varname:pchar; ／名字。
l:integer; ／名字的長度。
beginl:=getwindowtextlength(; 得到名字長度，並將長度加1
getmem(name,l);／為將要得到的名字分配記憶體。
getwindowtext(,name,l);／得到名字。
string(name); 將得到的名字顯示於 label1
freemem(name,0); 釋放分配的記憶體。
end;經過執行，在edit1中輸入的密碼就可通過label1顯示出來。
vb中日期選擇控制元件MonthView如何顯示英文？如星期日顯示Sunday或Sun
在monthview1 dateclick事件中新增如下 private sub monthview1 dateclick byval dateclicked as date 把dayofweek的返回值轉換為英文 dim weekdays as stringselect case monthvie...
vb獲取視窗上多個控制元件的控制代碼,如何知道哪個是自己想要的
這個可能是你想要的東東吧！vb 遍歷視窗所有子窗體控制代碼 private const gw child 5 private const gw hwndfirst 0 private const gw hwndnext 2 private declare function getwindowtext...
如何設定硬碟密碼
建議您使用硬碟加密軟體試試。u盤超級加密3000採用最新的加密技術,可以方便地加密本地硬碟的資料夾,對移動介質 如u盤,行動硬碟 更有顯著的保護效果 1 ntfs分割槽才能使用efs加密 2 我的電腦 工具 資料夾選項 檢視 取消簡單檔案共享 3 右鍵點選要加密的檔案或資料夾 屬性 高階 加密內容以...