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

kppne0931 · 2009-05-26, 06:11 PM

我想要問的是按下Command 然後就跑出一個小視窗這部分我想像記得有一個較Msbox的東西可以用....

但是我現在要用的是按下按鈕出現以下文字

連線中。
連線中。。
連線中。。。

目的是讓他一個一個句點加上去...(每1句大概都間隔0.5秒)
以上大概跑２次。。。

２次跑完就出現連線成功　

以上不需要真正連接SQL 只要字面上的就可以了....

請求解答...

kppne0931 · 2009-06-02, 09:05 PM

引用:

作者: cwvdavid

請把你的

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 沒有很正常的樣子...

劍痞憶秋年 · 2009-06-02, 11:47 PM

引用:

作者: kppne0931

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

語法:

If Form1.Text4 = sPW And Form1.Text5 = sID Then 
    Label1.Caption = "連線失敗(帳號或密碼有誤)"

搞錯了吧...

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

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

cwvdavid · 2009-06-03, 11:55 AM

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

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

mini · 2009-06-03, 03:46 PM

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

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

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

cwvdavid · 2009-06-03, 04:20 PM

引用:

作者: mini

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

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

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

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

kppne0931 · 2009-06-03, 05:59 PM

引用:

作者: 劍痞憶秋年

你說的是第二個問題，雖然我不知道問題在哪(因為我試過你的程式碼不會有 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 · 2009-06-03, 08:55 PM

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

kppne0931 · 2009-06-04, 11:12 AM

引用:

作者: cwvdavid

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

我要XP的拉.....

mini · 2009-06-04, 03:18 PM

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還來的快 ...

kppne0931 · 2009-06-04, 06:21 PM

引用:

作者: 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還來的快 ...

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

2009-05-26, 06:11 PM
kppne0931 註冊會員榮譽勳章勳章總數1 UID - 311122 在線等級: 註冊日期: 2008-10-06 文章: 65 精華: 0 現金: 124 金幣資產: 144 金幣	疑問 - 各位大大好～我又有疑問要問了...VB6.0(還是Command的問題..和之前不一樣) 我想要問的是按下Command 然後就跑出一個小視窗這部分我想像記得有一個較Msbox的東西可以用.... 但是我現在要用的是按下按鈕出現以下文字連線中。連線中。。連線中。。。目的是讓他一個一個句點加上去...(每1句大概都間隔0.5秒) 以上大概跑２次。。。２次跑完就出現連線成功　以上不需要真正連接SQL 只要字面上的就可以了.... 請求解答...

	送花文章: 77, 收花文章: 61 篇, 收花: 117 次

2009-06-03, 11:55 AM	#33 (permalink)
cwvdavid 長老會員榮譽勳章勳章總數11 UID - 476 在線等級: 註冊日期: 2002-12-06 住址: 天與地的夾縫文章: 3106 精華: 0 現金: 5256 金幣資產: 2034465 金幣	麻煩你把目前你的程式碼都重新貼上來一次 Form1, Form2, 都要重新貼上來一次(我們需要看到你目前實際的程式碼才能判斷)
	__________________ 姜太公釣魚~ 願者上鉤
	送花文章: 4036, 收花文章: 2466 篇, 收花: 10141 次

2009-06-03, 03:46 PM	#34 (permalink)
mini 管理版主榮譽勳章勳章總數17 UID - 4144 在線等級: 註冊日期: 2002-12-07 文章: 13249 精華: 0 現金: 26241 金幣資產: 3024051 金幣	個人左思右想功能邏輯很簡單的說 kppne0931 卻一直得到怪答案想說會不會你沒有把 Public sID As String 宣告在通用模組裡(請如劍痞憶秋年打上) 因為很多初學者不習慣在各相關 form程式上頭加上 Option Explicit 而使變數變成未宣告也可運行如sID 未在模組裡宣告那他就會成為 Form1的本地變數如又再 Form2用到則其實 sID是Form2 的變數兩者是不同的所以此時 sID永遠為 ""空字串你不管輸入 kenc77996 還是什麼他永遠是錯誤邏輯

	送花文章: 1999, 收花文章: 7956 篇, 收花: 26748 次

2009-06-03, 08:55 PM	#37 (permalink)
cwvdavid 長老會員榮譽勳章勳章總數11 UID - 476 在線等級: 註冊日期: 2002-12-06 住址: 天與地的夾縫文章: 3106 精華: 0 現金: 5256 金幣資產: 2034465 金幣	在vista上面執行, 就是vista的視窗了.....

	送花文章: 4036, 收花文章: 2466 篇, 收花: 10141 次

2009-06-04, 03:18 PM	#39 (permalink)
mini 管理版主榮譽勳章勳章總數17 UID - 4144 在線等級: 註冊日期: 2002-12-07 文章: 13249 精華: 0 現金: 26241 金幣資產: 3024051 金幣	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還來的快 ...

	送花文章: 1999, 收花文章: 7956 篇, 收花: 26748 次

Google 提供的廣告