French Problème de menu

[wolf]

Bonjour à tous,

J'ai un souci avec le menu.

Lors de l'initialisation des panels j'ajoute une rubrique au menu pour chaque panel.

nompanneau(i) prend une valeur differente suivant la langue choisie dans le setup
Par exemple :
nompanneau(5)="Vecteurs" pour du français et
nompanneau(5)="Vectors" pour de l'anglais

For i = 0 To panels.Length - 1
panels(i).Initialize("panels"&i)
panels(i).Color = Colors.black
Activity.AddView(panels(i), 0, 55dip, 100%x,Activity.height-120dip )
'Activity.AddMenuItem("Panel #" & i, "Menu")
Activity.AddMenuItem(nompanneau(i),nompanneau(i))
Next

Le menu s'initialise et s'affiche corectement.

Par contre je n'arrive pas à touver les instructions qui le rendrait actif.

KeyCode ne renvoit pas le nom des panneaux mais il y aurait-il une possiblilté "dans le style" :

Sub Activity_KeyPress (KeyCode As Int) As Boolean
If KeyCode = KeyCodes.KEYCODE_BACK Then
Return True
Else
Return False
End If

If KeyCode=KeyCodes.KEYCODE_MENU Then
Select KeyCode
Case nompanneau(0) : ChangePanel(0)
Case nompanneau(1) : ChangePanel(1)
Case nompanneau(2) : ChangePanel(2)
Case nompanneau(3) : ChangePanel(3)
Case nompanneau(4) : ChangePanel(4)
Case nompanneau(5) : ChangePanel(5)
Case Else
End Select
End If

Merci d'avance.

 

[wolf]

PB resolu

Pb partiellement resolu avec :

Sub Menu_Click
Dim menu As String
menu = Sender
btnLeft.Enabled = False
btnRight.Enabled = False
Select menu
Case nompanneau(0) : ChangePanel(0)
Case nompanneau(1) : ChangePanel(1)
Case nompanneau(2) : ChangePanel(2)
Case nompanneau(3) : ChangePanel(3)
Case nompanneau(4) : ChangePanel(4)
Case nompanneau(5) : ChangePanel(5)
Case Else
End Select
End Sub

Mais un os demeure :
- J'ai au total 15 panneaux
- le menu s'affiche donc sur 2 pages
- Cela ne fonctionne qu'avec les 5 items da la page 1 et pas avec les items de la deuxiéme page du menu.

 

[klaus]

Je n'ai pas très bien compris.
Vous avez 15 panneaux (Panels), est-ce que ce sont 15 panneaux pour 15 langues différentes ou des panneaux différents?
Pour différentes langues j'utiliserai un même panneau et je modifierai les textes en fonction de la langue choisie.
Main ne connaissant pas le détail il est difficile de donner un conseil concret.

Meilleures salutations.

 

[wolf]

Bonjour Klaus,

Merci.

En réponse :

Pour différentes langues j'utiliserai un même panneau et je modifierai les textes en fonction de la langue choisie.

C'est bien comme cela que je procede. En fonction de la langue choisi dans le setup, les messages sont recuperés dans un base de données et initialisent des messages par exemple.

Variable :
Dim mes(nbmaxpanel,nbmaxmessage) as string

avec nbmaxpannel=15 car j'ai 15 panneaux
et nbmaxmessage=30 car le panel le plus compliqué à 30 "bout de phrases" à traduire

mes(0,0) est le premier message du panel 0
mes(0,1) est le deuxiéme message du panel 0
......
mes(1,0) est le premier message du panel 1
mes(1,1) est le second message du panel 1
etc

il en est de meme pour le nom des panneaux avec une matrice à une seule dimension : nompanneau.

Tout cela fonctionne parfaitement.

Mais mon probléme est au niveau du menu qui ne fonctionne pas sur le deuxiéme pop up du menu.

 

[wolf]

Erreur trouvée (pb d'indice avec un copier_coller !) :BangHead::BangHead:

Merci