Question

VB中如何用combobox来更改label中文本的字体，代码是什么？

VB中如何用combobox来更改label中文本的字体，代码是什么？

Answer 1

Private Sub Combo1_Click()
Label1.Font.Name = Combo1.Text


End Sub

Private Sub Form_Load()
Dim i As Integer
For i = 1 To Screen.FontCount - 1
 Combo1.AddItem Screen.Fonts(i)
Next

End Sub

Answer 2

如果你想只让选择框没有选项，而项目本身不清除的话，可以在取消按钮里面添上如下代码： Private Sub Command1_Click() Combo1.ListIndex = -1 End Sub

追问

选择框里有选项，想让label的字体变成combobox选项里所选的