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 が残ってしまいますが、目立たない色を設定しておくといいです。

■No35303に返信(ま〜さんの記事)
> 貼り付けました。

エラーを選択して右クリックすると内容をコピーできます。

重大度レベル	コード	説明	プロジェクト	ファイル	行	抑制状態
エラー	BC30311	型 'RadioButton' の値を 'VisualStyleElement.Button.RadioButton' に変換できません。	WindowsApp1	D:\TEST\WindowsApp1\WindowsApp1\Form1.vb	5	アクティブ

こんな感じ。

Imports System.Windows.Forms.VisualStyles.VisualStyleElement.Button

が書いてあるとこのエラーになりますが、使っているんでしょうか？

■No35181に返信(魔界の仮面弁士さんの記事)
> 本当は、そもそもフォーカスを受け取らないようにするか、
> あるいはせめて、前回フォーカスのあったコントロールに戻す方が
> 望ましいのですけれど…ひとまず手抜き実装ということで。

RichTextBox を非表示にして親に描画するとか。

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        RichTextBox1.Visible = False
        RichTextBox1.Text = "こんにちは！"
        RichTextBox1.SelectionStart = 5
        RichTextBox1.SelectionLength = 1
        RichTextBox1.SelectionColor = Color.White
        RichTextBox1.SelectionBackColor = Color.Red
    End Sub

    Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles MyBase.Paint
        Using bmp As New Bitmap(RichTextBox1.Width, RichTextBox1.Height)
            RichTextBox1.DrawToBitmap(bmp, New Rectangle(New Point(0, 0), RichTextBox1.Size))
            e.Graphics.DrawImage(bmp, RichTextBox1.Location)
        End Using
    End Sub

End Class