Handle, evenement click et form.Show

Question

Bonjour &#224; tous,

je cherche une solution pour permettre configurer mes touches de
navigation (commandButton) accessibles &#233;galement par F1 &#224; F12 par
l'interm&#233;diaire d'un fichier ".ini".

J'ai r&#233;solu l'initialisation de caption de chaque touche utilis&#233;e ainsi :

F1 :

Page_tartempion

Dans certains cas, je souhaite appeler l'&#233;venement click du bouton
concern&#233; si appui sur F2 par exemple (pas de pb) dans form_keydown: 

select case keycode

  case vbkeyF2 : F2_Click

  case else

end select

Dans un autre cas, si touche configur&#233;e pour un appel de page(suivant mon fichier ini), je souhaite appeler cette page.

j'ai essay&#233; de faire &#231;a avec for each form in vb.forms mais vb.forms ne contient que les forms charg&#233;e

Comment recup&#233;rer la listes des forms du projet (charg&#233;es ou non)?









 







 


C'est pas parceque les c.. sont plus nombreux qu'ils ont forc&#233;ment raison!(dixit Coluche) 
Une seule ligne de conduite, l'objectivit&#233;.

jannoman · Answer

Ton probl&#232;me n'est pas tres clair mais je crois comprendre ce que tu veux, il y a deja eu des sujets la dessus. En fait, tu est oblig&#233; de r&#233;gler chaque cas "&#224; la main", du genre, pour F4 : 


if ma_chaine = "frm_Tartampion" then frm_Tartampion.show
else if ma_chaine = "frm_Chezpasquoi" then frm_Chezpasquoi.show



A signaler aussi qu'il y existe une commande qui "compile" des instructions, mais je ne sais plus ce que c'est.


A+.
Thomas.

cs_DURANDO · Answer

Merci de m'avoir r&#233;pondu Thomas.C'est vrai que c'&#233;tait pas clair!



Je pr&#233;cise. 

Voila j'ai une form nomm&#233;e "FORME" dans laquelle j'ai des CommandButton
nomm&#233;s "F1", "F2"..."F12". Lorsque j'appui sur une touche F1 &#224; F12,
dans l'&#233;venement "FORME_KeyDown" je traite ainsi:



    With FORME.F1

    If .Enabled Then

      For Each vue In VB.Forms

      MsgBox "bouton.caption=" & .Caption & Chr(13) & "vue.name=" & vue.Name

        If InStr(3, .Caption, vue.Name) > 0 Then

          vue.Show

          Exit Sub

        End If

      Next vue

    End If



Le but recherch&#233; est d'afficher la form dont le nom est renseign&#233; dans la propri&#233;t&#233; Caption de mon CommandButton  

(F1.Caption = "F1 : NomdelaformAppeleeParToucheF1" ).

Si au lancement de mon application, je charge toutes les forms avec
load (sans les afficher donc): &#231;a va marcher puisque VB.Forms contiendra tous les noms de forms! Mais c'est nul de tout
charger juste pour &#231;a, &#231;a prend des ressources pour rien!



1) Je cherche donc (&#224; la place de VB.Forms) une collection contenant
les forms du projet (charg&#233;es ou non) mais cette collection
existe-t-elle?



2) Pourquoi j'ai parl&#233; de handle dans le sujet :

Parceque, dans le cas ou caption ne contient pas un nom de form,
c'est que le bouton est d&#233;di&#233; a une fonction particuli&#232;re, que j'aurai
pr&#233;vue dans F8_Click (par exemple pour F8). Pour traiter ce cas, je
comptais passer le Handle de F8 &#224; une fonction qui va appeler
l'&#233;venement Click de F8. J'ai tent&#233; avec sendmessage de l'API Windows,
mais &#231;a marche pas :

SendMessage FORME.F8.hwnd,WM_LBUTTONDOWN, ByVal 0&, ByVal 0&



J'ai beau chercher sur le forum, je trouve plus de solution!

Merci de votre aide.





--------------------------------------------------------------------------------
C'est pas parceque les c.. sont plus nombreux qu'ils ont forc&#233;ment raison!(dixit Coluche) 
Une seule ligne de conduite, l'objectivit&#233;.

Handle, evenement click et form.Show

2 réponses

Discussions similaires