１．プログラム上からフォントを設定する(36_Fnt_01)　(旧、SampleNo.096)

１．プログラム上からテキストボックスのフォントスタイルを設定 ２．現在のスタイルに太字を追加 ３．太字/元に戻すを切り替える ４．インストールされているフォントの一覧を取得 ５．使用しているフォント名を取得 ６．

下記プログラムコードに関する補足・注意事項　 動作確認：Windows 8.1 (Windows 7) / VB2013 (VB2010) / Framework 4.5.1 / 対象の CPU：x86 Option　：[Compare Text] [Explicit On] [Infer On] [Strict On] Imports ：追加なし 参照設定：追加なし その他　： 　　　　： このサンプル等の内容を無断で転載、掲載、配布する事はお断りします。(私の修正・改訂・削除等が及ばなくなるので) 必要ならリンクをはるようにして下さい。(引用の場合は引用元のリンクを明記して下さい)

１．プログラム上からテキストボックスのフォントスタイルを設定

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 'フォントスタイルの設定     'Font コンストラクター (String, Single, FontStyle)     'パラメーター     'familyName(フォント名)     '新しい Font オブジェクトに対する FontFamily オブジェクトの文字列形式。     'emSize(フォントサイズ)     '新しいフォントの em サイズ (単位はポイント)。     'style(フォントスタイル)     '新しいフォントの FontStyle 。     TextBox1.Text = "iiiwww花ちゃん"     Using myFont As New System.Drawing.Font("ＭＳ Ｐ明朝", 12, FontStyle.Italic)         TextBox1.Font = myFont   'iiiwww花ちゃん     End Using End Sub

２．現在のスタイルに太字を追加

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click '現在のスタイルに太字を追加する     TextBox1.Font = New Font(TextBox1.Font, TextBox1.Font.Style Or FontStyle.Bold)     '下記の場合は標準のスタイルでの太字となる     '   TextBox1.Font = New Font(TextBox1.Font, FontStyle.Bold)    ''iiiwww花ちゃん End Sub

３．太字/元に戻すを切り替える

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click 'クリック毎に太字・標準を設定する     TextBox1.Font = New Font(TextBox1.Font, TextBox1.Font.Style Xor FontStyle.Bold) End Sub

４．インストールされているフォントの一覧を取得

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click 'フォントの一覧を取得     Dim ff As FontFamily     For Each ff In System.Drawing.FontFamily.Families         ComboBox1.Items.Add(ff.Name)     Next End Sub

５．使用しているフォント名を取得

Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click '現在の設定フォント名を取得     TextBox1.Text = TextBox1.Font.Name End Sub

６．

検索キーワード及びサンプルコードの別名(機能名)