December 28, 2009

字型變化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

Today's Visitors: 0 Total Visitors: 1
Personal Category: vb6 Topic: goups / school-wise / bulletin
Next in This Category: 字型變化
[Trackback URL]

Post A Comment









Yes No



Please input the magic number:

( Prevent the annoy garbage messages )
( What if you cannot see the numbers? )
Please input the magic number

誰來收藏
Loading ...
unlog_NVPO 0