Comment afficher une barre verticale (en restant enfoncé sur le bouton gauche de

kouby2k3 Messages postés 13 Date d'inscription samedi 8 novembre 2003 Statut Membre Dernière intervention 28 novembre 2004 - 25 sept. 2004 à 15:38
MadM@tt Messages postés 2167 Date d'inscription mardi 11 novembre 2003 Statut Membre Dernière intervention 16 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.

1 réponse

MadM@tt Messages postés 2167 Date d'inscription mardi 11 novembre 2003 Statut Membre Dernière intervention 16 juillet 2009 1
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


@ +
MadMatt
0
Rejoignez-nous