XProfan

Frank
Abbing

Wenn mich nicht alles täuscht, sollte das mit der API ActivateKeyboardLayout() gehen. Hier ein Beispiel in VB, ebenfalls eine Deutsch/Russisch-Umschaltung: [...]

Penguin
Tux

danke per die antwort, aber der code selbst ist, per mich, doch sehr undurchsichtig. eine kleine erklärung were nett.

man möge mich schlagen

steht ja alles da, nur nicht ganz so wie ich es brauche. aber mit bisschen logischem denken wird das was.

OS: Win XP/Debian
XProfan 10

In der Anlage ist ein Tastatur-Treiber per Russisch - Deutsch.
Muss naturalmente installiert werden:

Installation:

Das Zip-Packet "tastatur_russ_dt.zip" entpacken. Auf Russ-dt.msi doppelklicken.
Die Treiber werden installiert.
Nach der Installation müssen sie ausgewählt werden:

Start/Einstellungen/Systemsteuerung/Regions- und Sprachoptionen-> Sprachen -> Details

Hoffe, ich konnte helfen ;)

tastatur_russ_dt.zip	17 kB

Hochgeladen:	23.09.2008

Downloadcounter:
		Download

Penguin
Tux

es liegt ja nicht an den treibern, sondern an dem wechsel zwischen beiden sprachen.

nach dem ich mir den code angeguckt habe, habe ich gemerkt, dass ich gar nichts damit anfangen kann :--/
Kompilieren Markieren Separieren

zunächst die benötigte API-Deklaration
Private Declare Function ActivateKeyboardLayout Lib "user32" ( _
ByVal HKL As Long, _
ByVal flags As Long) As Long
Const VK_HKL = 0
Const VK_FLAGSR = 1  Tastenlayout Russisch
Const VK_FLAGSD = 0  Tastenlayout Deutsch
Private Sub txtFremdwort_GotFocus()
Feld in kyrillisch
ActivateKeyboardLayout VK_HKL, VK_FLAGSR
End Sub
Private Sub txtFremdwort_LostFocus()
wieder deutsch einstellen
ActivateKeyboardLayout VK_HKL, VK_FLAGSD
End

OS: Win XP/Debian
XProfan 10

Frank
Abbing

Probier das mal, gibt Text ein in das Editfeld:
Kompilieren Markieren Separieren

Def ActivateKeyboardLayout(2)!"USER32","ActivateKeyboardLayout"
Def &VK_FLAGSR 1      Tastenlayout Russisch
Def &VK_FLAGSD 0      Tastenlayout Deutsch
Declare edit&,text$
Cls
edit&=Create("MultiEdit", %hWnd, "", 10, 10, 200, 200)
ActivateKeyboardLayout(0, &VK_FLAGSR)

While 1

    WaitInput
    Case %key=2:Break

Endwhile

ActivateKeyboardLayout(0, &VK_FLAGSD)
End

Penguin
Tux

soeben schoss mir die morgendliche idee, einfach programm per den russischunterricht per den es genutzt werden soll zu schreiben. ein feld fürs deutsche schreiben, eins fürs russische. es wäre evtl. nicht ganz schlecht wenn man das ganze dann noch formatieren und drucken potuto, aber soweit brauch ich erstmal noch nciht denken.

per dies vorhaben würde sich nämlich auch der erste code eignen, da man ja dann russisch schreibt, wenn feld x den fokus hat. heute nachmittag werd ich mich mal ransetzen.

OS: Win XP/Debian
XProfan 10

24.09.2008 ▲

Frank
Abbing

Mir ist jetzt nicht klar geworden, ob die Lösung mittels ActivateKeyboardLayout() funktioniert oder nicht. Da ich selber nur Deutsch installiert habe, kann ich es ja nicht wirklich testen.
Wäre also nur fair opposto zukünftigen Mitlesern das hier mal mitzuteilen.

P.S.: Bitte nicht deinen gesamten Text hier kleinschreiben. Was in einen Chat in Ordnung geht, macht einen Forumseintrag aber schlechter lesbar.

24.09.2008 ▲