couleur d' un objet Line

Question

Salut tout le monde les gens !!!

Est ce qu' on peux changer la couleur d' un objet Line????
Ds la propriete borderColor je ne trouve pas celle que ja veux : le rouge...

Merci 
A+

cs_thephil · Answer

quand tu cliques sur la propriété bordercolor, tu arrives par défaut dans l'onglet système, il faut cliquer sur palette et là tu auras le rouge ...
je vois pas ce que ça peut être d'autre !

Allez, on tient le bon bout ....

patl76 · Answer

Merci pour ce detail non sans importance ; J' avais pas fais gaffe !!!

A+

patl76 · Answer

Je sais que ca a l' air plutot simple mais comment je peux faire pour deplacer ma droite (rouge) verticalement en ne faisant varier que X1 & X2..
J' ai essaye mais il n' y a qua X1 qui bouge ...
 Voici mon code:

        t = cbJour.Text + " " + cbMois.Text + " " + cbAns.Text
        
        Do
            Rep = t
        Loop While (Not IsDate(Rep))
            dat = Rep
             lJour.X1 lJour.X2 8 + position("01/01/2004", dat)
        
position est une fonction qui compte le nombre de jour entre date1 & date2
lJour c' est ma Line

Au depart X1=X2 donc elle est bien verticale mais apres cela elle ne se deplace qu' en haut : apparament le X2 ne bouge pas 

Pourquoi ca marche paaaaaaaaaaaaaas ????????????

cs_rene38 · Answer

Bonjour

Pour le rouge, Line.BorderColor = vbRed

pour le reste, ma réponse sur un autre post

cs_machto · Answer

Bonjour.
J'utilise la commande "Line(x1,y1)-(x2,y2), couleur" pour tracer une ligne en deux clicks.

Je ne sais pas comment changer l'epaisseur et le style de cette ligne afin de pouvoir les différencier les unes des autres dans une même couleur (données dans un fichier).
merci de votre aide.
Sinon, y-a-t-il une autre methode? (un click détermine x1,y1 et le 2° pour x2,y2)

Merci
M@chto

cs_rene38 · Answer

Bonjour

2ème question :

Dim x1, y1, x2, y2, fois

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
fois = fois + 1
If fois Mod 2 = 1 Then   x1 X: y1 Y
Else   x2 X: y2 Y
   Line (x1, y1)-(x2, y2)
End If
End Sub


DrawStyle =
0 ___________
1 ___ ___ ___
2 - - - - - - -
etc ...
Voir aussi DrawMode = 1, 2, ...., 16
épaisseur : DrawWidth = nombre de pixels

cs_machto · Answer

Bonjour et merci.
Je vais essayer.
A+
M@chto

Couleur d' un objet Line

7 réponses

Discussions similaires