| |
Tracer une ligne 
Paramètres en entrée : Ligne (line),DébutX (long),DébutY (long),FinX (long),FinY (long),StyleTrait (BorderStyleConstants),EpaisseurTrait (entier),Couleur (ColorConstants)
Paramètres en sortie : Aucun
Description : Trace un ligne en donnant les coordonnées de début et de fin ainsi que le style et l’épaisseur du trait et sa couleur
Public Sub TraceLigne(Ligne As Line, DébutX As Long, DébutY As Long, FinX As Long, FinY As Long, StyleTrait As BorderStyleConstants, EpaisseurTrait As Integer, Couleur As ColorConstants)
Ligne.X1 = DébutX
Ligne.Y1 = DébutY
Ligne.X2 = FinX
Ligne.Y2 = FinY
Ligne.BorderStyle = StyleTrait
Ligne.BorderWidth = EpaisseurTrait
Ligne.BorderColor = Couleur
End Sub
|
|
IDDN Certification
