Soyez le premier à donner votre avis sur cette source.
Vue 4 095 fois - Téléchargée 296 fois
Public AncienX, AncienY As Long Public Tracer_Possible As Boolean Private Sub Command1_Click() Select Case Command1.Tag Case "" Command1.Caption = "Sans petits carres" Command1.Tag = "carre" Case "carre" Command1.Caption = "Avec des petits carres" Command1.Tag = "" End Select End Sub Private Sub Form_Load() 'initialisation des coordonnes des anciens x et Y AncienX = 9999 AncienY = 9999 End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) 'si on appuie sur la souris alors : 'on peut dessiner Tracer_Possible = True 'les ancinennes positions de X sont remis a jours AncienX = X AncienY = Y End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 'si la souris bouge 'et que l'on peut ecrire If Tracer_Possible Then 'on dessine 'line debut-fin 'choix avec ou sans petits carre! Select Case Command1.Tag Case "" Line (AncienX, AncienY)-(X, Y) Case "carre" Line (AncienX, AncienY)-(X, Y), 256, B End Select 'on initialise AncienX = X AncienY = Y End If End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Tracer_Possible = False End Sub
3 avril 2004 à 16:07
3 avril 2004 à 03:24
1 nov. 2003 à 16:17
pour changer la couleur :
line(x1,y1)-(x2,y2),couleur
où couleur peut par exemple etre vbblue ou rgb(0à255,0à255,0à255)
pour rendre le tracé indélébile : dans l'édition de la feuille : dans les propriétés il faut mettre autoredraw=true
(cette propriété est super important pour beaucoup de choses graphiques, parfois il faut mettre true parfois false si tu apelles certaines procédure des dll graphiques)
31 oct. 2003 à 22:13
j'ai trouvé quelques sources sur ce site avec des traits permanents..
31 oct. 2003 à 18:47
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.