Question

vb编程设置字体样式

两个列表框，列表框1里面是字体样式名称，单击字体样式，列表框2里的字体会相应的改变

Answer 1

Private Sub Combo1_Click()
List1.Font = Combo1.Text
End Sub
List1.Font.Size ="" '修改字体大小
List1.Font.Bold = True 使用粗体
List1.Font.Italic =True 实用斜体
List1.Font.Strikethrough = True 有删除线
List1.Font.Underline = True 带下划线
几种常用的字体修改方法

Answer 2

楼上的答案是正确的