Dessinner un triangle plein avec VB6 [Résolu]

JonasVB 61 Messages postés dimanche 21 décembre 2003Date d'inscription 18 janvier 2009 Dernière intervention - 25 août 2004 à 10:08 - Dernière réponse : JonasVB 61 Messages postés dimanche 21 décembre 2003Date d'inscription 18 janvier 2009 Dernière intervention
- 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
cs_EBArtSoft 4530 Messages postés dimanche 29 septembre 2002Date d'inscription 23 décembre 2014 Dernière intervention - 25 août 2004 à 11:09
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.

Merci cs_EBArtSoft 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 98 internautes ce mois-ci

JonasVB 61 Messages postés dimanche 21 décembre 2003Date d'inscription 18 janvier 2009 Dernière intervention - 25 août 2004 à 13:26
0
Merci
Merci !
je test ça tout de suite.
Jonas :big)
JonasVB 61 Messages postés dimanche 21 décembre 2003Date d'inscription 18 janvier 2009 Dernière intervention - 25 août 2004 à 14:48
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.