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

[cwvdavid]

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

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

[mini]

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

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

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

[cwvdavid]

作者: mini

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

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

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

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

[kppne0931]

作者: 劍痞憶秋年

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

Option Explicit

Public sPW As String
Public sID As String

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

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

作者: cwvdavid

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

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

作者: mini

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

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

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

作者: cwvdavid

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

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


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

[cwvdavid]

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

[kppne0931]

作者: cwvdavid

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

我要XP的拉.....

[mini]

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
按下網頁的 按鈕(旁邊填 mini)即可下載

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

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

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