■No35467に返信(くるりさんの記事)
> 親コントロールと同色のReadonlyのTextboxを設置したいのですが、何か良い方法はあるでしょうか。
DrawToBitmap で bmp に描画して、GetPixel で色を取得するとか。
Public Class Form1
Private Sub Form1_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
Dim sz = TabPage1.Size
Using bmp As New Bitmap(sz.Width, sz.Height)
TabPage1.DrawToBitmap(bmp, New Rectangle(Point.Empty, sz))
Dim bkColor = bmp.GetPixel(1, 1)
TextBox1.BackColor = bkColor
End Using
End Sub
End Class