史萊姆論壇 - 各位大大好～我又有疑問要問了...VB6.0(還是Command的問題..和之前不一樣)

史萊姆論壇 (http://forum.slime.com.tw/)

- 程式語言討論區 (http://forum.slime.com.tw/f76.html)

引用:

作者: kppne0931 (文章 2159786)

那情問FORM1的設置是這樣嗎?
Private Sub Form_Activate()
sPW = "ken33664"
sID = "kenc77996"
End Sub

是的～

建議你試了有問題再整理好發問...(畢竟論壇不同於即時通)

VB基本上是很好除錯運行的開發軟體
請善用 F8鍵(步進執行) 及中斷點及開啟"監看視窗"
來了解你所寫的程式

引用:

作者: mini (文章 2160128)

但是我用了 TEXT1檢測SPW是OK 但是TEXT2就像是無效一樣...

引用:

作者: kppne0931 (文章 2160533)

但是我用了 TEXT1檢測SPW是OK 但是TEXT2就像是無效一樣...

也可改成
A例)

語法:

     If Form1.Text1 = sPW And Form1.Text2 = sID Then

            Label1.Caption = "連線成功"

     Else

            Label1.Caption = "連線失敗(帳號或密碼有誤)"

     End If

B例)
不過照理說

語法:

     If Form1.Text1 <> sPW Or Form1.Text2 <> sID Then

            Label1.Caption = "連線失敗(帳號或密碼有誤)"

     Else

            Label1.Caption = "連線成功"

     End If

B例與上面 A例是同樣的邏輯答案

引用:

作者: mini (文章 2160586)

也可改成
A例)

語法:

     If Form1.Text1 = sPW And Form1.Text2 = sID Then

            Label1.Caption = "連線成功"

     Else

            Label1.Caption = "連線失敗(帳號或密碼有誤)"

     End If

B例)
不過照理說

語法:

     If Form1.Text1 <> sPW Or Form1.Text2 <> sID Then

            Label1.Caption = "連線失敗(帳號或密碼有誤)"

     Else

            Label1.Caption = "連線成功"

     End If

B例與上面 A例是同樣的邏輯答案

這是Form2的程式碼

PHP 語法:


		
			
Private Sub Command1_Click()



    Unload Form2

    With Form1

        .Text4.Enabled = True

        .Command1.Enabled = True

        

        .Text4.SetFocus

        .Text4.SelStart = 0

        .Text4.SelLength = Len(.Text1.Text)

    End With

    



End Sub



Private Sub Form_Load()



    Label1.Caption = "連線中"

    Timer1.Enabled = True

    Timer1.Interval = 500

    Command1.Visible = False

    

End Sub



Private Sub Timer1_Timer()

Static i As Integer

    

    If i > 5 Then

        Timer1.Enabled = False

        

If Form1.Text4 = sPW And Form1.Text5 = sID Then

            Label1.Caption = "連線失敗(帳號或密碼有誤)"

        Else

            Label1.Caption = "連線成功"

          Form1.Frame1.Enabled = True

Form1.Frame2.Enabled = True

Form1.Check1.Enabled = True

Form1.Check2.Enabled = True

Form1.Check3.Enabled = True

Form1.Check4.Enabled = True

Form1.Check5.Enabled = True

Form1.Check6.Enabled = True

Form1.Check7.Enabled = True

Form1.Check8.Enabled = True

Form1.Check9.Enabled = True

Form1.Check10.Enabled = True

Form1.Check11.Enabled = True

Form1.Text1.Enabled = True

Form1.Text2.Enabled = True

Form1.Command1.Enabled = True

Form1.Command2.Enabled = True

Form2.Command1.Visible = True

        End If

        

        i = 0

        Exit Sub

    End If

    

    i = i + 1

    If i = 1 Or i = 4 Then

        Label1.Caption = "連線中。"

    Else

        Label1.Caption = Label1.Caption & "。"

    End If

    

End Sub

以下是Form1的程式碼

PHP 語法:


		
			
Private Sub Command3_Click()





    Text4.Enabled = False

    Command3.Enabled = False

    Form2.Show

    Form2.Move Form1.Left, Form1.Top - Form2.Height



End Sub



Private Sub Form_Activate()

    sPW = "kenc77996"

    sID = "ken33664"

End Sub

以上程式碼是以text4 和text5 下去編寫

發現 text4 和text5 隨便打都會顯示連線成功...幫檢查一下卸卸...

各位大大幫助我一下....

語法:

If Form1.Text4 = sPW And Form1.Text5 = sID Then 

    Label1.Caption = "連線失敗(帳號或密碼有誤)"

搞錯了吧... :on_77:

請再仔細看一下你就能發現

引用:

作者: mini (文章 2160674)

語法:

If Form1.Text4 = sPW And Form1.Text5 = sID Then 

    Label1.Caption = "連線失敗(帳號或密碼有誤)"

搞錯了吧... :on_77:

請再仔細看一下你就能發現

我已經發現我打相反了....但是現在只能檢測Text4會正常 text5似乎無法檢測...:on_22::on_74::on_14:

大大幫忙一下......

你所謂的【但是現在只能檢測Text4會正常 text5似乎無法檢測...】是指什麼?

說一下你輸入帳號密碼的情況吧...
Text4輸入kenc77996, Text5輸入123．．結果是什麼？
Text4輸入ken33664, Text5輸入123．．結果是什麼？
Text4輸入234, Text5輸入kenc77996．．結果是什麼？
Text4輸入234, Text5輸入ken33664．．結果是什麼？

引用:

作者: cwvdavid (文章 2160872)

不太懂大大給的情況...
我說明一下好了
我需要的事在Text4輸入kenc77996Text5輸入ken33664 按下按鈕(因為忘記名稱^_^所以打中文).....2個部分"同時"檢測如果2個都正確則顯示連線成功如果有"其中一個"錯誤則顯示"連線失敗(帳號密碼錯誤)"

我需要的是這樣還有.....以上情況請配合第9樓與第18樓配合觀看

引用:

作者: kppne0931 (文章 2161019)

你問問題還要大家回頭爬樓呀:on_59::on_59:

你可以用

來引用多個回文內容

繼續加油喔

引用:

作者: Living (文章 2161020)

你問問題還要大家回頭爬樓呀:on_59::on_59:

你可以用

來引用多個回文內容

繼續加油喔

喔....抱歉我沒發現有這個可以用ˊˋ:on_14:

也就是說, 你的希望是...

Text4輸入kenc77996, Text5輸入ken33664, 按下按鈕後出現 [連線成功]
==================================
我的問題來了...

(假設你目前的程式...就是我在樓上看到的那些...)

那麼...

1. Text4輸入kenc77996, Text5輸入123．．按下按鈕後出現什麼訊息？
2. Text4輸入ken33664, Text5輸入123．．按下按鈕後出現什麼訊息？
3. Text4輸入234, Text5輸入kenc77996．．按下按鈕後出現什麼訊息？
4. Text4輸入234, Text5輸入ken33664．．按下按鈕後出現什麼訊息？
5. Text4輸入kenc77996, Text5輸入ken33664．．按下按鈕後出現什麼訊息？
6. Text4輸入ken33664, Text5輸入kenc77996．．按下按鈕後出現什麼訊息？

請告訴我, 當你依照上面6個方式輸入帳號密碼之後, 按下按鈕分別出現了什麼訊息...

引用:

作者: cwvdavid (文章 2161235)

1. 顯示連線失敗(帳號或密碼有誤)
2. 顯示連線失敗(帳號或密碼有誤)
3. 顯示連線失敗(帳號或密碼有誤)
4. 顯示連線失敗(帳號或密碼有誤)
5. 顯示連線失敗(帳號或密碼有誤)
6. 顯示連線失敗(帳號或密碼有誤)

我自己看了也很無言....:on_69:

請把你的

Label1.Caption = "連線失敗(帳號或密碼有誤)"

改成...

Label1.Caption = "連線失敗(你輸入的[" & Form1.Text4 & "]跟[" & sPW & "]可能不同)(你輸入的[" & Form1.Text5 & "]跟[" & sID & "]可能不同)"

然後再做一次...看看那6次的結果是什麼...