|
code
newsgroups
|
|||||||||||||||||||||||
|
|||||||||||||||||||||||
Change language keyboardHello all,
"the following message was sent to another ng also - with no luck ..." i have three languages installed in my system. How can i change them through code ? My plan is, when a TextBox that receives only one language info gots focus the prefered language is selected. As soon as it loses focus another is selected. Best regards Marios Amarios try this code with 3 textboxes.
I installed Russian, Greek and English and I think this works. I don't know Greek and Russian but something is coming up in the 2 textboxes that I can't read. George Option Explicit Private Sub Form_Load() Text1.Text = "" Text2.Text = "" Text3.Text = "" End Sub Private Sub Text1_GotFocus() SendKeys "%+" End Sub Private Sub Text2_GotFocus() SendKeys "%+" End Sub Private Sub Text3_GotFocus() SendKeys "%+" End Sub Show quoteHide quote "Amarios" <amario-NO-SPAM@in.gr> wrote in message news:ex1iZmvJGHA.3144@TK2MSFTNGP11.phx.gbl... > Hello all, > > "the following message was sent to another ng also - with no luck ..." > > i have three languages installed in my system. How can i change them > through > code ? > > My plan is, when a TextBox that receives only one language info gots focus > the prefered language is selected. As soon as it loses focus another is > selected. > > Best regards > Marios > > Hello George with thanks !
No luck. Nothing changes. What was the meaning of sending these two characters ? Are you trying to emulate the "Alt + Swift" procedure ? By the way, is this possible ? I wouldn't mind doing something that lame in order to get the job done. Best regards Marios Show quoteHide quote "George Bashore" <gbash***@bcpl.net> wrote in message news:eGbbFGzJGHA.208@tk2msftngp13.phx.gbl... > Amarios try this code with 3 textboxes. > I installed Russian, Greek and English and I think this works. > I don't know Greek and Russian but something is coming up in the 2 textboxes > that I can't read. > George > > > Option Explicit > > Private Sub Form_Load() > Text1.Text = "" > Text2.Text = "" > Text3.Text = "" > End Sub > > Private Sub Text1_GotFocus() > SendKeys "%+" > End Sub > > Private Sub Text2_GotFocus() > SendKeys "%+" > End Sub > > Private Sub Text3_GotFocus() > SendKeys "%+" > End Sub > > > > > > "Amarios" <amario-NO-SPAM@in.gr> wrote in message > news:ex1iZmvJGHA.3144@TK2MSFTNGP11.phx.gbl... > > Hello all, > > > > "the following message was sent to another ng also - with no luck ..." > > > > i have three languages installed in my system. How can i change them > > through > > code ? > > > > My plan is, when a TextBox that receives only one language info gots focus > > the prefered language is selected. As soon as it loses focus another is > > selected. > > > > Best regards > > Marios > > > > > > Marios
The sendkeys are Alt + Shift which will change your keyboard language when the textbox gets focus. If I type in George in the Greek textbox I get "Ãåïñãå". If I copy and paste that into notepad I get "Ge???e". When I go to http://world.altavista.com/ and paste Ge???e and translate Greek to English I get George. George is a Greek name for farmer according to the dictionary. What version of Windows are you using? I'm using XP Home. Have you installed the keyboard languages in the Control Panel that you need? George Show quoteHide quote "Amarios" <amario-NO-SPAM@in.gr> wrote in message news:OlcoWN8JGHA.3932@TK2MSFTNGP15.phx.gbl... > Hello George with thanks ! > > No luck. Nothing changes. > > What was the meaning of sending these two characters ? Are you trying to > emulate the "Alt + Swift" procedure ? > > By the way, is this possible ? I wouldn't mind doing something that lame > in > order to get the job done. > > Best regards > Marios > > "George Bashore" <gbash***@bcpl.net> wrote in message > news:eGbbFGzJGHA.208@tk2msftngp13.phx.gbl... >> Amarios try this code with 3 textboxes. >> I installed Russian, Greek and English and I think this works. >> I don't know Greek and Russian but something is coming up in the 2 > textboxes >> that I can't read. >> George >> >> >> Option Explicit >> >> Private Sub Form_Load() >> Text1.Text = "" >> Text2.Text = "" >> Text3.Text = "" >> End Sub >> >> Private Sub Text1_GotFocus() >> SendKeys "%+" >> End Sub >> >> Private Sub Text2_GotFocus() >> SendKeys "%+" >> End Sub >> >> Private Sub Text3_GotFocus() >> SendKeys "%+" >> End Sub >> >> >> >> >> >> "Amarios" <amario-NO-SPAM@in.gr> wrote in message >> news:ex1iZmvJGHA.3144@TK2MSFTNGP11.phx.gbl... >> > Hello all, >> > >> > "the following message was sent to another ng also - with no luck ..." >> > >> > i have three languages installed in my system. How can i change them >> > through >> > code ? >> > >> > My plan is, when a TextBox that receives only one language info gots > focus >> > the prefered language is selected. As soon as it loses focus another is >> > selected. >> > >> > Best regards >> > Marios >> > >> > >> >> > > Opps
The Greek letters will not post correctly. They show up as Ge???e. Show quoteHide quote "George Bashore" <gbash***@bcpl.net> wrote in message news:usphttAKGHA.2064@TK2MSFTNGP11.phx.gbl... > Marios > The sendkeys are Alt + Shift which will change your keyboard language when > the textbox gets focus. > If I type in George in the Greek textbox I get "Ãåïñãå". If I copy and > paste that into notepad I get "Ge???e". > When I go to http://world.altavista.com/ and paste Ge???e and translate > Greek to English I get George. > George is a Greek name for farmer according to the dictionary. > What version of Windows are you using? I'm using XP Home. > Have you installed the keyboard languages in the Control Panel that you > need? > George > > "Amarios" <amario-NO-SPAM@in.gr> wrote in message > news:OlcoWN8JGHA.3932@TK2MSFTNGP15.phx.gbl... >> Hello George with thanks ! >> >> No luck. Nothing changes. >> >> What was the meaning of sending these two characters ? Are you trying to >> emulate the "Alt + Swift" procedure ? >> >> By the way, is this possible ? I wouldn't mind doing something that lame >> in >> order to get the job done. >> >> Best regards >> Marios >> >> "George Bashore" <gbash***@bcpl.net> wrote in message >> news:eGbbFGzJGHA.208@tk2msftngp13.phx.gbl... >>> Amarios try this code with 3 textboxes. >>> I installed Russian, Greek and English and I think this works. >>> I don't know Greek and Russian but something is coming up in the 2 >> textboxes >>> that I can't read. >>> George >>> >>> >>> Option Explicit >>> >>> Private Sub Form_Load() >>> Text1.Text = "" >>> Text2.Text = "" >>> Text3.Text = "" >>> End Sub >>> >>> Private Sub Text1_GotFocus() >>> SendKeys "%+" >>> End Sub >>> >>> Private Sub Text2_GotFocus() >>> SendKeys "%+" >>> End Sub >>> >>> Private Sub Text3_GotFocus() >>> SendKeys "%+" >>> End Sub >>> >>> >>> >>> >>> >>> "Amarios" <amario-NO-SPAM@in.gr> wrote in message >>> news:ex1iZmvJGHA.3144@TK2MSFTNGP11.phx.gbl... >>> > Hello all, >>> > >>> > "the following message was sent to another ng also - with no luck ..." >>> > >>> > i have three languages installed in my system. How can i change them >>> > through >>> > code ? >>> > >>> > My plan is, when a TextBox that receives only one language info gots >> focus >>> > the prefered language is selected. As soon as it loses focus another >>> > is >>> > selected. >>> > >>> > Best regards >>> > Marios >>> > >>> > >>> >>> >> >> > > Hello George,
sorry for late reply. I was out. I found the solution through Internet surf. There is an API (LoadKeyboardLayout) It works well with XP. It installs the keyboard on demannd and it very easy to implement. I have two pc's. One uses W98 and the other XP. On W98 i could not implement Alt+Shift. So i searched and found the API. I do not know if i can use SendKeys with XP (did not try it) For your info, "George" is also George in the Greek language. It has no special meaning. It derives from Saint George of the Christian religion. Maybe the dictionary refered to a specific George that did soemthing and happened to be also a farmer ? Earlier years Greece was mainly a farm oriented economy. Otherwise, if the word is spelled like i see it, it does not exist ! It could be a type of "Hey farmer Jim ! Where are you going ?" Where the "Ãåïñãå" is the equivalent of "farmer" in the sentence... (if spelled correctly --> "ãåùñãÝ"). Best regards Marios Show quoteHide quote "George Bashore" <gbash***@bcpl.net> wrote in message news:usphttAKGHA.2064@TK2MSFTNGP11.phx.gbl... > Marios > The sendkeys are Alt + Shift which will change your keyboard language when > the textbox gets focus. > If I type in George in the Greek textbox I get "Ãåïñãå". If I copy and > paste that into notepad I get "Ge???e". > When I go to http://world.altavista.com/ and paste Ge???e and translate > Greek to English I get George. > George is a Greek name for farmer according to the dictionary. > What version of Windows are you using? I'm using XP Home. > Have you installed the keyboard languages in the Control Panel that you > need? > George > > "Amarios" <amario-NO-SPAM@in.gr> wrote in message > news:OlcoWN8JGHA.3932@TK2MSFTNGP15.phx.gbl... > > Hello George with thanks ! > > > > No luck. Nothing changes. > > > > What was the meaning of sending these two characters ? Are you trying to > > emulate the "Alt + Swift" procedure ? > > > > By the way, is this possible ? I wouldn't mind doing something that lame > > in > > order to get the job done. > > > > Best regards > > Marios > > > > "George Bashore" <gbash***@bcpl.net> wrote in message > > news:eGbbFGzJGHA.208@tk2msftngp13.phx.gbl... > >> Amarios try this code with 3 textboxes. > >> I installed Russian, Greek and English and I think this works. > >> I don't know Greek and Russian but something is coming up in the 2 > > textboxes > >> that I can't read. > >> George > >> > >> > >> Option Explicit > >> > >> Private Sub Form_Load() > >> Text1.Text = "" > >> Text2.Text = "" > >> Text3.Text = "" > >> End Sub > >> > >> Private Sub Text1_GotFocus() > >> SendKeys "%+" > >> End Sub > >> > >> Private Sub Text2_GotFocus() > >> SendKeys "%+" > >> End Sub > >> > >> Private Sub Text3_GotFocus() > >> SendKeys "%+" > >> End Sub > >> > >> > >> > >> > >> > >> "Amarios" <amario-NO-SPAM@in.gr> wrote in message > >> news:ex1iZmvJGHA.3144@TK2MSFTNGP11.phx.gbl... > >> > Hello all, > >> > > >> > "the following message was sent to another ng also - with no luck ...." > >> > > >> > i have three languages installed in my system. How can i change them > >> > through > >> > code ? > >> > > >> > My plan is, when a TextBox that receives only one language info gots > > focus > >> > the prefered language is selected. As soon as it loses focus another is > >> > selected. > >> > > >> > Best regards > >> > Marios > >> > > >> > > >> > >> > > > > > > 
Other interesting topics
add new line to task body
How to open file for output but not overwrite? Visual Basic and Word WebBrowser1.Document.Links can't get form to start up when activeX exe starts .dat retrieval and display Order By Q: Floating Windows in VB6 determining when shell command finishes Combo Box bypass input mask |
|||||||||||||||||||||||
