Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Label110.BackColor = Drawing.Color.Transparent
End Sub
пример без единой строки кода!
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Pan As New Panel
Dim Lbl As New Label
Pan.Location = New Point(10, 10)
Pan.BorderStyle = BorderStyle.FixedSingle
Pan.BackColor = Color.Azure
Dim Bmp As New Bitmap(Pan.ClientSize.Width, Pan.ClientSize.Height)
Dim G As Graphics = Graphics.FromImage(Bmp)
G.Clear(Pan.BackColor)
G.FillRectangle(Brushes.Red, 35, 10, 70, 40)
G.Dispose()
Pan.BackgroundImageLayout = ImageLayout.None
Pan.BackgroundImage = Bmp
Pan.Anchor = AnchorStyles.Bottom _
Or AnchorStyles.Left _
Or AnchorStyles.Right _
Or AnchorStyles.Top
Lbl.Location = New Point(10, 10)
Lbl.Text = "myLabel"
Lbl.BackColor = Color.Transparent
Lbl.Anchor = AnchorStyles.Top Or AnchorStyles.Right
Pan.Controls.Add(Lbl)
Me.Controls.Add(Pan)
End Sub
почему, очень даже в духе, сегодня утвердили наконец план проэкта
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 63