史萊姆論壇

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

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

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

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

Google 提供的廣告


發文 回覆
 
主題工具 顯示模式
舊 2009-05-26, 10:46 PM   #1 (permalink)
長老會員
 
劍痞憶秋年 的頭像
榮譽勳章
UID - 15
在線等級: 級別:31 | 在線時長:1096小時 | 升級還需:56小時級別:31 | 在線時長:1096小時 | 升級還需:56小時級別:31 | 在線時長:1096小時 | 升級還需:56小時級別:31 | 在線時長:1096小時 | 升級還需:56小時級別:31 | 在線時長:1096小時 | 升級還需:56小時級別:31 | 在線時長:1096小時 | 升級還需:56小時
註冊日期: 2002-12-06
住址: 步雲崖
文章: 280
精華: 0
現金: 15847 金幣
資產: 20867 金幣
預設
這樣改如何，我是沒試，因為有很多我也不知道你做何用的物件，所以沒實做/run，不過觀念絕對是對的
PHP 語法:
Dim intTimes as Integer

Private Sub Timer1_Timer() 
    ' 
    If intTimes >= 2  and Frame1.Enabled = True Then 
       Label1.Caption = "連線成功" 
       Timer1.Enabled = False
    End If 
    Label1.Caption = Label1.Caption & "。" 
    intTimes = intTimes + 1 
End Sub  

Private Sub Form_Load() 
    Label1.Caption = "連線中。"
    intTimes = 0
End Sub 

Private Sub Command3_Click()
Dim pw As String

Label1.Caption = "連線中。"
intTimes = 0
Timer1.Enabled = True

pw = "kenc77996"
If Text4.Text <> pw Then
  Label15.Caption = "帳號或密碼錯誤！"
Else
  pw = "ken33664"

  If Text5.Text <> pw Then

     Label15.Caption = "帳號或密碼錯誤！"
  Else
     Label15.Caption = "登入成功！感謝您使用本程式"
     Frame1.Enabled = True
     Frame2.Enabled = True
     Check1.Enabled = True
     Check2.Enabled = True
     Check3.Enabled = True
     Check4.Enabled = True
     Check5.Enabled = True
     Check6.Enabled = True
     Check7.Enabled = True
     Check8.Enabled = True
     Check9.Enabled = True
     Check10.Enabled = True
     Check11.Enabled = True
     Text1.Enabled = True
     Text2.Enabled = True
     Command1.Enabled = True
     Command2.Enabled = True
    End If
  End If

End Sub 
__________________
一切有為法 如夢幻泡影
如露亦如電 應作如是觀
劍痞憶秋年 目前離線  
送花文章: 150, 收花文章: 33 篇, 收花: 130 次
回覆時引用此帖
有 3 位會員向 劍痞憶秋年 送花:
kppne0931 (2009-05-27),Living (2009-05-27),magicwoo (2009-05-30)
感謝您發表一篇好文章
舊 2009-05-27, 06:18 AM   #2 (permalink)
註冊會員
榮譽勳章
UID - 311122
在線等級: 級別:3 | 在線時長:30小時 | 升級還需:2小時級別:3 | 在線時長:30小時 | 升級還需:2小時級別:3 | 在線時長:30小時 | 升級還需:2小時
註冊日期: 2008-10-06
文章: 65
精華: 0
現金: 124 金幣
資產: 144 金幣
預設
引用:
作者: 劍痞憶秋年 查看文章
這樣改如何，我是沒試，因為有很多我也不知道你做何用的物件，所以沒實做/run，不過觀念絕對是對的
PHP 語法:
Dim intTimes as Integer

Private Sub Timer1_Timer() 
    ' 
    If intTimes >= 2  and Frame1.Enabled = True Then 
       Label1.Caption = "連線成功" 
       Timer1.Enabled = False
    End If 
    Label1.Caption = Label1.Caption & "。" 
    intTimes = intTimes + 1 
End Sub  

Private Sub Form_Load() 
    Label1.Caption = "連線中。"
    intTimes = 0
End Sub 

Private Sub Command3_Click()
Dim pw As String

Label1.Caption = "連線中。"
intTimes = 0
Timer1.Enabled = True

pw = "kenc77996"
If Text4.Text <> pw Then
  Label15.Caption = "帳號或密碼錯誤！"
Else
  pw = "ken33664"

  If Text5.Text <> pw Then

     Label15.Caption = "帳號或密碼錯誤！"
  Else
     Label15.Caption = "登入成功！感謝您使用本程式"
     Frame1.Enabled = True
     Frame2.Enabled = True
     Check1.Enabled = True
     Check2.Enabled = True
     Check3.Enabled = True
     Check4.Enabled = True
     Check5.Enabled = True
     Check6.Enabled = True
     Check7.Enabled = True
     Check8.Enabled = True
     Check9.Enabled = True
     Check10.Enabled = True
     Check11.Enabled = True
     Text1.Enabled = True
     Text2.Enabled = True
     Command1.Enabled = True
     Command2.Enabled = True
    End If
  End If

End Sub 
剛剛去試了一下.....沒效果　不知道哪裡出問題 不知道能不能改成 用小視窗表示 ：連線中.... (每個間隔0.5秒)帳號或密碼錯誤(此時實小視窗面出現Command用來關閉視窗　）　　　　還有連線成功也是一樣。。。
kppne0931 目前離線  
送花文章: 77, 收花文章: 61 篇, 收花: 117 次
回覆時引用此帖
有 2 位會員向 kppne0931 送花:
Living (2009-05-28),magicwoo (2009-05-30)
感謝您發表一篇好文章
舊 2009-05-27, 03:20 PM   #3 (permalink)
管理版主
 
mini 的頭像
榮譽勳章
UID - 4144
在線等級: 級別:99 | 在線時長:10199小時 | 升級還需:201小時級別:99 | 在線時長:10199小時 | 升級還需:201小時級別:99 | 在線時長:10199小時 | 升級還需:201小時級別:99 | 在線時長:10199小時 | 升級還需:201小時級別:99 | 在線時長:10199小時 | 升級還需:201小時級別:99 | 在線時長:10199小時 | 升級還需:201小時級別:99 | 在線時長:10199小時 | 升級還需:201小時級別:99 | 在線時長:10199小時 | 升級還需:201小時級別:99 | 在線時長:10199小時 | 升級還需:201小時
註冊日期: 2002-12-07
文章: 13524
精華: 0
現金: 26932 金幣
資產: 3024862 金幣
預設
如圖設定
http://xs839.xs.to/xs839/09223/msg871.jpg

至於密碼設計請自行加入

補充:
請在 Form2 的
語法:
Private Sub Form_Load()

    Label1.Caption = "連線中"
    Timer1.Enabled = True
    Timer1.Interval = 500
    
End Sub
裡面補一句
Command1.Visible = False
mini 目前線上  
送花文章: 2060, 收花文章: 8083 篇, 收花: 26939 次
回覆時引用此帖
有 3 位會員向 mini 送花:
kppne0931 (2009-05-27),Living (2009-05-28),magicwoo (2009-05-30)
感謝您發表一篇好文章
舊 2009-05-27, 06:36 PM   #4 (permalink)
註冊會員
榮譽勳章
UID - 311122
在線等級: 級別:3 | 在線時長:30小時 | 升級還需:2小時級別:3 | 在線時長:30小時 | 升級還需:2小時級別:3 | 在線時長:30小時 | 升級還需:2小時
註冊日期: 2008-10-06
文章: 65
精華: 0
現金: 124 金幣
資產: 144 金幣
預設
引用:
作者: mini 查看文章
如圖設定
http://xs839.xs.to/xs839/09223/msg871.jpg

至於密碼設計請自行加入

補充:
請在 Form2 的
語法:
Private Sub Form_Load()

    Label1.Caption = "連線中"
    Timer1.Enabled = True
    Timer1.Interval = 500
    
End Sub
裡面補一句
Command1.Visible = False

線在已經可以顯示連線中了...但是...檢測密碼我不知道要如何改上去...(如果密碼錯誤就在Form2 顯示連線失敗)還有 顯示連線完成時 按下Command vb跑出 "此處需要物件" 為啥會這樣...
kppne0931 目前離線  
送花文章: 77, 收花文章: 61 篇, 收花: 117 次
回覆時引用此帖
有 2 位會員向 kppne0931 送花:
Living (2009-05-28),magicwoo (2009-05-30)
感謝您發表一篇好文章
舊 2009-05-28, 06:48 AM   #5 (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-28),magicwoo (2009-05-30)
感謝您發表一篇好文章
舊 2009-05-28, 02:44 PM   #6 (permalink)
管理版主
 
mini 的頭像
榮譽勳章
UID - 4144
在線等級: 級別:99 | 在線時長:10199小時 | 升級還需:201小時級別:99 | 在線時長:10199小時 | 升級還需:201小時級別:99 | 在線時長:10199小時 | 升級還需:201小時級別:99 | 在線時長:10199小時 | 升級還需:201小時級別:99 | 在線時長:10199小時 | 升級還需:201小時級別:99 | 在線時長:10199小時 | 升級還需:201小時級別:99 | 在線時長:10199小時 | 升級還需:201小時級別:99 | 在線時長:10199小時 | 升級還需:201小時級別:99 | 在線時長:10199小時 | 升級還需:201小時
註冊日期: 2002-12-07
文章: 13524
精華: 0
現金: 26932 金幣
資產: 3024862 金幣
預設
http://touch.moehome.jp/up_ssize/dow...958.rar/attach

按下網頁的http://xs839.xs.to/xs839/09224/download372.png 按鈕(旁邊填 mini)即可下載

重點是新增一個模組
並在模組裡使用一個全域變數 sPW
如此一來sPW就可在不同的 Form裡共用
mini 目前線上  
送花文章: 2060, 收花文章: 8083 篇, 收花: 26939 次
回覆時引用此帖
有 3 位會員向 mini 送花:
kppne0931 (2009-05-28),Living (2009-05-28),magicwoo (2009-05-30)
感謝您發表一篇好文章
舊 2009-05-28, 11:06 PM   #7 (permalink)
註冊會員
榮譽勳章
UID - 311122
在線等級: 級別:3 | 在線時長:30小時 | 升級還需:2小時級別:3 | 在線時長:30小時 | 升級還需:2小時級別:3 | 在線時長:30小時 | 升級還需:2小時
註冊日期: 2008-10-06
文章: 65
精華: 0
現金: 124 金幣
資產: 144 金幣
預設
引用:
作者: mini 查看文章
http://touch.moehome.jp/up_ssize/dow...958.rar/attach

按下網頁的http://xs839.xs.to/xs839/09224/download372.png 按鈕(旁邊填 mini)即可下載

重點是新增一個模組
並在模組裡使用一個全域變數 sPW
如此一來sPW就可在不同的 Form裡共用

用了之後...發現 已經可以檢測了文字顯示部分也正常 但是 我想要用成檢測2個TEXT(帳密)同時檢測 不知道有沒有辦法
此帖於 2009-05-28 11:24 PM 被 kppne0931 編輯.
kppne0931 目前離線  
送花文章: 77, 收花文章: 61 篇, 收花: 117 次
回覆時引用此帖
有 2 位會員向 kppne0931 送花:
Living (2009-05-28),magicwoo (2009-05-30)
感謝您發表一篇好文章
發文 回覆

« 上一主題 | 下一主題 »


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


所有時間均為台北時間。現在的時間是 09:03 AM。

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

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

『服務條款』

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


SEO by vBSEO 3.6.1