[Résolu] Simuler un click

Simuler un click [Résolu] - VB/VBA/VBS - Programmation

Marsh Posté le 26-04-2006 à 12:01:54    

Bonjour,
 
je voudrais savoir s'il est possible de faire un click informatique (je veux dire avec une commande) sur une case a cocher en vba sous access ?
 
Voilà, merci de vos réponses.


Message édité par hacksi le 27-04-2006 à 09:41:09
Reply

Marsh Posté le 26-04-2006 à 12:01:54   

Reply

Marsh Posté le 26-04-2006 à 12:15:10    

Mafeuille.MonContrôle_Click ?

Reply

Marsh Posté le 26-04-2006 à 13:14:07    

et non ce n'est pas si simple :)

Reply

Marsh Posté le 26-04-2006 à 13:44:11    

hacksi a écrit :

et non ce n'est pas si simple :)

Et pourtant si  :)  
 
Enfin ca fonctionne en vb, si tu as au préalable créé la procédure.

Reply

Marsh Posté le 26-04-2006 à 14:11:47    

lol mais je met quoi dans la procédure ?

Reply

Marsh Posté le 26-04-2006 à 15:50:16    

Simuler un clic sans avoir pour but de déclencher un évènement derrière me semblerait anormal mais tu ne précises pas le contexte.
Si ton click doit déclencher l'évènement correspondant, alors il suffit de créer (plutôt faire créer par l'interface) la procédure correspondant à cet évènement.
Et alors là deux choses sont à savoir :
1/ cette procédure est déclenchée automatiquement par le système dès que l'évènement est acompli (clic de souris sur la case à cocher par ex.)
2/ tu peux lancer cette procédure manuellement comme n'importe quelle autre procédure privée (et donc, non pas simuler un clic, mais exécuter le traitement lié à l'évènement du clic).
 

Reply

Marsh Posté le 26-04-2006 à 16:05:05    

J'ai la procédure suivante :

Code :
  1. Private Sub chk_all_equipement_Click()
  2. Dim i As Long
  3. If Me.chk_all_equipement = True Then
  4.     For i = 0 To Me.lst_equip.ListCount - 1
  5.         Me.lst_equip.Selected(i) = True
  6.     Next i
  7. Else
  8.     For i = 0 To Me.lst_equip.ListCount - 1
  9.         Me.lst_equip.Selected(i) = False
  10.     Next i
  11. End If
  12. End Sub


 
et donc par défaut je souhaiterais que la case à cocher chk_all_equipement est la valeur true ce qui impliquerai de sélectionner tous les champs de ma zone de liste mais cela se fait quand je click sur chk_all_equipement et non quand je change ça valeur. J'ai essayé de changer l'événement mais je n'arrive pas à avoir le résultat voulu sans cliquer dessus.


Message édité par hacksi le 26-04-2006 à 16:05:49
Reply

Marsh Posté le 27-04-2006 à 09:25:36    

Si tu lis bien mon 2/ tu verras que tu peux simplement mettre dans ton code

Me.chk_all_equipement = True
chk_all_equipement_Click

Ça lancera la même procédure que si tu avais cliqué avec la souris sur ta case à cocher chk_all_equipement.
Des fois je me demande si je m'exprime mal...

Reply

Marsh Posté le 27-04-2006 à 09:36:38    

lol tu sais après plusieurs heures passées devant le pc j'ai un peu le cerveau en compote :)

Reply

Marsh Posté le 27-04-2006 à 09:40:52    

Donc bin merci ça marche :d

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed