Bonjour,
dans un panel, je fais un dégradé de couleur
dans ce panel je met un label avec comme backcolor = "Transparent", à l'execution, mon panel n'est pas transparent ...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 Dim g As Graphics = e.Graphics Dim newpen As New Pen(Color.White, 1) Dim zone As New Rectangle(0, 0, Panel1.Width, Panel1.Height) Dim degrad As New LinearGradientBrush(zone, Color.WhiteSmoke, Color.SteelBlue, LinearGradientMode.Horizontal) g = Graphics.FromHwnd(Panel1.Handle) g.DrawRectangle(newpen, zone) g.FillRectangle(degrad, zone)
comment puis je faire ?
Merci
Partager