Re[6]: VB.NetでVB6.0と同じFontを指定しても同様に印刷されない

DOBON.NETプログラミング道掲示板

■35212 / 6階層)

　VB.NetでVB6.0と同じFontを指定しても同様に印刷されない

□投稿者/ ゆりりん一般人(5回)-(2022/10/28(Fri) 16:49:02)

> Sub SetFont でフォントを生成する際に、
> MM_TEXT から MM_LOMETRIC あるいは MM_HIMETRIC で
> 生成するようにしてみては如何でしょうか。

<System.Runtime.InteropServices.DllImportAttribute("gdi32.dll")>
Friend Shared Function SetMapMode(ByVal hdc As Integer, ByVal fnMapMode As Integer) As Integer
End Function

　を追加しまして、

Private Sub SetFont(ByVal control As IntPtr, ByVal fontFamily As String, ByVal fontSize As Integer)

Call SetMapMode(control, 2) 'MM_LOMETRIC
mFont = CreateFont(fontSize * -1, 0, 0, 0, 400, 0, 0, 0, 1, 0, 0, 0, 0, fontFamily)
mFontOld = SelectObject(control, mFont)

End Sub

　このように書いてみたのですが、
　何も印刷されなくなってしまいました。
　SetMapMode　の使い方が、間違っているのでしょうか。

　度々申し訳ございません。
　ご教授いただければと思います。
　どうぞよろしくお願いいたします。

違反を報告

上記関連ツリー
前の記事(元になった記事)	次の記事(この記事の返信)
←Re[5]: VB.NetでVB6.0と同じFontを指定しても同様に印刷されない /魔界の仮面弁士	→Re[7]: VB.NetでVB6.0と同じFontを指定しても同様に印刷されない /魔界の仮面弁士
VB.NetでVB6.0と同じFontを指定しても同様に印刷されない / ゆりりん (22/10/21(Fri) 11:45) #35185
`└` Re[1]: VB.NetでVB6.0と同じFontを指定しても同様に印刷されない / 魔界の仮面弁士 (22/10/21(Fri) 16:52) #35189
`└` Re[2]: VB.NetでVB6.0と同じFontを指定しても同様に印刷されない / ゆりりん (22/10/22(Sat) 00:32) #35193
`└` Re[3]: VB.NetでVB6.0と同じFontを指定しても同様に印刷されない / 魔界の仮面弁士 (22/10/24(Mon) 12:03) #35195
`└` Re[4]: VB.NetでVB6.0と同じFontを指定しても同様に印刷されない / ゆりりん (22/10/26(Wed) 13:45) #35200
`└` Re[5]: VB.NetでVB6.0と同じFontを指定しても同様に印刷されない / 魔界の仮面弁士 (22/10/26(Wed) 18:29) #35202
`├` Re[6]: VB.NetでVB6.0と同じFontを指定しても同様に印刷されない / ゆりりん (22/10/28(Fri) 10:38) #35207
`└` VB.NetでVB6.0と同じFontを指定しても同様に印刷されない / ゆりりん (22/10/28(Fri) 16:49) #35212 ←Now
`└` Re[7]: VB.NetでVB6.0と同じFontを指定しても同様に印刷されない / 魔界の仮面弁士 (22/10/28(Fri) 21:29) #35214
`└` Re[8]: VB.NetでVB6.0と同じFontを指定しても同様に印刷されない / ゆりりん (22/11/02(Wed) 11:23) #35215 解決済み!
上記ツリーを一括表示 / 上記ツリーをトピック表示
上記の記事へ返信

入力内容にタグは利用できません。
引用部分（行頭に「>」や「■」が付いている部分）が全体の 80% 以上のコメントは投稿できません。

半角カナは使用しないでください。文字化けの原因になります。
削除キーを覚えておくと、自分の記事の編集・削除ができます。
記事中に No*** のように書くとその記事にリンクされます(No は半角英字/*** は半角数字)。
- 使用例)
- No123 → 記事No123の記事リンクになります(指定表示)。
- No123,130,134 → 記事No123/130/134 の記事リンクになります(複数表示)。
- No123-130 → 記事No123～130 の記事リンクになります(連続表示)。

投稿前に必ずお読みください

初めて投稿される方は、必ず「書き込みのルールについて（12/4/2更新）」をお読みください。読むのが面倒、ルールを守りたくないという方は、「お気楽掲示板」へ投稿してください。
質問を投稿する場合は、「質問をする際のアドバイス」を参考にしてください。
投稿は、明記のない限り、パブリックドメインになります。
マルチポストされた投稿を報告する時は匿名で投稿し、マルチポストされている場所を併記してください。以下のリンクをクリックしていただくと、自動で下のフォームが埋まりますので、その後「送信」ボタンを押してご投稿ください。
- マルチポストの報告をする
- マルチポストの報告をするが、マルチポスト先の投稿が嫌がらせである（元の投稿者とは別人が行なっている）可能性が高い（投稿日時に開きがあり、こちらの投稿の方が早い場合は、その可能性が高いです）

Name	/
E-Mail	/
Title	/
URL	/
Comment/ 通常モード->　図表モード-> (適当に改行して下さい/半角10000文字以内) ■No35212に返信(ゆりりんさんの記事) >>Sub SetFont でフォントを生成する際に、 >>MM_TEXT から MM_LOMETRIC あるいは MM_HIMETRIC で >>生成するようにしてみては如何でしょうか。 > > > <System.Runtime.InteropServices.DllImportAttribute("gdi32.dll")> > Friend Shared Function SetMapMode(ByVal hdc As Integer, ByVal fnMapMode As Integer) As Integer > End Function > > 　を追加しまして、 > > Private Sub SetFont(ByVal control As IntPtr, ByVal fontFamily As String, ByVal fontSize As Integer) > > Call SetMapMode(control, 2) 'MM_LOMETRIC > mFont = CreateFont(fontSize * -1, 0, 0, 0, 400, 0, 0, 0, 1, 0, 0, 0, 0, fontFamily) > mFontOld = SelectObject(control, mFont) > > End Sub > > 　このように書いてみたのですが、 > 　何も印刷されなくなってしまいました。 > 　SetMapMode　の使い方が、間違っているのでしょうか。 > > 　度々申し訳ございません。 > 　ご教授いただければと思います。 > 　どうぞよろしくお願いいたします。 > >
File	/ アップ可能拡張子=> /.gif/.jpg/.png/.zip 1) 太字の拡張子は画像として認識されます。 2) 画像は初期状態で縮小サイズ250×250ピクセル以下で表示されます。 3) 同名ファイルがある、またはファイル名が不適切な場合、　　ファイル名が自動変更されます。 4) アップ可能ファイルサイズは1回20KB(1KB=1024Bytes)までです。 5) ファイルアップ時はプレビューは利用できません。 6) スレッド内の合計ファイルサイズ:[0/300KB] 残り:[300KB]
Icon	/ (画像を選択/サンプル一覧)
削除キー	/ (半角8文字以内)
解決済み! BOX/ 解決したらチェックしてください!（スレッドを閉じる目的ではチェックしないでください!）
クリエイティブ・コモンズ・ライセンスを Comment の末尾に挿入するには、以下のリンクをクリックしてください。（Javascript で挿入しているだけです。）表示（CC BY） \| 表示-改変禁止（CC BY-ND） \| 表示-継承（CC BY-SA） \| 表示-非営利（CC BY-NC） \| 表示-非営利-改変禁止（CC BY-NC-ND） \| 表示-非営利-継承（CC BY-NC-SA）
プレビュー/　クッキーに保存しない/