Visual Basic 物件導向程式設計簡介
物件簡介 物件Label 物件Timer
Label 物件
Label物件的一些特性 物件名稱(Name) 顯示文字(Caption) 文字的顏色(Forecolor) 文字的大小(Font) 位置(Left)
物件觸動 選擇物件 選擇觸動方式 撰寫程式 (希望滑鼠click在物件Label1時靜宜大學的字體變大)
課堂練習 希望靜宜大學字型變其它顏色(Forecolor) 希望滑鼠移動到靜宜大學時字體會變化 希望滑鼠移出靜宜大學時字體會變化 利用MouseMove觸動方式
課堂練習 同學試著調整Timer的Interval及left使其速度平順 同學試著如何使物件撞到邊框變顏色或變大小
Label1.left=Label1.left-100 判斷 If 的應用 物件撞到邊框變顏色或變大小需要利用if命令 如何知道撞到邊框-----Label1.left是否小於等於零 START 是 Label1.left<=0 將字型變大 否 Label1.left=Label1.left-100 END
程式碼: Private Sub Timer1_Timer() If Label1.Left <= 0 Then Label1.frontsize=30 End if Label1.left=Label1.left-100 End Sub
If命令另一型式 If 條件 Then 處理一 Else 處理二 End if 否 條件 是 處理一 處理二
課堂練習 同學試著如何使物件撞到邊框而能回頭往反方向走