![]() |
|
論壇說明 |
歡迎您來到『史萊姆論壇』 ^___^ 您目前正以訪客的身份瀏覽本論壇,訪客所擁有的權限將受到限制,您可以瀏覽本論壇大部份的版區與文章,但您將無法參與任何討論或是使用私人訊息與其他會員交流。若您希望擁有完整的使用權限,請註冊成為我們的一份子,註冊的程序十分簡單、快速,而且最重要的是--註冊是完全免費的! 請點擊這裡:『註冊成為我們的一份子!』 |
|
主題工具 | 顯示模式 |
![]() |
#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 |
![]() |
送花文章: 2056,
![]() |
向 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 |