Comment afficher une barre verticale (en restant enfoncé sur le bouton gauche de
kouby2k3
Messages postés13Date d'inscriptionsamedi 8 novembre 2003StatutMembreDernière intervention28 novembre 2004
-
25 sept. 2004 à 15:38
MadM@tt
Messages postés2167Date d'inscriptionmardi 11 novembre 2003StatutMembreDernière intervention16 juillet 2009
-
25 sept. 2004 à 20:20
Bonjour @ tous,
je tiens a remercier tte l'équipe de VBFrance, c une très bonne base de données pour apprendre à programmer avec VB. D'ailleurs, c la première question que je pose dans le forum car ttes mes autres questions étaient déjà traitées.
Donc, le but de ma question est de comprendre comment afficher une barre verticale dans une PictureBox, qui translate sur l'axe des abscisses en fonction de la souris, (visible en restant appuyé sur le bouton gauche de la souris).
Thanks in advance.
koub.
A voir également:
Comment afficher une barre verticale (en restant enfoncé sur le bouton gauche de
MadM@tt
Messages postés2167Date d'inscriptionmardi 11 novembre 2003StatutMembreDernière intervention16 juillet 20091 25 sept. 2004 à 20:20
Si j'ai bien compris ce que tu demande, essaye ce code :
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.Cls
If Button = 1 Then
Picture1.Line (X, 0)-(X, Picture1.ScaleHeight)
End If
End Sub