j'essaie de le transformer en 3dTu dois vouloir parler d'un effet visuel ?
ça ne donne pas comme il fautOn peut savoir ce que ça doit donner ?
Private Sub DesignPanel() Dim pt(11) As Point Dim side As Integer side = 10 pt(0).X = 0 pt(0).Y = side pt(1).X = pt(0).X + pic1.Width - side pt(1).Y = pt(0).Y pt(2).X = pt(1).X pt(2).Y = pt(1).Y + pic1.Height pt(3).X = pt(0).X pt(3).Y = pt(2).Y pt(4) = pt(0) pt(5) = pt(1) pt(6).X = pt(5).X + side pt(6).Y = pt(5).Y - side pt(7).X = side pt(7).Y = pt(6).Y pt(8) = pt(2) pt(9) = pt(1) pt(10) = pt(6) pt(11).X = pic1.Width - side pt(11).Y = pic1.Height - side Dim region(pt.Length - 1) As Byte For x = 0 To pt.Length - 1 region(x) = CType(PathPointType.Line, Byte) Next Dim path As New GraphicsPath(pt, region) pic1.Region = New Region(path) End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question__________ /__________/| | || | || |___________|/
Si oui, tu ne peux prendre que les points extérieurs pour le 'régionage'