用vb6.0 编写一个字体 字型 大小的字体菜单？

来源：百度知道 编辑：UC知道 时间：2024/05/06 00:18:54
combo1字体 宋体 隶书
combo2字型 常规 粗体 斜体 粗斜体
combo2大小 10 20 30

label1示范框
我这上不了HI
能直接发出来吗

HI我教你吧

Private Sub Check1_Click()
Me.Label1.FontStrikethru = Me.Check1.Value
End Sub

Private Sub Combo1_Click()
Me.Label1.FontName = Me.Combo1.Text
End Sub

Private Sub Combo2_Click()
If Me.Combo2.Text = "粗体" Then
Me.Label1.FontBold = True
Me.Label1.FontItalic = False

ElseIf Me.Combo2.Text = "斜体" Then
Me.Label1.FontBold = False
Me.Label1.FontItalic = True
ElseIf Me.Combo2.Text = "粗斜体" Then
Me.Label1.FontItalic = True
Me.Label1.FontBold = True
Else
Me.Label1.FontBold = False
Me.Label1.FontItalic = False
End If

End Sub

Private Sub Combo3_Click()
Me.Label1.FontSize = Me.Combo3.Text
Me.Refresh
End Sub