eh non lo so manco io xke c'è quel quadrato nero..non ha molto senso...Originariamente inviato da Stoicenko
Posta il codice dell'on paint dei due controlli e spiega meglio.. cosi non si capisce bene cosa sia il rettangolo nero (?)
i due paint
Private Sub Class2_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
e.Graphics.Clear(Color.Transparent)
Dim grapiscs As Graphics
Dim penColor As Brush
grapiscs = Me.CreateGraphics
penColor = Brushes.Red
grapiscs.FillRectangle(penColor, 80, 30, 40, 40)
End Sub
Private Sub Class1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
e.Graphics.Clear(Color.Transparent)
Dim grapiscs As Graphics
Dim penColor As Brush
grapiscs = Me.CreateGraphics
penColor = Brushes.Aqua
grapiscs.FillEllipse(penColor, 80, 50, 20, 20)
End Sub
il risultato facendo
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim prova1 As New Class1
Dim prova2 As New Class2
Controls.Add(prova1)
Controls.Add(prova2)
End Sub
è un cerchio azzurro acqua sopra un quadrato nero che non so da dove cicci fuori..