vb改变字形的代码是什么_VB编程字体的代码

Private Sub Form_Load()

Combo1.AddItem "

一号

"

Combo1.AddItem "

二号

"

Combo1.AddItem "

小二

"

Combo1.AddItem "

三号

"

Combo1.AddItem "

小三

"

Combo1.AddItem "

四号

"

Combo1.AddItem "

小四

"

Combo1.AddItem "

五号

"

Combo1.AddItem "

小五

"

Combo1.AddItem "

六号

"

Combo1.AddItem "

小六

"

End Sub

Private Sub HSblue_Change()

Label4.BackColor = RGB(HSred.Value, HSgreen.V

alue, HSblue.Value)

End Sub

Private Sub HSgreen_Change()

Label4.BackColor = RGB(HSred.Value, HSgreen.V

alue, HSblue.Value)

End Sub

Private Sub HSred_Change()

Label4.BackColor = RGB(HSred.Value, HSgreen.V

alue, HSblue.Value)

End Sub

Private Sub Option2_Click()

If Option2.Value = True Then

Text1.FontItalic = True

ElseIf Option2.Value = False Then

Text1.FontItalic = False

End If

End Sub

Private Sub Option3_Click()

If Option3.Value = True Then

Text1.FontBold = True

ElseIf Option3.Value = False Then

Text1.FontBold = False

End If