![]() |
|
論壇說明 |
歡迎您來到『史萊姆論壇』 ^___^ 您目前正以訪客的身份瀏覽本論壇,訪客所擁有的權限將受到限制,您可以瀏覽本論壇大部份的版區與文章,但您將無法參與任何討論或是使用私人訊息與其他會員交流。若您希望擁有完整的使用權限,請註冊成為我們的一份子,註冊的程序十分簡單、快速,而且最重要的是--註冊是完全免費的! 請點擊這裡:『註冊成為我們的一份子!』 |
![]() ![]() |
|
主題工具 | 顯示模式 |
![]() |
#1 |
註冊會員
|
![]() 各位大大, 以下為個人寫滴VB程式碼: Dim WeeK As String WeeK = InputBox ("請輸入一星期7天的英文單字:") Select Case Week Case "sunday" : Print "Sunday 是星期日" Case "monday" : Print "Monday 是星期一" Case "tuesday" : Print "Tuesday 是星期二" Case "wednesday" : Print "Wednesday 是星期三" Case "thursday" : Print "Thursday 是星期四" Case "friday" : Print "Friday 是星期五" Case "saturday" : Print "Saturday 是星期六" End Select End Sub 但是輸入英文大寫就無法顯示. 請問該如何使用Lcase,若輸入大寫直接強迫轉換為小寫? 謝 ![]() |
![]() |
送花文章: 22,
![]() |
![]() |
#3 (permalink) |
註冊會員
|
![]() 大大的指導,讓我恍然大悟,已解決. ![]() 初學者還有個問題想請教大大, 若表單的程式碼如下,會無法顯示. Private Sub Form_Load() Dim WeeK As String WeeK = InputBox ("請輸入一星期7天的英文單字:") Select Case LCase(Week) Case "sunday" : Print "Sunday 是星期日" Case "monday" : Print "Monday 是星期一" Case "tuesday" : Print "Tuesday 是星期二" Case "wednesday" : Print "Wednesday 是星期三" Case "thursday" : Print "Thursday 是星期四" Case "friday" : Print "Friday 是星期五" Case "saturday" : Print "Saturday 是星期六" End Select End Sub -------------------------------------------------- 若表單的程式碼如下,可以顯示. Private Sub Form_Active() Dim WeeK As String WeeK = InputBox ("請輸入一星期7天的英文單字:") Select Case LCase(Week) Case "sunday" : Print "Sunday 是星期日" Case "monday" : Print "Monday 是星期一" Case "tuesday" : Print "Tuesday 是星期二" Case "wednesday" : Print "Wednesday 是星期三" Case "thursday" : Print "Thursday 是星期四" Case "friday" : Print "Friday 是星期五" Case "saturday" : Print "Saturday 是星期六" End Select End Sub 謝謝指導! |
![]() |
送花文章: 22,
![]() |
![]() |
#4 (permalink) | |
註冊會員
|
![]() 引用:
Private Sub Form_Active() 中. Form_Load() 是設定些初值 不會顯示出來的 |
|
![]() |
送花文章: 169,
![]() |
向 飛行船大大 送花的會員:
|
![]() |
#5 (permalink) |
管理版主
![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() |
![]() 因為 Form_Load 還沒跑完前
表單窗體 是 不會顯示出來的 此時如果不將 Form1 的 AutoRedraw 設為 True print(畫在) 在 Form1 的 咚咚 就會因為 "重新顯示" 這個動作在後 使的在Form1畫布上的圖形 消失掉 (不被自動重繪) 可以比較一下 語法:
Private Sub Form_Load() Dim WeeK As String Me.AutoRedraw = True WeeK = InputBox("請輸入一星期7天的英文單字:") Select Case LCase(WeeK) Case "sunday": Print "Sunday 是星期日" Case "monday": Print "Monday 是星期一" Case "tuesday": Print "Tuesday 是星期二" Case "wednesday": Print "Wednesday 是星期三" Case "thursday": Print "Thursday 是星期四" Case "friday": Print "Friday 是星期五" Case "saturday": Print "Saturday 是星期六" End Select End Sub 語法:
Private Sub Form_Load() Dim WeeK As String WeeK = InputBox("請輸入一星期7天的英文單字:") Select Case LCase(WeeK) Case "sunday": Print "Sunday 是星期日" Case "monday": Print "Monday 是星期一" Case "tuesday": Print "Tuesday 是星期二" Case "wednesday": Print "Wednesday 是星期三" Case "thursday": Print "Thursday 是星期四" Case "friday": Print "Friday 是星期五" Case "saturday": Print "Saturday 是星期六" End Select Me.AutoRedraw = True End Sub |
![]() |
送花文章: 2006,
![]() |
向 mini 送花的會員:
|
![]() ![]() |
|
|
![]() |
||||
主題 | 主題作者 | 討論區 | 回覆 | 最後發表 |
要如何使Nero燒出來的片子顯示中文? | ch0335 | 軟體應用問題討論區 | 3 | 2003-07-19 12:34 PM |
有關Win XP中文輸入時顯示粗體字的問題 | ptyrone | 軟體應用問題討論區 | 1 | 2003-06-29 08:08 AM |
MYIE的我的最愛簡體中文顯示成問號?? | 小布 | 一般電腦疑難討論區 | 3 | 2003-06-23 04:54 AM |
musicmatch JUKEBOX無法顯示中文字型 | mobp | 軟體應用問題討論區 | 2 | 2003-06-01 10:19 PM |
英文版的win98如何在yahoo即時通中輸入繁體中文 | 丫登 | 軟體應用問題討論區 | 0 | 2003-05-30 06:53 AM |