字型變化2
Private Sub Check1_Click()
If Check1.Value = 1 Then m.Font.Underline = True Else m.Font.Underline = False
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then m.Font.Strikethrough = True Else m.Font.Strikethrough = False
End Sub
Private Sub Combo1_Change()
m.FontSize = Val(Combo1.Text)
End Sub
Private Sub Combo1_Click()
m.FontSize = Val(Combo1.Text)
End Sub
Private Sub Combo2_Change()
m.Font.Name = Combo2.Text
End Sub
Private Sub Combo2_Click()
m.Font.Name = Combo2.Text
End Sub
Private Sub Combo2_Load()
For i = 0 To Screen.FontCount - 1
Combo2.AddItem Screen.Fonts(i)
Next i
Combo2.Text = Combo2.List(0)
For i = 0 To Printer.FontCount - 1
Combo3.AddItem Printer.Fonts(i)
Next i
Combo3.Text = Combo3.List(0)
End Sub
Private Sub Combo3_Change()
m.Font.Name = Combo3.Text
End Sub
Private Sub Combo3_Click()
m.Font.Name = Combo3.Text
End Sub
Private Sub Form_Load()
For i = 0 To Screen.FontCount - 1
Combo2.AddItem Screen.Fonts(i)
Next i
Combo2.Text = Combo2.List(0)
For i = 0 To Printer.FontCount - 1
Combo3.AddItem Printer.Fonts(i)
Next i
Combo3.Text = Combo3.List(0)
End Sub
Private Sub HScroll1_Change(Index As Integer)
m.ForeColor = RGB(HScroll1(0), HScroll1(1), HScroll1(2))
End Sub
Private Sub List1_Click()
Select Case List1.ListIndex
Case 0
m.FontBold = False
m.FontItalic = False
Case 1
m.FontBold = True
m.FontItalic = False
Case 2
m.FontBold = False
m.FontItalic = True
Case 3
m.FontBold = True
m.FontItalic = True
End Select
End Sub
Private Sub Option1_Click()
m.ForeColor = &HFF&
End Sub
Private Sub Option2_Click()
m.ForeColor = &HFF00&
End Sub
Private Sub Option3_Click()
m.ForeColor = &HFF0000
End Sub
Private Sub Option4_Click()
m.ForeColor = &H0&
End Sub
Private Sub Option5_Click()
m.ForeColor = &HFFFFFF
End Sub
Private Sub Option6_Click()
m.ForeColor = &HFFFF&
End Sub
Private Sub Option7_Click()
m.ForeColor = &HFF00FF
End Sub
Private Sub Option8_Click()
m.ForeColor = &HFFFF00
End Sub
想要自由 想要快樂