transparent all control
Den control skal være gennemsigtig så man kan se alle controls igennem.Jeg har prøvet at kalde "Control.onPaintBackground" og "Control.onPaint" og det eneste der er galt, det er teksten, når jeg bruger denne funktion kommer til at stå i det ene hjørne.
http://madshaupt.dk/Uploads/form.png
Kode:
Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles Me.Paint
Dim paintbackground As MethodInfo = GetType(Button).GetMethod("OnPaintBackground", BindingFlags.NonPublic Or BindingFlags.Instance)
Dim paint As MethodInfo = GetType(Button).GetMethod("OnPaint", BindingFlags.NonPublic Or BindingFlags.Instance)
e.Graphics.TranslateTransform(200, 200)
paintbackground.Invoke(CheckBox1, {New PaintEventArgs(e.Graphics, New Rectangle(0, 0, CheckBox1.Width, CheckBox1.Height))})
paint.Invoke(CheckBox1, {New PaintEventArgs(e.Graphics, New Rectangle(200, 200, CheckBox1.Width, CheckBox1.Height))})
End Sub
Dim paintbackground As MethodInfo = GetType(Button).GetMethod("OnPaintBackground", BindingFlags.NonPublic Or BindingFlags.Instance)
Dim paint As MethodInfo = GetType(Button).GetMethod("OnPaint", BindingFlags.NonPublic Or BindingFlags.Instance)
e.Graphics.TranslateTransform(200, 200)
paintbackground.Invoke(CheckBox1, {New PaintEventArgs(e.Graphics, New Rectangle(0, 0, CheckBox1.Width, CheckBox1.Height))})
paint.Invoke(CheckBox1, {New PaintEventArgs(e.Graphics, New Rectangle(200, 200, CheckBox1.Width, CheckBox1.Height))})
End Sub
