Loading ...
Sorry, an error occurred while loading the content.

47394Input Language

Expand Messages
  • sarmednafi
    Mar 14, 2014
    • 0 Attachment
      Dear Sirs,

      I use the following code to change PC input language by LB code.
      Is there a way to know (by LB code) on what language my PC was stand on?
      If I know, I will change my input language with confidence.

      Regards,
      Sarmed Nafi


      '---- code start

      ' Change input Language Example

          NOMAINWIN

          WindowWidth = 528 : WindowHeight = 347

          UpperLeftX = INT((DisplayWidth-WindowWidth)/2)

          UpperLeftY = INT((DisplayHeight-WindowHeight)/2)

       

      button      #main.button1, "change", [button1Click], UL, 155, 110, 175, 30

      stylebits #main.textbox1, _ES_RIGHT, 0, 0, 0

      textbox     #main.textbox1, 155, 30, 180, 30

       

      Open "Window Title" for Window as #main

          #main "trapclose [quit]"

          #main "font Arial 14"

          #main.textbox1 "!setfocus"

       

      [loop]

          Wait

       

      [quit]

          close #main : END


      [button1Click]

          Call KeyboardClick _VK_MENU , 0 'Press ALT

          Call KeyboardClick _VK_SHIFT , 0 'Press SHIFT

          Call KeyboardClick _VK_MENU , 2 'UP ALT

          Call KeyboardClick _VK_SHIFT , 2 'UP SHIFT

          #main.textbox1 "!setfocus"

      wait 

      Sub KeyboardClick n, pos

          ' Need a little time in between keypresses

          CallDLL #kernel32, "Sleep", 50 as uLong, result as Void

          ' pos 0 = Down, 2 = Up

          CallDLL #user32, "keybd_event", n as Long, null as Long, pos as Long, result as Void

          End Sub

      '--- code end

       

                              

    • Show all 5 messages in this topic