你的位置:必讀網 > 科技 > VB裏添加的登錄窗口的代碼是什麼?

VB裏添加的登錄窗口的代碼是什麼?

時間:2022-06-01 22:01瀏覽次數:60

1 楼: 放飛々機


我的是完整版
Option Explicit

Public LoginSucceeded As Boolean

Private Sub cmdCancel_Click()
'設置全局變量爲 false
'不提示失敗的登錄
LoginSucceeded = False
Me.Hide
End Sub

Private Sub cmdOK_Click()
'檢查正確的密碼
If txtPassword = "password" Then
'將代碼放在這裏傳遞
'成功到 calling 函數
'設置全局變量時最容易的
LoginSucceeded = True
Me.Hide
Else
MsgBox "無效的密碼,請重試!", , "登錄"
txtPassword.SetFocus
SendKeys "{Home}+{End}"
End If
End Sub

2 楼: 雨點互聯TV


自己寫個
添加3個輸入框
和兩個標籤
和一個按鈕
Private Sub form_load()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Label1.Caption = "用戶名:"
Label2.Caption = "密碼:"
Command1.Caption = "確定"
End Sub

Private Sub command1_click()
If Text1.Text = "" Then
MsgBox "用戶名不能爲空!", 11, "提示"
End If
If Text2.Text = "" Then
MsgBox "密碼不能爲空", 11, "提示"
End If
If Text1.Text <> "123" Then
MsgBox "用戶名錯誤!", 11, "提示"
End If
If Text2.Text <> "000" Then
MsgBox "密碼不錯誤!", 11, "提示"
End If
'下面的是用戶名和密碼了
If Text1.Text = "123" Then '用戶名
Text3.Text = "1"
End If
If Text2.Text = "000" Then '密碼
Text3.Text = Val(Text3.Text) + 1
End If
If Text3.Text = "2" Then
form1.show "輸入正確" '正確之後 要調出的窗口
End If

End Sub

友情链接: 91賽普網123新聞網邁特網蓋倫網馬賽網巴比特網科斯網必讀網聰明網

必讀網娛樂生活科技教育

Copyright © 2013-2022 必讀網 版權所有