組み合わせボックスを使用してフォントを変更する方法は何ですか？

Visual Basicでは、フォントを変更するためにComboBoxコントロールを使用することができます。具体的な手順は以下の通りです。

1. 窓にComboBoxコントロールとLabelコントロールを追加してください。
2. ウィンドウの読み込みイベントで、以下のコードを追加して、選択可能なフォントリストを読み込みます。

Private Sub Form_Load()
    ' 加载可选的字体列表
    Dim fonts As New Drawing.Text.InstalledFontCollection()
    For Each font As FontFamily In fonts.Families
        ComboBox1.Items.Add(font.Name)
    Next
End Sub

1. ComboBoxの選択が変更されたときに、以下のコードを追加してLabelコントロールのフォントを変更します。

Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
    ' 改变Label控件的字体
    Label1.Font = New Font(ComboBox1.SelectedItem.ToString(), Label1.Font.Size, Label1.Font.Style)
End Sub

ユーザーが異なるフォントを選択した場合、Labelコントロールのフォントもそれに応じて変わります。