フォント一覧コンボボックスを作って使いたい への返答

投稿で使用できる特殊コードの説明。(別タブで開きます。)
本名は入力しないようにしましょう。
投稿した後で削除するときに使うパスワードです。返答があった後は削除できません。
返答する人が目安にします。相手が小学生か社会人かで返答の仕方も変わります。
最初の投稿が質問の場合、質問者が解決時にチェックしてください。(以降も追加書き込み・返信は可能です。)
※「過去ログ」について書くときはその過去ログのURLも書いてください。

以下の返答は逆順(新しい順)に並んでいます。

投稿者 ランポー  (社会人) 投稿日時 2016/12/30 17:46:53
ありがとうございました。
うまくいきました。
0
投稿者 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
0
投稿者 ランポー  (中学生) 投稿日時 2016/12/28 17:04:09
エクセルとかでよく見る、フォントのコンボボックスを変更すると、
現在のセルのフォントが変わるようなことをVBでやりたいです。

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