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

[kppne0931]

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


我想要製作 按下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]

VB有個指令是RND
是幫助你取亂數

用RND取亂數後再搭配ASCII碼
48-57為數字
65-90為大寫英文
97-122為小寫英文

例如先用RND取一個亂數68
CHR(68)則會變成D

[kppne0931]

作者: Living

VB有個指令是RND
是幫助你取亂數

用RND取亂數後再搭配ASCII碼
48-57為數字
65-90為大寫英文
97-122為小寫英文

例如先用RND取一個亂數68
CHR(68)則會變成D

我還不太懂 不知道能不能把我要的弄成程式碼讓我自己看看...

[Living]

作者: kppne0931

我還不太懂 不知道能不能把我要的弄成程式碼讓我自己看看...

如果是功課, 告訴你原理應該對你是比較有幫助的

你先試著去寫看看
有什麼不懂或跑不動的地方再PO出問題

[kppne0931]

作者: Living

如果是功課, 告訴你原理應該對你是比較有幫助的

你先試著去寫看看
有什麼不懂或跑不動的地方再PO出問題

這不是功課 我是因為不會這類的東西 想說有沒有範例 所以才問的

[Living]

RND用法可去MSDN參考
它可以產生亂數, 並限定亂數產生的範圍

程式寫作牽涉的範圍滿廣

你如果能寫出一部分來
其他人就比較清楚知道怎麼幫

否則不知道你現有的程度
想幫也幫不了

就像現在我並不清楚你什麼地方不懂
是亂數的產生? 是不知道ASCII? 按鈕不會寫? TEXTBOX不會做? 還是20個循環不會寫?

建議你寫出一部分來, 有什麼問題旁人才方便接下去與你討論

[tarzan688]

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