transparent all control
Jeg er ved at lave en control hvor man kan se alle controls i gennem den, men bogstaverne bliver tykke, hvordan kan jeg undgå det?.Kode:
Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles Me.Paint
Dim bmp As New Bitmap(Label1.Width, Label1.Height)
Dim grap As Graphics = Graphics.FromImage(bmp)
Dim paintmet As MethodInfo = GetType(Label).GetMethod("OnPaint", BindingFlags.NonPublic Or BindingFlags.Instance)
paintmet.Invoke(Label1, {New PaintEventArgs(grap, New Rectangle(0, 0, Label1.Width, Label1.Height))})
e.Graphics.DrawImage(bmp, 0, 0)
End Sub