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

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

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

引用:

作者: cwvdavid (文章 2161401)

請把你的

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

改成...

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

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

1. 連線失敗(你輸入的[kenc77996]跟[kenc77996]可能不同)(你輸入的[123]跟[]可能不同
2. 連線失敗(你輸入的[ken33664]跟[ken33664]可能不同)(你輸入的[123]跟[]可能不同
3. 連線失敗(你輸入的[234]跟[ken33664]可能不同)(你輸入的[kenc77996]跟[]可能不同
4. 連線失敗(你輸入的[234]跟[kenc77996]可能不同)(你輸入的[ken33664]跟[]可能不同
5. 連線失敗(你輸入的[kenc77996]跟[kenc77996]可能不同)(你輸入的[ken33664]跟[]可能不同
6. 連線失敗(你輸入的[ken33664]跟[kenc77996]可能不同)(你輸入的[kenc77996]跟[]可能不同

就這樣....感覺上sID 沒有很正常的樣子...

引用:

作者: kppne0931 (文章 2161417)

1. 連線失敗(你輸入的[kenc77996]跟[kenc77996]可能不同)(你輸入的[123]跟[]可能不同
2. 連線失敗(你輸入的[ken33664]跟[ken33664]可能不同)(你輸入的[123]跟[]可能不同
3. 連線失敗(你輸入的[234]跟[ken33664]可能不同)(你輸入的[kenc77996]跟[]可能不同
4. 連線失敗(你輸入的[234]跟[kenc77996]可能不同)(你輸入的[ken33664]跟[]可能不同
5. 連線失敗(你輸入的[kenc77996]跟[kenc77996]可能不同)(你輸入的[ken33664]跟[]可能不同
6. 連線失敗(你輸入的[ken33664]跟[kenc77996]可能不同)(你輸入的[kenc77996]跟[]可能不同
就這樣....感覺上sID 沒有很正常的樣子...

你說的是第二個問題，雖然我不知道問題在哪(因為我試過你的程式碼不會有 sID 的問題，建議你把 sID = "ken33664")，maybe 是大小寫的問題，但建議你在每個表單都加上 Option Explicit　
再加一個 Module1.bas

語法:

Option Explicit



Public sPW As String

Public sID As String

第一個問題版主已經點過一次囉 , 我再重提一下，下面的 Logic 有很嚴重的問題，和當初寫給你的不一樣

引用:

作者: mini (文章 2160674)

語法:

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

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

搞錯了吧... :on_77:

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

這個你只說，但沒修正程式碼，害我又重提一次
----------------------------
另外點出一個很不建議的寫法(Form1.Text4 ＝＝＞(建議改成)　Form1.Text4.Text)

麻煩你把目前你的程式碼都重新貼上來一次

Form1, Form2, 都要重新貼上來一次(我們需要看到你目前實際的程式碼才能判斷)

個人左思右想功能邏輯很簡單的說
kppne0931 卻一直得到怪答案
想說會不會你沒有把
Public sID As String 宣告在通用模組裡(請如劍痞憶秋年打上)

因為很多初學者不習慣在各相關 form程式上頭加上 Option Explicit
而使變數變成未宣告也可運行
如sID 未在模組裡宣告
那他就會成為 Form1的本地變數
如又再 Form2用到
則其實 sID是Form2 的變數
兩者是不同的

所以此時 sID永遠為 ""空字串
你不管輸入 kenc77996 還是什麼
他永遠是錯誤邏輯

引用:

作者: mini (文章 2161713)

所以，只要看到樓主的原始碼，就會有真相了:on_72:

引用:

作者: 劍痞憶秋年 (文章 2161478)

語法:

Option Explicit



Public sPW As String

Public sID As String

第一個問題版主已經點過一次囉 , 我再重提一下，下面的 Logic 有很嚴重的問題，和當初寫給你的不一樣

這個你只說，但沒修正程式碼，害我又重提一次
----------------------------
另外點出一個很不建議的寫法(Form1.Text4 ＝＝＞(建議改成)　Form1.Text4.Text)

引用:

作者: cwvdavid (文章 2161617)

麻煩你把目前你的程式碼都重新貼上來一次

Form1, Form2, 都要重新貼上來一次(我們需要看到你目前實際的程式碼才能判斷)

引用:

作者: mini (文章 2161713)

引用:

作者: cwvdavid (文章 2161716)

所以，只要看到樓主的原始碼，就會有真相了:on_72:

...感謝大大我已經在模組上加入Public sID As String 已經可以正常檢測了...

我在順便問一下....我之前有看過有人把視窗改成VISTA 請問要怎樣使用..

在vista上面執行, 就是vista的視窗了.....:on_14:

引用:

作者: cwvdavid (文章 2161771)

在vista上面執行, 就是vista的視窗了.....:on_14:

我要XP的拉.....

VB編程實現XP風格
http://www.newasp.net/tech/program/24430.html
(如是在 Vista裡跑出 Vista窗體風格，那又是別的技巧)

至於用 windows XP 執行VB APP跑出 Vista style
那就比較麻煩了
找了很多很多都是要會員才能下載

找了個
他是用畫的方式實現
http://touch.moehome.jp/up_ssize/dow...113.rar/attach
按下網頁的

http://xs839.xs.to/xs839/09224/download372.png

按鈕(旁邊填 mini)即可下載

這個範例原本是對岸寫的註解
個人將其繁體化後重新上傳
(原出至 : http://www.pudn.com/downloads85/sour...ail325810.html )

===================

當然方法絕不是只有以上
只是個人就不會想去搞個
"用 windows XP 執行VB APP跑出 Vista style" 自找麻煩的咚咚
因為
現在的MS是推廣VB .Net
用VB 6去模擬那些東西
不如直接改學 VB .Net還來的快 ...

引用:

作者: mini (文章 2161986)

剛剛下載下載去看了一下範本的Form程式碼眼睛真的會脫窗= =....:on_03: