解決済みチェックはそのままにしておきます。


■No35309に追記(魔界の仮面弁士の記事)
> 別にマウス操作に限る必要は無いのなら、継承フォーム側で OnControlAdded を
> オーバーライドして Button の追加を追跡しておき、そのボタンに対して
> GotFocus/Enter/MouseDown/Click イベントを追跡するのが良いと思います。

Button の Click イベントと Enter イベントを継承元フォームで捉えて
独自の ControlClick / ControlEnter イベントとして発生させてみました。

イベント引数 e.Control から、対象の Button オブジェクトを得られます。

private void Form1_ControlClick(object sender, ControlEventArgs e)
{
    listBox1.Items.Insert(0, $"{DateTime.Now:HH:mm:ss.ffff}/Click: {e.Control.Text}");
}
private void Form1_ControlEnter(object sender, ControlEventArgs e)
{
    listBox1.Items.Insert(0, $"{DateTime.Now:HH:mm:ss.ffff}/Enter: {e.Control.Text}");
}


ベースクラスの実装はこんな感じ。


// ---> SakuFormBase.cs --->
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Linq;
using System.Windows.Forms;
using System.Collections;

[DefaultEvent(nameof(SakuFormBase.ControlClick))]
public class SakuFormBase : Form
{
    // 実際には InitializeComponent(); の呼び出し等も記述
    public SakuFormBase() { }

    #region 公開イベント
    // ControlClick イベントという名に反して、Button にしか反応させていなかったりする
    [Category("Action"), Description("フォーム上の Button がクリックされた時に発生します。")]
    public event ControlEventHandler ControlClick;
    [Category("Focus"), Description("フォーム上の Button がアクティブになった時に発生します。")]
    public event ControlEventHandler ControlEnter;
    /// <summary><see cref="ControlClick"/> イベントを発生させます。</summary>
    protected virtual void OnControlClick(ControlEventArgs e) => ControlClick?.Invoke(this, e);
    /// <summary><see cref="ControlEnter"/> イベントを発生させます。</summary>
    protected virtual void OnControlEnter(ControlEventArgs e) => ControlEnter?.Invoke(this, e);
    #endregion

    #region 内部処理
    protected override void OnControlAdded(ControlEventArgs e)
    {
        base.OnControlAdded(e);
        // 子コントロールが追加されたら、Click/Enter イベントを捉える
        AttachEvents(e.Control);
    }
    private void AttachEvents(Control control)
    {
        if (control is Button button)
        {
            // Button が追加された時はイベントを追跡
            if (subscribes.Add(control))
            {
                var a = new ControlEventArgs(control);
                button.Click += (sender, e) => OnControlClick(a);
                button.Enter += (sender, e) => OnControlEnter(a);
            }
        }
        else
        {
            // Button で無ければ、さらにその配下のコントロールに対して再帰的に追跡
            if (subscribes.Add(control))
            {
                control.ControlAdded += (sender, e) => AttachEvents(control);
            }
            foreach (var c in control.GetControls<Control>())
            {
                AttachEvents(c);
            }
        }
    }
    // イベントを追跡済みかどうかを管理
    private HashSet<Control> subscribes = new HashSet<Control>();
    #endregion
}
internal static class ControlExtensions
{
    /// <summary>
    /// 指定した型の子孫コントロールを列挙する
    /// </summary>
    public static IEnumerable<T> GetControls<T>(this Control control) where T : Control
    {
        var controls = control.Controls.OfType<Control>();
        return controls.OfType<T>().Concat(controls.SelectMany(c => GetControls<T>(c)));
    }
}
// <--- SakuFormBase.cs ---


ControlAdded イベント(OnControlAdded メソッド)を用いているのは、
Button の追加が実行時に動的に行われた場合に備えるためのものです。
(今回、ControlRemoved イベントの追跡は省略しています)

デザイン時の画面構成のままで、ボタン数の増減が無いような場合は、
Load 完了後に全 Button を列挙して捉えるだけでも十分かと思います。

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

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

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

こんな感じ。

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

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

2022/12/09(Fri) 04:27:45 編集(投稿者)

■No35275に返信(ま〜さんの記事)
>>高 DPI 環境で実行している場合は、ズレる可能性がありますね。
> まさにこれが原因でした。凄いです感激です。

これ動きますか？
ちょっと問題があって、画像を縮小するせいか、少しぼやけた感じになります。
,NET Framework 4.7 以上なら RichTextBox の DrawToBitmap を使ったほうがいいかもしれません。

Imports System.Runtime.InteropServices

Public Class Form1

    <DllImport("User32.dll")>
    Public Shared Function LogicalToPhysicalPointForPerMonitorDPI(ByVal hwnd As IntPtr, ByRef point As Point) As Boolean
    End Function

    Private Shared Function LogicalToPhysicalRectangleForPerMonitorDPI(ByVal hwnd As IntPtr, ByVal r As Rectangle) As Rectangle
        Dim p1 As Point = r.Location
        Dim p2 As Point = New Point(r.Right, r.Bottom)
        LogicalToPhysicalPointForPerMonitorDPI(hwnd, p1)
        LogicalToPhysicalPointForPerMonitorDPI(hwnd, p2)
        Return Rectangle.FromLTRB(p1.X, p1.Y, p2.X, p2.Y)
    End Function

    Private Function LogicalToPhysicalRectangleForPerMonitorDPI(ByVal r As Rectangle) As Rectangle
        Return LogicalToPhysicalRectangleForPerMonitorDPI(Handle, r)
    End Function

    Public Sub New()
        InitializeComponent()
        PictureBox1.SizeMode = PictureBoxSizeMode.Zoom
        PictureBox1.Size = RichTextBox1.Size
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim rectangle1 = RectangleToScreen(RichTextBox1.Bounds)
        Dim rectangle2 = LogicalToPhysicalRectangleForPerMonitorDPI(rectangle1)
        Dim bmp = New Bitmap(rectangle2.Width, rectangle2.Height)
        Using g = Graphics.FromImage(bmp)
            g.CopyFromScreen(rectangle2.Location, Point.Empty, rectangle2.Size)
        End Using
        If PictureBox1.Image IsNot Nothing Then
            PictureBox1.Image.Dispose()
        End If
        PictureBox1.Image = bmp
    End Sub

End Class

■No35280に返信(ま〜さんの記事)
> こんにちは、体調を崩して回答が遅れました。すみません。

お大事に。

> ですがTabPage環境化ではズレました。
> Parentをと思って色々やってみましたが中々上手くいかずTabPage下の座標知る方法はないのでしょうか？

むむむ、やっかいですね高DPI。
スクリーン座標を取るのが目的でないなら、以下のコードでキャプチャはできると思います。

Imports System.Runtime.InteropServices

Public Class Form1

    Public Sub New()
        InitializeComponent()
        PictureBox1.SizeMode = PictureBoxSizeMode.Zoom
        PictureBox1.Size = RichTextBox1.Size
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim bmp = CreateBitmapFromControl(RichTextBox1)
        If PictureBox1.Image IsNot Nothing Then
            PictureBox1.Image.Dispose()
        End If
        PictureBox1.Image = bmp
    End Sub

    Private Const SRCCOPY As Integer = &HCC0020

    <DllImport("User32.dll")>
    Private Shared Function GetWindowDC(hWnd As IntPtr) As IntPtr
    End Function

    <DllImport("user32.dll")>
    Private Shared Function ReleaseDC(hWnd As IntPtr, hDC As IntPtr) As Boolean
    End Function

    <DllImport("gdi32.dll")>
    Private Shared Function BitBlt(hdcDest As IntPtr,
                                   nXDest As Integer, nYDest As Integer,
                                   nWidth As Integer, nHeight As Integer,
                                   hdcSrc As IntPtr,
                                   nXSrc As Integer, nYSrc As Integer,
                                   dwRop As Integer) As Boolean
    End Function

    Private Shared Function CreateBitmapFromControl(con As Control) As Bitmap
        Dim cs = con.Size
        Dim bmp As New Bitmap(cs.Width, cs.Height)
        Using g = Graphics.FromImage(bmp)
            Dim hdcDest = g.GetHdc()
            Dim hdcSrc = GetWindowDC(con.Handle)
            BitBlt(hdcDest, 0, 0, cs.Width, cs.Height, hdcSrc, 0, 0, SRCCOPY)
            ReleaseDC(con.Handle, hdcSrc)
            g.ReleaseHdc()
        End Using
        Return bmp
    End Function

End Class