|
|
|||||||
| 論壇說明 |
|
歡迎您來到『史萊姆論壇』 ^___^ 您目前正以訪客的身份瀏覽本論壇，訪客所擁有的權限將受到限制，您可以瀏覽本論壇大部份的版區與文章，但您將無法參與任何討論或是使用私人訊息與其他會員交流。若您希望擁有完整的使用權限，請註冊成為我們的一份子，註冊的程序十分簡單、快速，而且最重要的是－－註冊是完全免費的！ 請點擊這裡：『註冊成為我們的一份子！』 |
 |
|
|
主題工具 | 顯示模式 |
2008-04-12, 04:17 PM
|
#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,
|
|
2008-04-12, 09:18 PM
|
#3 (permalink) | |
|
註冊會員
|
再指導VB初學者一下~
引用:
大大的指導,讓我恍然大悟,已解決.  初學者還有個問題想請教大大, 若表單的程式碼如下,會無法顯示. 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,
|
|
2008-04-13, 06:44 AM
|
#4 (permalink) | |
|
註冊會員
|
引用:
Private Sub Form_Active() 中. Form_Load() 是設定些初值 不會顯示出來的 |
|
|
|
送花文章: 176,
|
|
向 飛行船大大 送花的會員:
|
|
2008-04-13, 08:56 AM
|
#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
|
|
|
送花文章: 2013,
|
|
向 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 |
原來如此!
平板模式
