掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ローマ数字を縦書き印字するには (ID:144160)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Dim V_FontH2 As New Font("ＭＳ ゴシック", 8, FontStyle.Regular) Dim V_SF As New StringFormat() V_SF.FormatFlags = StringFormatFlags.DirectionVertical Dim EG As Graphics = e.Graphics Dim FontHandle As Long FontHandle = CreateFont(0, 0, 2700, 0, 0, 0, 0, 0, 128, 0, 0, 0, 0, "@ＭＳ ゴシック") EG.DrawString("Ⅳ 以 上", どうすればよかとね, Brushes.Black, 100, 100 , V_SF) としたのですが １：PInvokeStackImbalance が検出されました。とメッセージがでます。 ２：CreateFontで作成したフォントをどうやってDrawStringのフォントに 変換する方法がわかりません。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.