３．変形フォントの表示及び指定の角度でフォントを表示(36_Fnt_03)　(旧、SampleNo.108)

１．変形フォントの表示及び指定の角度でフォントを表示 ２． ３． ４． ５． ６．

下記プログラムコードに関する補足・注意事項　 動作確認：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 PictureBox1_Paint(sender As Object, e As PaintEventArgs) Handles PictureBox1.Paint     With PictureBox1         .Image = New Bitmap(.Size.Width, .Size.Height)     End With     Using g As Graphics = Graphics.FromImage(PictureBox1.Image)     Using f As New Font("ＭＳ ゴシック", 14)         g.PageUnit = GraphicsUnit.Millimeter    '表示位置の単位を mm に設定         'テキストレンダリングの品質を指定         '(アンチエイリアス処理されたグリフ ビットマップを使用)         g.TextRenderingHint = System.Drawing.Text.TextRenderingHint.AntiAlias         '-------------------------------------------         g.TranslateTransform(3, 5)              '表示位置の設定         g.ScaleTransform(1.0, 1.0)              '横・縦の表示比率を設定         g.DrawString("通常のサイズの文字", f, Brushes.Black, 0, 0)         g.ResetTransform()                      '単位行列にリセット         '-------------------------------------------         g.TranslateTransform(3, 20)             '表示位置の設定         g.ScaleTransform(2.0, 1.0)              '横・縦の表示比率を設定         g.DrawString("横倍角文字", f, Brushes.Red, 0, 0)         g.ResetTransform()                      '単位行列にリセット         '-------------------------------------------         g.TranslateTransform(3, 35)             '表示位置の設定         g.ScaleTransform(1.0, 2.0)              '横・縦の表示比率を設定         g.DrawString("縦倍角文字", f, Brushes.Green, 0, 0)         g.ResetTransform()                      '単位行列にリセット         '-------------------------------------------         For i As Integer = 0 To 360 Step 30             g.TranslateTransform(100, 40)        '表示位置の設定             g.ScaleTransform(1.0, 1.0)          '横・縦の表示比率を設定             g.RotateTransform(i)                '表示角度を指定             g.DrawString(" ←←回転表示", f, Brushes.Blue, -3.5, -2.5)             g.ResetTransform()                  '単位行列にリセット         Next i         '-------------------------------------------         g.TranslateTransform(3, 55)             '表示位置の設定         g.DrawString("アンチエイリアス処理を実施", f, Brushes.Black, 0, 0)         g.ResetTransform()                      '単位行列にリセット     End Using     End Using End Sub 　図１．上記実行結果

２．

３．

４．

５．

６．

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