Discussion :

[AlainTech]

La propriété Accelerator sert à définir une combinaison de touches (ctrl + une lettre) pour accéder à une page.

Ce qui te permet de faire un SendKeys avec cette combinaison de touches avant le SetFocus.

[MacGeol]

Merci AlainTech,

J'y ai bien pensé, mais là j'avoue que ça dépasse légèrement mes compétence en VBA...
Alors j'ai regarder l'aide.
J'ai donc fait dans Form_Initialize:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MultiPage1.Pages(0).Accelerator = "i"

Mais si je fais CTRL+i lorsque je suis sur une autre page de mon multipage il ne me met pas la Pages(0) active...

As-tu quelques précisions à me donner sur l'utilisation des accelerator.
De même quand je fais un SendKey que dois-ecrire? "i", "CTRL+i"...?

Merci d'avance

[MacGeol]

Re-bonjour,
Oui alors en fait une fois le Accelerator mis à "i" par exemple pour activer la page voulue il faut faire "Alt+i" et non "Ctrl+i" c'est pour ça que je n'y arrivais pas.
Là ça marche... du moins au clavier.
Car le SendKeys "%(i)" ne donne rien dans le programme...

Une idée?

Merci d'avance

[MacGeol]

Bonjour à tous,

Désolé d'insister à ce point, mais ce problème est l'unique restant dans mon développement, j'aimerais donc vraiment y trouver une solution, qu'à ce jour je n'ai toujours pas...
La piste de la définition d'un "Accelerator" puis "SendKeys" se révèle être une bonnne solution de contournement du problème. Cependant, comme dis dans mon précédent post, le SendKeys "%(i)" ne donne rien dans le programme...

Quelqu'u pourrait-il donc m'aider?

Merci beaucoup d'avance pour votre contribution!

[AlainTech]

Je viens de faire l'essai sur un form avec un multipage et 2 boutons.

Voici le code des 2 boutons:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub CommandButton1_Click()
  SendKeys ("%(i)")
End Sub
 
Private Sub CommandButton2_Click()
  SendKeys "%(j)"
End Sub

J'ai mis les 2 syntaxes possibles et ça fonctionne très bien.

Juste pour être certain, ta form est bien la fenêtre active quand tu envoyes le SendKeys?

Edit--> J'ai forcé l'accelerator en mode design et pas au runtime.
Peut-être une piste...

[MacGeol]

Merci du suivi AlainTech,

Je dois vraiment avoir un problème car pour ma part cela ne fonctionne pas. J'ai également forcé l'Accelerator par le design, donc cela fonctionne au clavier et la lattre accellerator est bien soulignée, mais par programme, le SendKeys ne semble par être pris, ça passe dessus sans erreur mais sans rien faire non plus!!!!

Peut-être une erreur liée à ArcGIS?

[MacGeol]

Et béh!!!!

Alors là franchement je vais vous dire la communauté de developpez.com, pourtant si réputée... et béh vous me décevez.... (je ne parle pas de Ouskel'n'or, Zazaraignée et AlainTech bien sûr!).
Il a fallu que je pose hier soir en partant du travail sur le forum sig http://forumsig.symen.ch et ce matin même une réponse!!!!

MERCI à ibFabrice!!!!!!

C'est tout simplement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MultiPage.value = (index de la page que l'on veut mettre au premier plan)

déconcertant de simplicité me direz-vous....

Bon bah il ne me reste plus qu'à enfin mettre le petit Tag [résolu]... depuis le temps que je l'attendais!

Merci encore Zazaraignée, Ouskel'n'or et AlainTech pour votre persévérance!

A bientôt

[AlainTech]

P***n de m***e.
Saloperie de VBA qui ne donne même pas une référence complète pour les contrôles standards.

J'avais (presque) tout essayé et c'était tout con.

Je pense que je ne l'oublierai pas, celle-là!

En tout cas, merci pour le retour d'info.

[zazaraignée]

En effet: Hé béh! et P***n de m***e!

Fallait passer par l'explrateur d'objets (F2) pour avoir un listing complet des propriétés et des méthodes du contrôle Multipage. Mais jamais au grand jamais je n'aurais soupçonné que Value était la bonne propriété dans ce cas-ci!

[MacGeol]

Et oui.... de même....
Le VBA recèle d'inombrables illogismes insondables...

Moi non plus je n'oublierais pas celle-là!!!

Merci encore.
A bientôt!