J'ai besoin de votre aide

Signaler
Messages postés
2
Date d'inscription
jeudi 24 octobre 2002
Statut
Membre
Dernière intervention
24 octobre 2002
-
Messages postés
2
Date d'inscription
jeudi 24 octobre 2002
Statut
Membre
Dernière intervention
24 octobre 2002
-
Bonjour

J'ai vraiment besoin de votre aide. Sur un FORM, je place 2 line et je souhaite qu'ils convergent vers la position de la souris quelque soit son deplacement . Jusque la tout va bien.
Le pb est que ma forme porte un msflexgrid et malheureusement les lignes sont cachées quand la souris est dessus. Si quelqu'un à connait le truc pour que les lignes apparaissent meme au dessus de la souris ca serait vraiment sympa.

je vous donne le code de la form avec les deux lignes pour tester il faudra rajoutter le msflexgrid.

Merci à tous pourvotre aide
seradji
******************************

Dim art As Boolean

Private Sub Form_Load()
Line1.Item(1).Visible = False
Line1.Item(0).Visible = False
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
art = True
CurrentY = Y
CurrentX = X
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If art Then

Line1.Item(1).Visible = True
Line1.Item(1).X1 = 120
Line1.Item(1).X2 = X
Line1.Item(1).Y1 = Y
Line1.Item(1).Y2 = Y

Line1.Item(0).Visible = True
Line1.Item(0).X1 = X
Line1.Item(0).X2 = X
Line1.Item(0).Y1 = 120
Line1.Item(0).Y2 = Y

End If

End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
art = False
End Sub

1 réponse

Messages postés
2
Date d'inscription
jeudi 24 octobre 2002
Statut
Membre
Dernière intervention
24 octobre 2002

pardon : la question est:

Si quelqu'un à connait le truc pour que les lignes apparaissent meme au dessus du MSFLEXGRID ca serait vraiment sympa

MERCI Pour votre aide
0