cs_epson1
Messages postés89Date d'inscriptiondimanche 12 novembre 2000StatutMembreDernière intervention29 mars 2013 15 janv. 2010 à 20:22
nan c'est pas ça non plus . je cherche toujours .
cs_epson1
Messages postés89Date d'inscriptiondimanche 12 novembre 2000StatutMembreDernière intervention29 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és13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 201847 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és89Date d'inscriptiondimanche 12 novembre 2000StatutMembreDernière intervention29 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és89Date d'inscriptiondimanche 12 novembre 2000StatutMembreDernière intervention29 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és13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 201847 15 janv. 2010 à 14:16
en effet : ni le sujet ni surtout le même langage !
swan94
Messages postés254Date d'inscriptionjeudi 29 juillet 2004StatutMembreDerniè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és13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 201847 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és89Date d'inscriptiondimanche 12 novembre 2000StatutMembreDernière intervention29 mars 2013 14 janv. 2010 à 23:46
15 janv. 2010 à 20:22
15 janv. 2010 à 18:12
15 janv. 2010 à 17:40
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
15 janv. 2010 à 16:45
15 janv. 2010 à 15:58
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 .
15 janv. 2010 à 14:16
15 janv. 2010 à 14:10
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
15 janv. 2010 à 03:26
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...
14 janv. 2010 à 23:46