史萊姆論壇

返回   史萊姆論壇 > 專業主討論區 > 程式語言討論區
刷新本頁 疑問 - 各位大大好～我又有疑問要問了...VB6.0(還是Command的問題..和之前不一樣)
忘記密碼?
論壇說明

歡迎您來到『史萊姆論壇』 ^___^

您目前正以訪客的身份瀏覽本論壇，訪客所擁有的權限將受到限制，您可以瀏覽本論壇大部份的版區與文章，但您將無法參與任何討論或是使用私人訊息與其他會員交流。若您希望擁有完整的使用權限，請註冊成為我們的一份子，註冊的程序十分簡單、快速，而且最重要的是－－註冊是完全免費的！

請點擊這裡：『註冊成為我們的一份子！』

Google 提供的廣告


發文 回覆
 
主題工具 顯示模式
舊 2009-05-29, 10:12 AM   #1 (permalink)
註冊會員
榮譽勳章
UID - 311122
在線等級: 級別:3 | 在線時長:30小時 | 升級還需:2小時級別:3 | 在線時長:30小時 | 升級還需:2小時級別:3 | 在線時長:30小時 | 升級還需:2小時
註冊日期: 2008-10-06
文章: 65
精華: 0
現金: 124 金幣
資產: 144 金幣
預設
引用:
作者: mini 查看文章
自己在 Form1裡加相關 物件就可以了啊
並在 Form2的 Timer1_Timer事件裡加入比對程式碼
即可
比如
If Form1.Text1 <> sPW Then
改成
If Form1.Text1 <> sPW Or Form1.Text2 <> sID Then
那情問FORM1的設置是這樣嗎?
Private Sub Form_Activate()
sPW = "ken33664"
sID = "kenc77996"
End Sub
kppne0931 目前離線  
送花文章: 77, 收花文章: 61 篇, 收花: 117 次
回覆時引用此帖
有 2 位會員向 kppne0931 送花:
Living (2009-05-30),magicwoo (2009-05-30)
感謝您發表一篇好文章
舊 2009-05-29, 10:29 PM   #2 (permalink)
註冊會員
榮譽勳章
UID - 311122
在線等級: 級別:3 | 在線時長:30小時 | 升級還需:2小時級別:3 | 在線時長:30小時 | 升級還需:2小時級別:3 | 在線時長:30小時 | 升級還需:2小時
註冊日期: 2008-10-06
文章: 65
精華: 0
現金: 124 金幣
資產: 144 金幣
預設
沒人願意幫助我媽?@@...
kppne0931 目前離線  
送花文章: 77, 收花文章: 61 篇, 收花: 117 次
回覆時引用此帖
有 2 位會員向 kppne0931 送花:
Living (2009-05-30),magicwoo (2009-05-30)
感謝您發表一篇好文章
舊 2009-05-30, 01:30 AM   #3 (permalink)
超級版主
 
Living 的頭像
榮譽勳章
UID - 1966
在線等級: 級別:60 | 在線時長:3888小時 | 升級還需:77小時級別:60 | 在線時長:3888小時 | 升級還需:77小時級別:60 | 在線時長:3888小時 | 升級還需:77小時級別:60 | 在線時長:3888小時 | 升級還需:77小時級別:60 | 在線時長:3888小時 | 升級還需:77小時
註冊日期: 2002-12-06
住址: 糖城
文章: 9601
現金: 18 金幣
資產: 11727852 金幣
預設
引用:
作者: kppne0931 查看文章
沒人願意幫助我媽?@@...
不是很確定你需要的是什麼

你是想要輸入之後檢查兩組帳號與密碼

如果輸入與任何一組相同就登入?

是不是這樣?

如果是這樣的話

你可以改成

Form1.Text1 <> sPW1 & Form1.Text1 <> sPW2 Then
__________________
經驗分享是學習的一種
請多珍惜這片學習的園地

史版啞甘部主任
Living 目前離線  
送花文章: 52690, 收花文章: 8441 篇, 收花: 61930 次
回覆時引用此帖
有 2 位會員向 Living 送花:
kppne0931 (2009-05-30),magicwoo (2009-05-30)
感謝您發表一篇好文章
舊 2009-05-30, 03:53 AM   #4 (permalink)
註冊會員
榮譽勳章
UID - 311122
在線等級: 級別:3 | 在線時長:30小時 | 升級還需:2小時級別:3 | 在線時長:30小時 | 升級還需:2小時級別:3 | 在線時長:30小時 | 升級還需:2小時
註冊日期: 2008-10-06
文章: 65
精華: 0
現金: 124 金幣
資產: 144 金幣
預設
引用:
作者: Living 查看文章
不是很確定你需要的是什麼

你是想要輸入之後檢查兩組帳號與密碼

如果輸入與任何一組相同就登入?

是不是這樣?

如果是這樣的話

你可以改成

Form1.Text1 <> sPW1 & Form1.Text1 <> sPW2 Then

我需要的是同時檢測2組....
kppne0931 目前離線  
送花文章: 77, 收花文章: 61 篇, 收花: 117 次
回覆時引用此帖
向 kppne0931 送花的會員:
Living (2009-05-30)
感謝您發表一篇好文章
舊 2009-05-30, 10:24 AM   #5 (permalink)
管理版主
 
mini 的頭像
榮譽勳章
UID - 4144
在線等級: 級別:98 | 在線時長:10175小時 | 升級還需:22小時級別:98 | 在線時長:10175小時 | 升級還需:22小時級別:98 | 在線時長:10175小時 | 升級還需:22小時級別:98 | 在線時長:10175小時 | 升級還需:22小時級別:98 | 在線時長:10175小時 | 升級還需:22小時級別:98 | 在線時長:10175小時 | 升級還需:22小時級別:98 | 在線時長:10175小時 | 升級還需:22小時級別:98 | 在線時長:10175小時 | 升級還需:22小時
註冊日期: 2002-12-07
文章: 13497
精華: 0
現金: 26862 金幣
資產: 3024792 金幣
預設
引用:
作者: kppne0931 查看文章
那情問FORM1的設置是這樣嗎?
Private Sub Form_Activate()
sPW = "ken33664"
sID = "kenc77996"
End Sub
是的～

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

VB基本上是很好除錯運行的開發軟體
請善用 F8鍵(步進執行) 及 中斷點 及 開啟"監看視窗"
來了解你所寫的程式
mini 目前離線  
送花文章: 2055, 收花文章: 8072 篇, 收花: 26926 次
回覆時引用此帖
有 2 位會員向 mini 送花:
kppne0931 (2009-05-31),Living (2009-05-31)
感謝您發表一篇好文章
舊 2009-05-31, 12:12 PM   #6 (permalink)
註冊會員
榮譽勳章
UID - 311122
在線等級: 級別:3 | 在線時長:30小時 | 升級還需:2小時級別:3 | 在線時長:30小時 | 升級還需:2小時級別:3 | 在線時長:30小時 | 升級還需:2小時
註冊日期: 2008-10-06
文章: 65
精華: 0
現金: 124 金幣
資產: 144 金幣
預設
引用:
作者: mini 查看文章
是的～

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

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

但是我用了 TEXT1檢測SPW是OK 但是TEXT2就像是無效一樣...
kppne0931 目前離線  
送花文章: 77, 收花文章: 61 篇, 收花: 117 次
回覆時引用此帖
舊 2009-05-31, 02:19 PM   #7 (permalink)
管理版主
 
mini 的頭像
榮譽勳章
UID - 4144
在線等級: 級別:98 | 在線時長:10175小時 | 升級還需:22小時級別:98 | 在線時長:10175小時 | 升級還需:22小時級別:98 | 在線時長:10175小時 | 升級還需:22小時級別:98 | 在線時長:10175小時 | 升級還需:22小時級別:98 | 在線時長:10175小時 | 升級還需:22小時級別:98 | 在線時長:10175小時 | 升級還需:22小時級別:98 | 在線時長:10175小時 | 升級還需:22小時級別:98 | 在線時長:10175小時 | 升級還需:22小時
註冊日期: 2002-12-07
文章: 13497
精華: 0
現金: 26862 金幣
資產: 3024792 金幣
預設
引用:
作者: kppne0931 查看文章
但是我用了 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 目前離線  
送花文章: 2055, 收花文章: 8072 篇, 收花: 26926 次
回覆時引用此帖
向 mini 送花的會員:
kppne0931 (2009-05-31)
感謝您發表一篇好文章
舊 2009-05-31, 05:38 PM   #8 (permalink)
註冊會員
榮譽勳章
UID - 311122
在線等級: 級別:3 | 在線時長:30小時 | 升級還需:2小時級別:3 | 在線時長:30小時 | 升級還需:2小時級別:3 | 在線時長:30小時 | 升級還需:2小時
註冊日期: 2008-10-06
文章: 65
精華: 0
現金: 124 金幣
資產: 144 金幣
預設
引用:
作者: mini 查看文章
也可改成
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 隨便打 都會顯示連線成功...幫檢查一下卸卸...
此帖於 2009-05-31 06:11 PM 被 kppne0931 編輯.
kppne0931 目前離線  
送花文章: 77, 收花文章: 61 篇, 收花: 117 次
回覆時引用此帖
舊 2009-05-31, 08:12 PM   #9 (permalink)
註冊會員
榮譽勳章
UID - 311122
在線等級: 級別:3 | 在線時長:30小時 | 升級還需:2小時級別:3 | 在線時長:30小時 | 升級還需:2小時級別:3 | 在線時長:30小時 | 升級還需:2小時
註冊日期: 2008-10-06
文章: 65
精華: 0
現金: 124 金幣
資產: 144 金幣
預設
各位大大幫助我一下....
kppne0931 目前離線  
送花文章: 77, 收花文章: 61 篇, 收花: 117 次
回覆時引用此帖
舊 2009-05-31, 08:25 PM   #10 (permalink)
管理版主
 
mini 的頭像
榮譽勳章
UID - 4144
在線等級: 級別:98 | 在線時長:10175小時 | 升級還需:22小時級別:98 | 在線時長:10175小時 | 升級還需:22小時級別:98 | 在線時長:10175小時 | 升級還需:22小時級別:98 | 在線時長:10175小時 | 升級還需:22小時級別:98 | 在線時長:10175小時 | 升級還需:22小時級別:98 | 在線時長:10175小時 | 升級還需:22小時級別:98 | 在線時長:10175小時 | 升級還需:22小時級別:98 | 在線時長:10175小時 | 升級還需:22小時
註冊日期: 2002-12-07
文章: 13497
精華: 0
現金: 26862 金幣
資產: 3024792 金幣
預設
語法:
If Form1.Text4 = sPW And Form1.Text5 = sID Then 
    Label1.Caption = "連線失敗(帳號或密碼有誤)"
搞錯了吧...

請再仔細看一下你就能發現
mini 目前離線  
送花文章: 2055, 收花文章: 8072 篇, 收花: 26926 次
回覆時引用此帖
有 2 位會員向 mini 送花:
kppne0931 (2009-05-31),Living (2009-06-01)
感謝您發表一篇好文章
發文 回覆

« 上一主題 | 下一主題 »


發表規則
您不可以發文
您不可以回覆主題
您不可以上傳附加檔案
您不可以編輯您的文章
論壇啟用 BB 語法
論壇啟用 表情符號
論壇啟用 [IMG] 語法
論壇禁用 HTML 語法
Trackbacks are 禁用
Pingbacks are 禁用
Refbacks are 禁用


所有時間均為台北時間。現在的時間是 01:43 AM。

《 史萊姆的第一個家 》 - 論壇存檔 - 返回頂端

Powered by vBulletin® 版本 3.6.8
版權所有 ©2000 - 2025, Jelsoft Enterprises Ltd.

『服務條款』

* 有問題不知道該怎麼解決嗎？請聯絡本站的系統管理員 *


SEO by vBSEO 3.6.1