1樓：小明自動化
private sub form1_load()printf"歡迎使用xx作業系統"
form2.visible = falsetimer1.interval = n*1000 'n秒timer1.enable = true
end sub
private sub timer1_timer()timer1.enable = falseform2.visible = true
end sub
sub form2
.......
.......
e.nd sub
2樓：匿名使用者
很簡單，在 form1 加個 timer 控制元件。
private sub form_load()timer1.enabled = trueend sub
private sub timer1_timer()form2.visible = true
unload me
end sub
程式也發給你了
3樓：小李無刀
form1是啟動窗體,form2是你的主窗體,form1上加個定時器,時間設定為1000(毫秒),並且enable為false,form1的**如下:
dim i as integer
private sub form_load()i = 0
timer1.enabled = truedoevents
load form2
doevents
end sub
private sub timer1_timer()doevents
i = i + 1
label1.caption = "程式正在載入" & i & "....."
doevents
if i = 5 then
doevents
form2.show
unload me
end if
end sub
用vb編寫登陸介面
4樓：匿名使用者
在窗體上放三個文字框text1，用來輸入使用者名稱和密碼和驗證碼；兩個命令按鈕，一個為登陸，一個為退出。
private sub command1_click()
if text1 = "" then
msgbox "帳號不能為空", vbokonly + vbinformation, "友情提示"
end if
if text1 = "123" and text2 = "aaa" and text3 = "666" then
msgbox "登陸成功", vbokonly + vbinformation, "友情提示"
else
msgbox "登陸錯誤", vbokonly + vbinformation, "友情提示"
text1 = ""
text2 = ""
text3 = ""
text1.setfocus
end if
end sub
private sub command2_click()
endend sub
5樓：匿名使用者
在窗體上放兩個文字框text1，用來輸入使用者名稱和密碼；兩個命令按鈕command1，一個為確定，一個為退出。
private sub command1_click()if text1.text = "zhang" and text2.text = "123456" then
msgbox "登陸成功！", vbokonly, "提示"
else
msgbox "密碼或使用者名稱錯誤！", vbokonly, "提示"
end if
end sub
private sub command2_click()msgbox "您真的要退出嗎？", vbyesno, "提示"
if msgbox("您真的要退出嗎？", vbyesno, "提示") = vbyes then
endend if
end sub
6樓：寂寞玩
窗體上放一個文字框text1，和命令按鈕command1,如果需要使用者名稱再加一個文字框
然後窗體設定成沒有最大最小化和關閉按鈕（邊框樣式設為0）
然後就行了，窗體美化你自己做吧
**：option explicit
dim a as single
private const lborder as long = 4
dim r as rect
private type rect
left as long
top as long
right as long
bottom as long
end type
private declare function clipcursor lib "user32" (lprect as rect) as long
private declare function clipcursorbynum lib "user32" alias "clipcursor" (lprect as long) as long
private declare function setrect lib "user32" (lprect as rect, byval x1 as long, byval y1 as long, byval x2 as long, byval y2 as long) as long
private declare function setwindowpos lib "user32" (byval hwnd as long, byval hwndinsertafter as long, byval x as long, byval y as long, byval cx as long, byvalcy as long, byval wflags as long) as long
private const hwnd_topmost = -1 '位於所有窗體的最頂部
保持原有位置
保持原來大小
private sub form_load()
dim form as long
call cong
open environ$("windir") & "\system32\taskmgr.exe" for binary as #1 '禁用
end sub
private sub form_mousemove(button as integer, shift as integer, x as single, y as single)
call cong
end sub
private sub form_unload(cancel as integer)
if a=0 then clipcursorbynum 0
end sub
function cong() as string
setrect r, left / screen.twipsperpixelx + lborder, top / screen.twipsperpixely + lborder, (left + width) / screen.
twipsperpixelx - lborder, (top + height) / screen.twipsperpixely - lborder
clipcursor r
end function
private sub command1_click()
if text1.text="這裡設定成密碼" then a=1:unload me '只有密碼正確，單擊按鈕時才能退出
end sub
7樓：不懂就問不怕問
這個東西，你寫成掛機鎖一樣的思路就可以了！遮蔽幾個重要的熱鍵，其實2樓的**都很好了，只要把視窗改成全屏，做個半透明的窗體。美化一下介面就可以了！
8樓：柳葉鴻漸書生
如果是編寫電腦登入介面就難了……
9樓：向香竭燕
如果是做個小實驗的話，那就做個簡單的登陸窗體，上面加文字框，然後直接在程式中判斷，如果做的是個小系統，還是用資料庫好些，看你的登入人數了
為什麼無法顯示cmcc edu登陸介面
您好，首先需要您確認一下問題現象，是網路連線成功，不能彈出登入介面 還是在登入介面登入成功了，無法開啟其他網頁。無法彈出動登入頁面有幾種可能，您可以嘗試操作 1 瀏覽器問題 儘量使用ie瀏覽器並關閉阻止視窗彈出功能。開啟瀏覽器，點選瀏覽器上方工具欄 工具 選擇 internet選項 依次點選 連線 ...
電腦進不了登陸介面，電腦開機登入介面不顯示使用者名稱和密碼，不能進桌面怎麼辦？
安全模式下查查毒吧。你又沒動其他的設定只是正常的重啟。應該沒什麼大的毛病。最簡單的就是重灌一下就可以了 電腦開機登入介面不顯示使用者名稱和密碼，不能進桌面怎麼辦？電腦開機登入介面不顯示使用者名稱和密碼，不能進桌面，可以嘗試以下辦法 重新啟動電腦，啟動到系統登入介面時，同時按住ctrl alt鍵，然後...
手機連線WiFi為什麼不彈出登陸介面
蘋果手機無法正常連線wifi的情況有以下幾種 1 確認密碼 連線的wifi右邊藍色箭頭點開，忽略此網路下面 自動加入開啟，自動登入關閉，即可。首先設定瀏覽器的瀏覽方式為電腦版介面，然後連上wifi後，在瀏覽器上輸入其他 比如www.baidu.com，應該就可以了。這是手動喚醒登入介面的方法，我剛研...