dede59620
Messages postés
23
Date d'inscription
vendredi 15 octobre 2004
Statut
Membre
Dernière intervention
31 juillet 2017
21 oct. 2004 à 22:17
Un superbe réservoir avec un tube, on voit même l'arriere en pointillé. à coller dans une pictureBox1 fraichement créée
Picture1.DrawStyle = 0
Picture1.Line (100, 500)-(100, 2000)
Picture1.Line (3000, 2000)-(3000, 500)
'tube pransparent
Picture1.DrawStyle = 2
Picture1.Line (1400, 2000)-(1400, 2300)
Picture1.Line (1600, 2000)-(1600, 2300)
'trou transparent
Picture1.Circle (1500, 2000), 100, 0, 0, , 0.3
'tube apparent
Picture1.DrawStyle = 0
Picture1.Line (1400, 2300)-(1400, 3000)
Picture1.Line (1600, 2300)-(1600, 3000)
'trou apparent
Picture1.Circle (1500, 3000), 100, 0, 3.1415926535, 0, 0.3
'capot
Picture1.DrawStyle = 0
Picture1.Circle (1550, 500), 1450, 0, 0, , 0.3
'fond apparent
Picture1.Circle (1550, 2000), 1450, 0, 3.1415926535, 0, 0.3
'fond transparent
Picture1.DrawStyle = 2
Picture1.Circle (1550, 2000), 1450, 0, 0, 3.1415926535, 0.3
Dédé