w047

VB第三次作業  改變字型變化

一程式目的-自已寫

二程式物件-自已寫

三程式畫面

四程式

Public k

'----- 加入系統字型 ------

Private Sub Form_Load() '表單載入時由 List1 AddItem載入系統字型

 For i = 0 To Screen.FontCount - 1

     List1.AddItem Screen.Fonts(i)

 Next i

End Sub

'-----由option 選項按鈕，選擇字型大小 ------

Private Sub Option1_Click() '字型大小 -10

  Ss.FontSize = Option1.Caption

End Sub

Private Sub Option2_Click() '字型大小 -20

  Ss.FontSize = Option2.Caption

End Sub

Private Sub Option3_Click() '字型大小 -50

  Ss.FontSize = Option3.Caption

End Sub

Private Sub Option4_Click() '字型大小 -80

  Ss.FontSize = Option4.Caption

End Sub

'-----由 check 選項按鈕，選擇樣式 ------

Private Sub Check1_Click()  '字體樣式--粗體

   Ss.FontBold = Check1.Value

End Sub

Private Sub Check2_Click()  '字體樣式--斜體

   Ss.FontItalic = Check2.Value

End Sub

Private Sub Check3_Click()  '字體樣式--底線

   Ss.FontUnderline = Check3.Value

End Sub

Private Sub Check4_Click()  '字體樣式--刪除線

   Ss.FontStrikethru = Check4.Value

End Sub

'-----由 List1 AddItem 加入系統字型 ------

Private Sub List1_Click()

  Ss.FontName = List1.Text

End Sub

'-----改變字型顏色 ------

Private Sub HS_Change()

   Ss.ForeColor = QBColor(HS.Value)

End Sub

'-----由 Timer1 改變標題顏色 ------

Private Sub Timer1_Timer()

Cc = RGB(255 * Rnd, 255 * Rnd, 255 * Rnd)

Label1.ForeColor = Cc

Line1.BorderColor = Cc

'k = k + 1

'If (k Mod 10) = 9 Then Form1.BackColor = Cc

End Sub