memoriser un click sur un boutton ou interdire de re-cliker ?

Question

Bonjour à tous,

J'ai realisé un prog qui permet de lire sur le port parallèle lorsque je clik sur un boutton, mon problème est que je voudrais le memoriser pendant un certain temps afin que meme si je re-clique dessus rien ne se passe pour que mon programme est le temps de finir sa lecture.

Est ce quelqu'un aurait une idée sur la façon de faire ?
Merci d'avance.

JPGVB · Answer

Bonjour, mets le bouton enabled=false sur click juste avant de lancer la procédure de récupération (mets le mousepointer=11 pour afficher le sablier en curseur de souris) et  lorsque ta lecture est finie tu le remet en enabled=true (et mousepointer=0 pour revenir au curseur de souris normal), je suppose que c'est le plus imple.

cs_Loic34000 · Answer

Mon problème est que je voudrait que la mise en mémoire se realise toute seule car dans l'avenir je désire supprimer ce boutton click par une surveillance de port (dès qu'un bit bouge il realisera une lecture).

Est ce que quelqu'un a une idée ?
Merci

cs_Jack · Answer

Salut
"que la mise en mémoire se realise toute seule" : Faudra bien écrire une ou deux lignes quand même !
JPGVB t'a fourni une excellente méthode.
   monBouton.Enabled = False
quand tu veux condamner le bouton
Il ne reste plus qu'à définir où mettre ce code, sur quel évènement

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

cs_Loic34000 · Answer

Salut,

La méthode que m'a fournit JPGVB fonctionne parfaitement mais pas dans mon cas, je m'explique mon programme fait une lecture sur le port parallèle où je simule à l'aide d'un bouton poussoir une impulsion, seulement quand je reste appuyé sur mon bouton mon prog ne fait que lire le port sans cesse en boucle (lecture grâce à un timer)
Dans mon cas j'aimerais que le prog s'exécute une seule fois tant que je ne relâche pas mon bouton et que je ré-appui dessus.


J'espère que ce que je raconte est compréhensible ?

PCPT · Answer

salut,

dans ce cas tu peux utiliser la propriété TAG par exemple

si .tag="" alors action et .tag ="pas_vide", sinon rien

et remettre à "" quand tu as fini

++
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

cs_Loic34000 · Answer

Salut,

Est-ce que tu aurais plus de détails ou un lien concernant la fonction TAG car je ne trouve rien qui explique correctement ?

Merci.

PCPT · Answer

tag est une propriété, comme caption.
tu l'utilises comme une variable tampon...

tu as juste un test IF à faire, je n'ai pas de doc pour çà

cs_MPi · Answer

Une variable booléenne déclarée en Public pourrait aussi suffire, je pense...

MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI

puje_fr · Answer

Bonjour,
j'aurai le même problème sauf qu'en fait je veux éviter le double clic involontaire sur une commande. J'ai utilisé le .enabled, que je met à false durant 1,5sec., mais si je clique durant ce temps sur le contrôle, il mémorise le clic et l'effectue à la fin de l'autre!
Je ne sais pas si je suis assez clair dans mon explication...

mon programme en l'essence, donne ceci:
command1.enabled = false
Sleep(1500)
........ (ce que j'ai à faire)
command1.enabled=true

Merci de m'indiquer si vous voyez une solution à mon problème...

puje_fr · Answer

Bon bien j'ai trouvé une solution à mon problème, donc j'essaie de vous en faire profiter. J'ai simplement mis ce que devait faire l'appui sur le bouton dans un timer, avec un interval de 2000ms. Ensuite je gère l'état de mon timer comme une bascule bistable en fonction de l'état de ma commande. Exemple (je ne me sens pas très clair dans mon explication):

'La commande principale
Private Sub Command1_Click()
   Timer3.Enabled = True
End Sub

'le timer:
Private Sub Timer3_Timer()
'***ma bascule bistable***
If Command7.Visible = True Then
    Me.MousePointer = 11
    Command7.Visible = False
Else
    Me.MousePointer = 0
    Command7.Visible = True
    Timer3.Enabled = False
End If
'*******************
'le contenu initial de ma command
If Timer3.Enabled = True Then
...
....
...

End If

Il y avait peut-être plus simple mais en tous cas ceci marche très bien

Memoriser un click sur un boutton ou interdire de re-cliker ?

10 réponses

Votre réponse

Discussions similaires