■No35212に返信(ゆりりんさんの記事)
> 何も印刷されなくなってしまいました。

『フォントサイズ』の指定、および、『描画位置の座標』は正しいですか?

MM_TEXT から MM_LOMETRIC に変更したのであれば、フォントサイズだけでは無く
描画座標も MM_LOMETRIC 単位系で計算しなおす必要があります。


描画位置を変更したくない場合は、GetMapMode と SetMapMode をペアで使うようにして、
フォント作成後、描画時に座標系を元に戻してみてください。先の私の回答では、フォントを
「MM_LOMETRIC あるいは MM_HIMETRIC で生成する」とは書きましたが、
「MM_LOMETRIC あるいは MM_HIMETRIC で描画する」とは書いていません。


MapMode は 1〜8 の 8 種類あります。指定するモードによっては、
単位だけでなく軸の向きも変化していることに注意してください。

　(A) X 座標が右に、Y 座標が上に向かって増加していくもの
　(B) X 座標が右に、Y 座標が下に向かって増加していくもの
　(C) SetWindowExtEx() / SetViewportExtEx() で単位、向き、スケーリングを指定するもの
　http://www.kumei.ne.jp/c_lang/sdk/sdk_55.htm
　http://yamatyuu.net/computer/program/sdk/gdi/mapmode/index.html

---

(A) 右向き、上向きな MapMode
　1 … MM_TEXT。1 デバイスピクセル単位の物理座標系。
　6 … MM_TWIPS。0.05ポイント単位(1/1440インチ単位)の論理座標系。

(B) 右向き、下向きな MapMode
　2 … MM_LOMETRIC。0.1 ミリ単位の論理座標系。
　3 … MM_HIMETRIC。0.01 ミリ単位の論理座標系。
　4 … MM_LOENGLISH。0.01 インチ単位の論理座標系。
　5 … MM_HIENGLISH。0.001 インチ単位の論理座標系。

(C) 単位、向き、スケーリングを任意に指定できる MapMode
　7 … MM_ISOTROPIC。異方性ユーザー定義単位系。任意の単位、向き、スケーリングを持つ。
　8 … MM_ANISOTROPIC。等方性ユーザー定義単位系。X 軸と Y 軸の 1 単位が等しい。

2023/09/09(Sat) 11:50:38 編集(投稿者)

Windows 8 から子ウインドウがレイヤードウインドウになれるので、アプリケーションマニュフェストを追加して

      <!-- Windows 8 -->
      <!--<supportedOS Id="{4a2f28e3-53b9-4441-ba9c-d69d4a4a6e38}" />-->

のコメントアウトを解除すると、簡単に透過できますね。

# GetWindowLong/SetWindowLong を使っているのは手抜きです。(長くなるので）
# プロセスが 64bit なら GetWindowLongPtr,SetWindowLongPtr を使うのが正式なやり方。
# 64bit で SetWindowLong を使うと成功しても戻り値がゼロになってしまいます。

Imports System.Runtime.InteropServices

Public Class Form1

    Private Const WS_EX_LAYERED = &H80000
    Private Const GWL_EXSTYLE = -20
    Private Enum LWA
        COLORKEY = &H1
        ALPHA = &H2
    End Enum

    Private Sub PictureBox_HandleCreated(sender As Object, e As EventArgs) _
                Handles PictureBox1.HandleCreated,
                        PictureBox2.HandleCreated
        Dim pic = DirectCast(sender, PictureBox)
        pic.Image = My.Resources.megane_hikaru_woman
        pic.SizeMode = PictureBoxSizeMode.Zoom
        pic.BackColor = Color.Gray
        Dim dwStyle = GetWindowLong(pic.Handle, GWL_EXSTYLE)
        dwStyle = dwStyle Or WS_EX_LAYERED
        SetWindowLong(pic.Handle, GWL_EXSTYLE, dwStyle)
        SetLayeredWindowAttributes(
                pic.Handle, ColorTranslator.ToWin32(pic.BackColor),
                0, LWA.COLORKEY)
    End Sub

    <DllImport("user32.dll")>
    Private Shared Function GetWindowLong(
                hWnd As IntPtr, nIndex As Integer) As Integer
    End Function

    <DllImport("user32.dll")>
    Private Shared Function SetWindowLong(
                hWnd As IntPtr, nIndex As Integer,
                dwNewLong As Integer) As Integer
    End Function

    <DllImport("user32.dll")>
    Private Shared Function SetLayeredWindowAttributes(
                hWnd As IntPtr, crKey As Integer,
                bAlpha As Byte, dwFlags As LWA) As Boolean
    End Function

End Class

透過画像のまわりに BackColor が残ってしまいますが、目立たない色を設定しておくといいです。