Visual Basic 中学校 掲示板 投稿内容
タグのない投稿を抽出 統計 RSS

Visual Basic 中学校 > 投稿一覧 >

フォント一覧コンボボックスを作って使いたい 解決済み

タグの編集...

投稿者 ランポー   (中学生)   投稿日時 2016/12/28 17:04:09
エクセルとかでよく見る、フォントのコンボボックスを変更すると、
現在のセルのフォントが変わるようなことをVBでやりたいです。

例えば、コンボボックスにMSゴシックとかMS明朝とか使用可能なフォントを表示し、
このコンボボックスで選択したフォントをテキストボックスのフォントに反映させるには
どうすればよいでしょうか?

投稿者 shu   (社会人)   投稿日時 2016/12/28 21:46:58
こんなのはどうでしょうか?

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ComboBox1.DataSource = (New System.Drawing.Text.InstalledFontCollection()).Families

        ComboBox1.DisplayMember = "Name"
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        TextBox1.Font = New Font(DirectCast(ComboBox1.SelectedItem, FontFamily), 9.0!)
    End Sub



投稿者 ランポー   (社会人)   投稿日時 2016/12/30 17:46:53
ありがとうございました。
うまくいきました。