Evenement "Click" sur les Boutons

"Dan" <no@spam.net> a écrit dans le message de
news:utQ5e0q7FHA.808@TK2MSFTNGP09.phx.gbl...

Salut

J'aimerais savoir s'il y a moyen d'executer l'evenement on click sur un
bouton tant que la souris n'est pas relaché.

Mon bouton sert a monter ou à descendre la valeur d'un champ

SetPoint(Index).Text = Val(SetPoint(Index).Text) + 1

Pour l'instant, l'usager doit relacher et appuyer constament sur le bouton
de la souris pour changer la valeur.

Merci !

Demo de comment on peut le faire
Ajouter un timer1 et un bouton commande1 sur un form, mettre timer1 enabled
sur false , interval 100


Private Sub Command1_Click()
Debug.Print ".";
End Sub

Private Sub Command1_LostFocus()
Me.Timer1.Enabled = False
End Sub

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As
Single, Y As Single)
Me.Timer1.Enabled = True
End Sub

Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As
Single, Y As Single)
Me.Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
Call Command1_Click
End Sub

Bonjour Dan,
Dan a écrit :

Salut

J'aimerais savoir s'il y a moyen d'executer l'evenement on click sur un
bouton tant que la souris n'est pas relaché.

Mon bouton sert a monter ou à descendre la valeur d'un champ

SetPoint(Index).Text = Val(SetPoint(Index).Text) + 1

Pour l'instant, l'usager doit relacher et appuyer constament sur le bouton
de la souris pour changer la valeur.

Merci !

Pourquoi ne pas utiliser le contrôle UpDown inclu dans Microsoft Windows
Common Controls-2 6.0 (MsComct2.ocx), en utilisant les propriétes :

UpDown1.AutoBuddy = True
ou
UpDown1.BuddyControl = SetPoint(Index)

et
UpDown1.BuddyProperty = Text

ça marche tout seul, ton TextBox est incrémenté / décrémenté. Tu peux
indiquer les valeurs Mini / Maxi ainsi que la valeur d'incrémentation.

--
Cordialement,

Jacques.