Dessinner un triangle plein avec VB6 [Résolu]

Messages postés
61
Date d'inscription
dimanche 21 décembre 2003
Dernière intervention
18 janvier 2009
- - Dernière réponse : JonasVB
Messages postés
61
Date d'inscription
dimanche 21 décembre 2003
Dernière intervention
18 janvier 2009
- 25 août 2004 à 14:48
Salut !
Quelqu'un pourrait-il me dire comment je peux dessiner un triangle avec un fond coloré dans VB5/VB6 ?
Jonas :big)
Afficher la suite 

3 réponses

Meilleure réponse
Messages postés
4530
Date d'inscription
dimanche 29 septembre 2002
Dernière intervention
23 décembre 2014
3
Merci
Option Explicit

Private Type POINTAPI
    x As Long
    y As Long
End Type

Private Declare Function Polygon Lib "gdi32" (ByVal hdc As Long, lpPoint As Any, ByVal nCount As Long) As Long

Private Sub Command1_Click()
    Dim Points(2) As POINTAPI
    Points(0).x = 0
    Points(0).y = 0
    Points(1).x = 100
    Points(1).y = 0
    Points(2).x = 50
    Points(2).y = 50
    Me.FillStyle = vbSolid
    Me.FillColor = vbRed
    Polygon Me.hdc, Points(0), 3
End Sub


@+

E.B.

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 98 internautes nous ont dit merci ce mois-ci

Messages postés
61
Date d'inscription
dimanche 21 décembre 2003
Dernière intervention
18 janvier 2009
0
Merci
Merci !
je test ça tout de suite.
Jonas :big)
Messages postés
61
Date d'inscription
dimanche 21 décembre 2003
Dernière intervention
18 janvier 2009
0
Merci
ça marche impec !
Merci beaucoup !
Jonas :big)

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.