疑問 - VB6.0 的Command與 Textbox 新增第2問題... - 第3頁

kppne0931 · 2009-05-11, 11:07 PM

--------------------
閱讀本主題的最佳解答
--------------------

我想要製作按下Command 而Textbox 就會隨機出現英文與數字結合一串文字共20字

那請問程式碼該如何設定請高手回答..謝謝

第2問題
Dim pw As String
pw = 77996

If Text4.Text <> pw Then
Label15.Caption = "密碼錯誤！"
Else
Label15.Caption = "登入成功！感謝您使用本程式"
End If

我利用這個來作為程式登錄密碼的用途(設定在Command)...

在程式剛啟動時 Frame 皆為灰色無法按的狀態但當密碼判斷正確時 Frame則恢復到可以按這部份我完全不會...希望可以交一下 ((Frame有2個...)

Living · 2009-05-21, 10:55 PM

引用:

作者: kppne0931

感謝大大的積極指引目前已經完成小弟相當感謝...

不用客氣, 其實大部分還是靠你自己摸索出來

希望這次的經驗能對你有幫助

Living · 2009-05-21, 10:56 PM

引用:

作者: kppne0931

其實....是frame.enabled=true 的frame沒有加上編號1 2 所以沒辦法XD....別打我ㄚ....

果然是直接COPY所以出錯

http://xs435.xs.to/xs435/09043/cc897.gif

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

引用:

作者: Living

不用客氣, 其實大部分還是靠你自己摸索出來

希望這次的經驗能對你有幫助

其實...不瞞您說我是國中一年級的學生....連基礎VB都不知道...指因為看了一點VB的書才會那段輸入密碼檢測的程式碼其他的我全都不會 ((程式碼)) 所以我才會一只出錯...呵呵～

Living · 2009-05-21, 11:14 PM

引用:

作者: kppne0931

其實...不瞞您說我是國中一年級的學生....連基礎VB都不知道...指因為看了一點VB的書才會那段輸入密碼檢測的程式碼其他的我全都不會 ((程式碼)) 所以我才會一只出錯...呵呵～

國一就能寫出這樣的東西, 那很難得
尤其有一份學的熱忱與非得搞定它的毅力
更是不容易

每個人都有剛開始接觸一樣新事物的經驗

希望你能繼續有興趣的研究VB

遇到問題, 請隨時發問
版上的高手真的很多

(我不是, 我的VB只懂皮毛, 而且已經很多年沒摸過)

kppne0931 · 2009-05-21, 11:17 PM

引用:

作者: Living

國一就能寫出這樣的東西, 那很難得
尤其有一份學的熱忱與非得搞定它的毅力
更是不容易

每個人都有剛開始接觸一樣新事物的經驗

希望你能繼續有興趣的研究VB

遇到問題, 請隨時發問
版上的高手真的很多

(我不是, 我的VB只懂皮毛, 而且已經很多年沒摸過)

嗯嗯謝謝....以後我會邁向程式語言之路的....

cwvdavid · 2009-05-21, 11:30 PM

為什麼【國中一年級】,就得開始寫這個呀......

我到大一的時候才開始寫這個..........

(難道現在的小朋友為了要贏在起跑點, 都必須這麼的拚嗎 ??)

kppne0931 · 2009-05-21, 11:45 PM

引用:

作者: cwvdavid

為什麼【國中一年級】,就得開始寫這個呀......

我到大一的時候才開始寫這個..........

(難道現在的小朋友為了要贏在起跑點, 都必須這麼的拚嗎 ??)

我是因為興趣加上無聊再加上我覺得不錯玩...程式做好有一總成就感就決的很爽...

mini · 2009-05-22, 02:13 PM

引用:

作者: kppne0931

我是因為興趣加上無聊再加上我覺得不錯玩...程式做好有一總成就感就決的很爽...

你可以去買適合自己閱讀的本書看
裡面有寫好的範例光碟可直接來用

當初個人的VB就是因為專題所需而買書自學的

kppne0931 · 2009-05-22, 05:45 PM

引用:

作者: mini

你可以去買適合自己閱讀的本書看
裡面有寫好的範例光碟可直接來用

當初個人的VB就是因為專題所需而買書自學的

嗯嗯...我有打算買書了...

tarzan688 · 2024-09-16, 11:22 AM

Private Sub Command1_Click()
Dim randomString As String
Dim i As Integer
Dim chars As String
chars = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"

' 初始化隨機字串
randomString = ""

' 產生 20 個隨機字元
For i = 1 To 20
randomString = randomString & Mid(chars, Int(Rnd * Len(chars)) + 1, 1)
Next i

' 將結果顯示在文字框中
Text1.Text = randomString
End Sub

2009-05-11, 11:07 PM
kppne0931 註冊會員榮譽勳章勳章總數1 UID - 311122 在線等級: 註冊日期: 2008-10-06 文章: 65 精華: 0 現金: 124 金幣資產: 144 金幣	疑問 - VB6.0 的Command與 Textbox 新增第2問題... -------------------- 閱讀本主題的最佳解答 -------------------- 我想要製作按下Command 而Textbox 就會隨機出現英文與數字結合一串文字共20字那請問程式碼該如何設定請高手回答..謝謝第2問題 Dim pw As String pw = 77996 If Text4.Text <> pw Then Label15.Caption = "密碼錯誤！" Else Label15.Caption = "登入成功！感謝您使用本程式" End If 我利用這個來作為程式登錄密碼的用途(設定在Command)... 在程式剛啟動時 Frame 皆為灰色無法按的狀態但當密碼判斷正確時 Frame則恢復到可以按這部份我完全不會...希望可以交一下 ((Frame有2個...) 此帖於 2009-05-23 10:34 PM 被 kppne0931 編輯.

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

2009-05-21, 11:30 PM	#36 (permalink)
cwvdavid 長老會員榮譽勳章勳章總數11 UID - 476 在線等級: 註冊日期: 2002-12-06 住址: 天與地的夾縫文章: 3106 精華: 0 現金: 5256 金幣資產: 2034465 金幣	為什麼【國中一年級】,就得開始寫這個呀...... 我到大一的時候才開始寫這個.......... (難道現在的小朋友為了要贏在起跑點, 都必須這麼的拚嗎 ??)
	__________________ 姜太公釣魚~ 願者上鉤
	送花文章: 4036, 收花文章: 2466 篇, 收花: 10141 次

2024-09-16, 11:22 AM	#40 (permalink)
tarzan688 註冊會員榮譽勳章勳章總數 UID - 339861 在線等級: 註冊日期: 2010-05-28 文章: 1 精華: 0 現金: 2 金幣資產: 2 金幣	Private Sub Command1_Click() Dim randomString As String Dim i As Integer Dim chars As String chars = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789" ' 初始化隨機字串 randomString = "" ' 產生 20 個隨機字元 For i = 1 To 20 randomString = randomString & Mid(chars, Int(Rnd * Len(chars)) + 1, 1) Next i ' 將結果顯示在文字框中 Text1.Text = randomString End Sub

	送花文章: 0, 收花文章: 0 篇, 收花: 0 次

相似的主題
主題	主題作者	討論區	回覆	最後發表
程式 - vb6 字串轉換成網頁的字串+asp	飛行船大大	程式語言討論區	6	2009-01-27 06:12 AM
尋找VB6.0中文版	電腦狂	一般電腦疑難討論區	3	2003-10-25 01:21 PM
找尋vb6.0的程式語言軟體...	supercoala	一般電腦疑難討論區	1	2003-09-21 09:08 PM
哪裡有vb6.0中文版可以下載?	newangel	一般電腦疑難討論區	0	2003-08-31 02:02 PM
有關VB6.0轉變點陣圖?	sammi2419	一般電腦疑難討論區	0	2003-08-27 12:53 AM

Google 提供的廣告