VBレスキュー(花ちゃん)
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ各掲示板

メニューへ戻ります。 フォント関係のメニュー
1.プログラム上からフォントを設定する
2.フォントダイアログボックスを使ってのフォントの設定
3.変形フォントの表示及び指定の角度でフォントを表示
4.
5.
6.
7.
8.
9.
10.
11.
12.
 .
20.その他、当サイト内に掲載のフォントに関するサンプル


1.プログラム上からフォントを設定する(36_Fnt_01) (旧、SampleNo.096)
1.プログラム上からテキストボックスのフォントスタイルを設定
2.現在のスタイルに太字を追加
3.太字/元に戻すを切り替える
4.インストールされているフォントの一覧を取得
5.使用しているフォント名を取得
6.

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

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("MS P明朝", 12, FontStyle.Italic)
        TextBox1.Font = myFont   'iiiwww花ちゃん
    End Using
End Sub

このページのトップへ移動します。 2.現在のスタイルに太字を追加

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

このページのトップへ移動します。 3.太字/元に戻すを切り替える

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

このページのトップへ移動します。 4.インストールされているフォントの一覧を取得

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

このページのトップへ移動します。 5.使用しているフォント名を取得

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

このページのトップへ移動します。 6.


このページのトップへ移動します。 検索キーワード及びサンプルコードの別名(機能名)





このページのトップへ移動します。