標題:
VB登入程式!?(進階版)
- sony Ericsson C510 VS W595
- 急...java程式-將二進位轉為十進位@1@
- c.e.c. 526 dvd player@1@
- SH-515跟TH-333肩頸按摩帶哪個好用
- 我想買1919,但每股係計500.........help!!!@1@
- 大園東林牙科營業時間以及電話@1@
- DWA-510無線網路卡速度上不去～20點
- Sigma EF-500 DG Super 同 Canon SpeedLite 580EX II 既分別
- GIA鑽石典當借錢 -_1@1@
- PentiumD.4和IntelCeleronD3種有何不同
此文章來自奇摩知識+如有不便請留言告知
發問:
我要問說!!我不要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
留言列表
