close
標題:

VB登入程式!?(進階版)

 

此文章來自奇摩知識+如有不便請留言告知

發問:

我要問說!!我不要INPUTBOX要有TEXT1 帳號 TEXT2 密碼按鍵1 是登入按鍵2 是清除登入3次錯誤就結束程式用MSGBOX表示請大大回文八ˇˇ Dim a As Integer ''''''全域變數Private Sub Command1_Click() a = 0 Do a = a + 1 If Text1.Text = "123" And Text2.Text = "456" Then Form2.Show ... 顯示更多 我要問說!! 我不要INPUTBOX 要有TEXT1 帳號 TEXT2 密碼 按鍵1 是登入 按鍵2 是清除 登入3次錯誤就結束程式用MSGBOX表示 請大大回文八ˇˇ Dim a As Integer ''''''全域變數 Private Sub Command1_Click() a = 0 Do a = a + 1 If Text1.Text = "123" And Text2.Text = "456" Then Form2.Show Exit Do Else MsgBox "帳號或密碼錯誤" & a & "次,請重新輸入" End If Loop Until a > 2 Form1.Hide MsgBox "程式即將關閉" End Sub Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" End Sub 這是我想出來的 但是她輸入錯誤時就直接跳錯誤三次!!不會跳回去登入畫面 我要登入一次錯誤 就錯誤一次 登入2次錯誤 就錯誤2次 登入3次錯誤 就錯誤3次 且第三次就關閉程式 以上大部分是登入成功沒有問題 但是登入錯誤有問題@@請大大回答=ˇ=

最佳解答:

Dim x As Integer ''''''全域變數 Private Sub Command1_Click() Do If Text1.Text = "123" And Text2.Text = "456" Then Form2.Show Exit Do End If x = x + 1 If x >= 3 Then MsgBox "程式即將關閉" End Else MsgBox "帳號或密碼輸入錯誤" & x & "次,請重新輸入" Exit Sub End If Loop Form1.Hide End Sub Private Sub Form_Load() x = 0 End Sub Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" End Sub Sub aa() End End Sub

其他解答:

'''''''把 Do 拿掉就行了 Dim a As Integer ''''''全域變數 Private Sub Command1_Click() If Text1.Text = "123" And Text2.Text = "456" Then Form2.Show Else a = a + 1 if a = 3 then msgbox "不要亂猜" end '''''''''''''''''''''''''form1.hide 只會把 form1 隱藏, 並不會結束程式. else MsgBox "帳號或密碼錯誤" & a & "次,請重新輸入" end if End If End Sub Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" End Sub|||||Dim a As Integer '全域變數 Private Sub Command1_Click() a = a + 1 If Text1.Text = "123" And Text2.Text = "456" Then Form2.Show Unload Me Else If a < 3 Then MsgBox "帳號或密碼錯誤" & a & "次,請重新輸入" Else MsgBox "已登入3次錯誤,程式即將關閉" End End If End If End Sub Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" End SubF5B24A77BB847046
arrow
arrow
    文章標籤
    更多 程式 要有 第三次 石典當
    全站熱搜

    thhzpvx 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄