J'ai un bouton sur lequel j'ai mis une ligne en couleur. Je souhaiterais
faire apparaître et disparaître la ligne en fonction du déplacement de la
souris.
J'avais déjà vu ça quelle que part mais je ne sais plus ou le trouver.
Voici un ex de code : Option Compare Database Dim intCtrl As Integer
Private Sub Commande0_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Me.Trait.Visible = False Then Me.Trait.Visible = True intCtrl = 0 Me.TimerInterval = 50 Else intCtrl = 1 End If End Sub
Private Sub Form_Timer() If intCtrl = 0 Then Me.Trait.Visible = False Me.TimerInterval = 0 Else intCtrl = 0 End If End Sub
Bonne chance. pgz
Voici un ex de code :
Option Compare Database
Dim intCtrl As Integer
Private Sub Commande0_MouseMove(Button As Integer, Shift As Integer, X As
Single, Y As Single)
If Me.Trait.Visible = False Then
Me.Trait.Visible = True
intCtrl = 0
Me.TimerInterval = 50
Else
intCtrl = 1
End If
End Sub
Private Sub Form_Timer()
If intCtrl = 0 Then
Me.Trait.Visible = False
Me.TimerInterval = 0
Else
intCtrl = 0
End If
End Sub
Voici un ex de code : Option Compare Database Dim intCtrl As Integer
Private Sub Commande0_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Me.Trait.Visible = False Then Me.Trait.Visible = True intCtrl = 0 Me.TimerInterval = 50 Else intCtrl = 1 End If End Sub
Private Sub Form_Timer() If intCtrl = 0 Then Me.Trait.Visible = False Me.TimerInterval = 0 Else intCtrl = 0 End If End Sub
Bonne chance. pgz
3stone
re,
"pgz" | Voici un ex de code : | Option Compare Database | Dim intCtrl As Integer | | Private Sub Commande0_MouseMove(Button As Integer, Shift As Integer, X As | Single, Y As Single)
Pour les (très, très) rares cas ou je joue avec des boutons non standard, - soit j'utilise des étiquettes (label) avec un louck 3D et réaction au clic, couleurs et autres... - soit j'utilise deux images (une relanché et une appuyé) pour créer le bouton
pour la seconde méthode, regarde chez Logipro, il y a un exemple: http://www.logicielappui.com/tips/
-Boîte 3D (2004/05/19) http://www.logicielappui.com/tips/AccXP_Boite3D.zip
"pgz"
| Voici un ex de code :
| Option Compare Database
| Dim intCtrl As Integer
|
| Private Sub Commande0_MouseMove(Button As Integer, Shift As Integer, X As
| Single, Y As Single)
Pour les (très, très) rares cas ou je joue avec des boutons non standard,
- soit j'utilise des étiquettes (label) avec un louck 3D et réaction au clic,
couleurs et autres...
- soit j'utilise deux images (une relanché et une appuyé) pour créer le bouton
pour la seconde méthode, regarde chez Logipro, il y a un exemple:
http://www.logicielappui.com/tips/
-Boîte 3D (2004/05/19)
http://www.logicielappui.com/tips/AccXP_Boite3D.zip
"pgz" | Voici un ex de code : | Option Compare Database | Dim intCtrl As Integer | | Private Sub Commande0_MouseMove(Button As Integer, Shift As Integer, X As | Single, Y As Single)
Pour les (très, très) rares cas ou je joue avec des boutons non standard, - soit j'utilise des étiquettes (label) avec un louck 3D et réaction au clic, couleurs et autres... - soit j'utilise deux images (une relanché et une appuyé) pour créer le bouton
pour la seconde méthode, regarde chez Logipro, il y a un exemple: http://www.logicielappui.com/tips/
-Boîte 3D (2004/05/19) http://www.logicielappui.com/tips/AccXP_Boite3D.zip
C'est bon, j'ai mis le trait.visible sur ldéplacement sur le bouton et invisible sur déplacement sur le form.
Un grand merci.
re,
"pgz" | Voici un ex de code : | Option Compare Database | Dim intCtrl As Integer | | Private Sub Commande0_MouseMove(Button As Integer, Shift As Integer, X As | Single, Y As Single)
Pour les (très, très) rares cas ou je joue avec des boutons non standard, - soit j'utilise des étiquettes (label) avec un louck 3D et réaction au clic, couleurs et autres... - soit j'utilise deux images (une relanché et une appuyé) pour créer le bouton
pour la seconde méthode, regarde chez Logipro, il y a un exemple: http://www.logicielappui.com/tips/
-Boîte 3D (2004/05/19) http://www.logicielappui.com/tips/AccXP_Boite3D.zip
C'est bon, j'ai mis le trait.visible sur ldéplacement sur le bouton et
invisible sur déplacement sur le form.
Un grand merci.
re,
"pgz"
| Voici un ex de code :
| Option Compare Database
| Dim intCtrl As Integer
|
| Private Sub Commande0_MouseMove(Button As Integer, Shift As Integer, X As
| Single, Y As Single)
Pour les (très, très) rares cas ou je joue avec des boutons non standard,
- soit j'utilise des étiquettes (label) avec un louck 3D et réaction au clic,
couleurs et autres...
- soit j'utilise deux images (une relanché et une appuyé) pour créer le bouton
pour la seconde méthode, regarde chez Logipro, il y a un exemple:
http://www.logicielappui.com/tips/
-Boîte 3D (2004/05/19)
http://www.logicielappui.com/tips/AccXP_Boite3D.zip
C'est bon, j'ai mis le trait.visible sur ldéplacement sur le bouton et invisible sur déplacement sur le form.
Un grand merci.
re,
"pgz" | Voici un ex de code : | Option Compare Database | Dim intCtrl As Integer | | Private Sub Commande0_MouseMove(Button As Integer, Shift As Integer, X As | Single, Y As Single)
Pour les (très, très) rares cas ou je joue avec des boutons non standard, - soit j'utilise des étiquettes (label) avec un louck 3D et réaction au clic, couleurs et autres... - soit j'utilise deux images (une relanché et une appuyé) pour créer le bouton
pour la seconde méthode, regarde chez Logipro, il y a un exemple: http://www.logicielappui.com/tips/
-Boîte 3D (2004/05/19) http://www.logicielappui.com/tips/AccXP_Boite3D.zip
