Discussion :

[snyve]

Bonjour à tous,

Voilà mon problème, j'aimerais créer une vanne en Visual Basic 6. Mais le problème est de créer la vanne, car il n'y a pas de triangle en VB6.
Je sais que le problème du triangle a déjà été traité, mais il a été fait en code et non au niveau graphique, ce qui n'arrange pas mon problème.
Quelqu'un a trouvé une solution ? ou a créé un ocx capable de dessiner des triangles ?

J'attend vos réponses. merci d'avance.

[ucfoutu]

Bonjour,

un OCX pour si peu ?
Bé !....
Tiens, on va se contenter (il y a mieux, mais on va rester au niveau le plus simple de vb, juste pour voir...) de ceci :

Une Form avec une picturebox Picture1 et ce code à 4 sous percés :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Form_Activate()
  Picture1.Move Me.Width / 8, Me.Height / 8, Me.Width / 2, Me.Height / 2
  Picture1.ScaleMode = 3
   Picture1.AutoRedraw = True
  For I = 0 To Picture1.ScaleWidth
    Picture1.Line (Picture1.ScaleWidth / 2, 0)-(I, Picture1.ScaleHeight), vbRed
  Next
End Sub

Lance.

Fais ensuite ce que tu veux, selon le même principe ultra simple...

Bonne continuation...

[Mat.M]

Sinon tu peux passer par des Metafiles c'est vrai prendre un OCX pour dessiner si peu c'est pas nécessaire.