A
Ashaar
Guest
Bonjour le forum,
Pour sélectionner les onglets d'un contrôle MultiPage directement en déplaçant la souris j'ai calculé la position X et Y des onglets.
Mais si je voulais changer la largeur des onglets je devrai recalculer mes bornes X.
N'y aurait il pas un peu plus simple ?
Private Sub MultiPage1_MouseMove(ByVal Index As Long, ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If X < 39 And Y < -0.75 Then MultiPage1.Value = 0
If X > 39 And X < 71 And Y < -0.75 Then MultiPage1.Value = 1
If X > 71 And X < 98 And Y < -0.75 Then MultiPage1.Value = 2
Me.Repaint
End Sub
Merci.
Pour sélectionner les onglets d'un contrôle MultiPage directement en déplaçant la souris j'ai calculé la position X et Y des onglets.
Mais si je voulais changer la largeur des onglets je devrai recalculer mes bornes X.
N'y aurait il pas un peu plus simple ?
Private Sub MultiPage1_MouseMove(ByVal Index As Long, ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If X < 39 And Y < -0.75 Then MultiPage1.Value = 0
If X > 39 And X < 71 And Y < -0.75 Then MultiPage1.Value = 1
If X > 71 And X < 98 And Y < -0.75 Then MultiPage1.Value = 2
Me.Repaint
End Sub
Merci.
