Changer de clavier/langue

[boddhi]

Oui mais encore...
Ca ne me dit pas si cela te retourne les valeurs que tu attends !!!

1037 et 13 correspondent bien à l'hébreu !!!
Et quand tu changes de langue, est-ce que cela te retourne d'autres valeurs ?????

[Parole De JOJO]

en changeant de langue j'obtiends les memes valeurs

merci pour ton aide

[Parole De JOJO]

voila un petit code que j'ai adapte du forum anglais

Code : Tout sélectionner

num=4

Dim lan.s(num,3)
lan(1,1)="0000040c":lan(1,2)="french"
lan(2,1)="0000040d":lan(2,2)="hebrew"
lan(3,1)="00000409":lan(3,2)="english"
lan(4,1)="00000408":lan(4,2)="?"

For k=1 To num
  lan(k,3)=Str(LoadKeyboardLayout_(lan(k,1),#KLF_REORDER))
Next

OpenWindow(1,200,100,500,300,"Language Test",#PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget |#PB_Window_ScreenCentered)

For k=1 To num
  TextGadget(#PB_Any,20,30*k+2,70,20,lan(k,2))
  StringGadget(k,100,30*k,150,20,"")
Next

SetActiveGadget(1)

Repeat
  Event = WaitWindowEvent()
  GadgetID = EventGadget()
  EventType = EventType()
  Select EventType()
    Case #PB_EventType_Focus
      If GadgetID>0 And GadgetID<num+1
        ActivateKeyboardLayout_(Val(lan(GadgetID,3)),#KLF_REORDER)
      EndIf
  EndSelect
Until event=#PB_Event_CloseWindow

For k=1 To num
  UnloadKeyboardLayout_(Val(lan(k,3)))
Next

End