BOUTON UP_DOWN

cs_epson1 Messages postés 89 Date d'inscription dimanche 12 novembre 2000 Statut Membre Dernière intervention 29 mars 2013 - 14 janv. 2010 à 23:43
cs_epson1 Messages postés 89 Date d'inscription dimanche 12 novembre 2000 Statut Membre Dernière intervention 29 mars 2013 - 15 janv. 2010 à 20:22
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/51125-bouton-up-down

cs_epson1 Messages postés 89 Date d'inscription dimanche 12 novembre 2000 Statut Membre Dernière intervention 29 mars 2013
15 janv. 2010 à 20:22
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
15 janv. 2010 à 18:12
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 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 47
15 janv. 2010 à 17:40
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
15 janv. 2010 à 16:45
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
15 janv. 2010 à 15:58
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 .
PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 47
15 janv. 2010 à 14:16
en effet : ni le sujet ni surtout le même langage !
swan94 Messages postés 254 Date d'inscription jeudi 29 juillet 2004 Statut Membre Dernière intervention 2 avril 2010
15 janv. 2010 à 14:10
Salut,

Je sais que vous allez me dire que ce n'est pas le sujet, mais si tu aimes ce genre de possibilités, regarde du côté du WPF, tu seras bluffé

Cordialement,
Swan94
PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 47
15 janv. 2010 à 03:26
tu as cherché et n'as rien trouvé?

pourtant il est fourni dans les common controls

Microsoft Windows Common Controls-2 6.0 (SP6) : MSCOMCT2.OCX

tu poses alors une zone de texte par exemple, un UPDOWN à côté
propriétés :
autobuddy = true
buddycontrol = ta_zone_de_texte
syncbuddy = true

0 ligne de code, et il pourra s'adapter au thème de windows avec un manifest, ce qui n'est pas le cas de ton usercontrol

nb : tu relèves les évènements avant de mettre la bonne image. si le dev fait une action lors de ces évènements il y aura des décalages visuels conséquents...
cs_epson1 Messages postés 89 Date d'inscription dimanche 12 novembre 2000 Statut Membre Dernière intervention 29 mars 2013
14 janv. 2010 à 23:46
J'ai oublié de preciser que je me suis inspiré d'une source de VB Lover disponible ici : http://www.vbfrance.com/codes/SAVOIR-SI-POINT-2D-EST-DANS-TRIANGLE_2196.aspx .Merci à lui .
Rejoignez-nous