Bouton up_down

Soyez le premier à donner votre avis sur cette source.

Vue 5 795 fois - Téléchargée 613 fois

Description

Bonjours à tous ,
Je suis tombé récement sur un programme (écrit en Delphi , je pense) qui comportait des petits boutons sympas qui feraient merveille dans une appli en cours de devellopement .
J'ai tenté de trouver quelque chose qui ressemble sur le net , mais je n'ai rien trouvé , alors je l'ai fait .
C'est un petit truc sans prétention qui ne mérite même pas une note , mais qui pourrait servir à d'autres , voila pourquoi je le poste .
Le bouton gére les évenements suivants :
MouseUp
MouseDown
MouseMove
Click (1 ou 2 suivant le bouton clické) .
On peut bien sur ajouter tout ce que l'on veut , mais il me convient comme ça ...
Voila , bonne prog à tous .

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cs_epson1
Messages postés
89
Date d'inscription
dimanche 12 novembre 2000
Statut
Membre
Dernière intervention
29 mars 2013
-
nan c'est pas ça non plus . je cherche toujours .
cs_epson1
Messages postés
89
Date d'inscription
dimanche 12 novembre 2000
Statut
Membre
Dernière intervention
29 mars 2013
-
je n'ai pas tout compris à tes explications , PCPT , mais je crois que ce qui se trouve dans la sub MouseDown devrait se trouver dans la sub click du usercontrole. Est-ce que j'ai raison ?
PCPT
Messages postés
13298
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
24 -
umm non c'est toujours pas bon

utilise le CLICK du usercontrol, non?

et même sans (si tu ne veux pas) => le click se déclenche après le UP
toi ici tu le fais avant le DOWN

et tes DOWN et UP arrivent encore trop tôt
cs_epson1
Messages postés
89
Date d'inscription
dimanche 12 novembre 2000
Statut
Membre
Dernière intervention
29 mars 2013
-
Hummm , ça y'est j'ai trouvé l'erreur , merci PCPT . Le zip est mis à jour .
cs_epson1
Messages postés
89
Date d'inscription
dimanche 12 novembre 2000
Statut
Membre
Dernière intervention
29 mars 2013
-
Bien le bonjours à tous ,
PCPT , je suis d'accord avec toi , j'avais bien trouvé le common controle mais je ne le trouve pas trés beau .
Par contre je ne comprends pas le fait de relever les évènements avant de mettre la bonne image , regarde :
Sub UserControl_MouseDown
RaiseEvent MouseDown(Button, Shift, X, Y)

If Interieur(CDbl(X), CDbl(Y)) Then
Tmp = 1
Set UserControl.Picture = ImageList1.ListImages(2).Picture
RaiseEvent Click(1)
Else
Tmp = 2
Set UserControl.Picture = ImageList1.ListImages(3).Picture
RaiseEvent Click(2)
End If
Et :
Sub UserControl_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
OnOff = False
TimerAuto.Enabled = False
Set UserControl.Picture = ImageList1.ListImages(1).Picture
RaiseEvent MouseUp(Button, Shift, X, Y)
Je change bien l'image avant de relever l'évènement , nan ?
Si tu as d'autres précisions je suis preneur .
Par contre , SWAN94 , c'est quoi WPF ?

Merci pour les commentaires .

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.