Private Sub Combo1_Click()
Label1.FontName = Combo1.Text
End Sub
Private Sub Form_Load()
Me.AutoRedraw = True
Combo1.AddItem "宋体"
Combo1.AddItem "黑体"
Combo1.AddItem "隶书"
Combo1.AddItem "微软雅黑"
Combo1.AddItem "幼圆"
Combo1.AddItem "新宋体"
Combo1.AddItem "楷体_GB2312"
Combo1.AddItem "方正姚体"
Combo1.AddItem "方正舒体"
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024