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

[kppne0931]

作者: mini

您也誤會了
Label1.Caption = Len(sRnd)
是為了證明 sRnd這個字串是 "20個英數" 所組成
※Len 是得到 "字串長度" 的VB保留字

如果要顯示在Text3上:
me.caption 是視窗標題
只要改成 Text3.text 就可以了

================
為了釐清目的，問一下
試著運行一次得到以下字串
NFHQ0PSN1AUQYU2XFP2I
以上字串不就是 "20個英數組成的字串" 嗎？
(還是你另有所指...?)

感謝大大的指引....現在剩下如何輸入密碼正確時Frame才可以使用((請參照問題2)) 這部分我完全不懂 希望大大可以指引我....

[Living]

Frame可以預設為visible=false
這樣一開始就不會有Frame出現

如果輸入的密碼相同

if text.text=password then
frame.visible=true

這樣密碼正確的話Frame就會出現

[kppne0931]

作者: Living

Frame可以預設為visible=false
這樣一開始就不會有Frame出現

如果輸入的密碼相同

if text.text=password then
frame.visible=true

這樣密碼正確的話Frame就會出現

Dim pw As String
pw = 77996

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


說明一下 以上程式碼 當text4輸入77996按下Command檢測正確時Frame(有2個)內的"Check"變為可使用(程式剛啟動時為灰色不可動) 不知道上面的要不要改 以及 Frame 要輸入怎樣的程式碼

[Living]

作者: kppne0931

Dim pw As String
pw = 77996

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


說明一下 以上程式碼 當text4輸入77996按下Command檢測正確時Frame(有2個)內的"Check"變為可使用(程式剛啟動時為灰色不可動) 不知道上面的要不要改 以及 Frame 要輸入怎樣的程式碼

Label15.Caption = "登入成功！感謝您使用本程式"
這一段是密碼正確時執行
所有你要的功能都加在這行之後
比如說frame.enabled=true

[kppne0931]

作者: Living

Label15.Caption = "登入成功！感謝您使用本程式"
這一段是密碼正確時執行
所有你要的功能都加在這行之後
比如說frame.enabled=true

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

[Living]

作者: kppne0931

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

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

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

[kppne0931]

作者: Living

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

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

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

[Living]

沒看到CODE不知道你哪個部分語法有錯

我估計可能是東COPY一塊, 西COPY一塊, 湊在一起時出問題

[kppne0931]

作者: Living

沒看到CODE不知道你哪個部分語法有錯

我估計可能是東COPY一塊, 西COPY一塊, 湊在一起時出問題

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

[Living]

作者: kppne0931

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

果然是直接COPY所以出錯