VB中字体改变怎么做？

Question

我做一个程序
要求它去改变字体
比如说
我点黑体
字体变成黑体
点斜体
就变成斜体
如果
点黑体后再点斜体
字变成黑体加斜体
请问这个应该怎么做？
请高手写出源代码
谢谢啊

Answer 1

Option ExplicitPrivate Sub Check1_Click()
  SetFont
End SubPrivate Sub Check2_Click()
  SetFont
End SubPrivate Sub Combo1_Click()
  SetFont
End SubPrivate Sub Combo2_Click()
  SetFont
End Sub'二个 combo1  二个 check 一个 label1
Private Sub Form_Load()
  Combo1.AddItem "宋体"
  Combo1.AddItem "仿宋体"
  Combo1.AddItem "黑体"
  Combo1.ListIndex = 0
  
  
  Combo2.AddItem 12
  Combo2.AddItem 16
  Combo2.AddItem 24
  Combo2.AddItem 36
  Combo2.AddItem 48
  
  
  
  Check1.Caption = "加粗"
  
  Check2.Caption = "斜体"
  
  Label1.Caption = "示例字体"
  
  Label1.AutoSize = True
  
  Combo1.ListIndex = 0
  Combo2.ListIndex = 0
End SubPrivate Function SetFont()
On Error Resume Next
   Label1.Font.Name = Combo1.Text
   Label1.Font.Bold = Check1.Value
   Label1.Font.Italic = Check2.Value
   Label1.Font.Size = Combo2.Text
End Function

Answer 2

 楼上的方法不好,太固定不说，要是换了个电脑没那个字体的话就没用了。...
应该用SCREEN的方法,把字体都放入组合框里....
然后选......就变...

Answer 3

Private Sub Check1_Click() '下划线
Label1.FontUnderline = Not Label1.FontUnderline
End SubPrivate Sub Check2_Click() '删除线
Label1.FontStrikethru = Not Label1.FontStrikethru
End SubPrivate Sub Check3_Click() '加粗
Label1.FontBold = Not Label1.FontBold
End SubPrivate Sub Check4_Click() '斜体
Label1.FontItalic = Not Label1.FontItalic
End SubPrivate Sub cmdChange_Click()
Label1.Font.Name = List1.Text
End SubPrivate Sub Form_Load()
For i = 1 To Screen.FontCount - 1
List1.AddItem Screen.Fonts(i)
Next i
End Sub