Bonjour,


je suis entrain de faire un traçage de flèche de ce tuto la

J'ai quelque soucis :

dans la fonction TraceFlch j'ai un souci avec Couleur je le remplace par LngBlck car je veux que mes fleche soit noire

Synthaxe d'origine :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Function TraceFlch(ByVal Couleur As Long, ByVal Taille As Long, ByVal Angle As Double) 
 
Dim v As Variant
Const CoeffTaille   As Double = 0.1         'Taille de la pointe : 10% longueur fleche
Const DecalAngle    As Double = 15          'Angle de la pointe : 5° par rapport au corps
 
'Définition de la couleur
 
    trCorps.BorderColor = Couleur
    trGauche.BorderColor = Couleur
    trDroit.BorderColor = Couleur
J'ai donc modifier :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Function TraceFlch(ByVal Taille As Long, ByVal Angle As Double)
 
Dim v As Variant
Const CoeffTaille   As Double = 0.1         'Taille de la pointe : 10% longueur fleche
Const DecalAngle    As Double = 15          'Angle de la pointe : 5° par rapport au corps
 
Dim lngBlack As Long
 
lngBlack = RGB(0, 0, 0)
 
'Définition de la couleur
 
    trCorps.BorderColor = lngBlack
    trGauche.BorderColor = lngBlack
    trDroit.BorderColor = lngBlack
...
Le souci est qu'il me sort une erreur sur cet ligne est je ne sait pas pourquoi