XProfan

Frank
Abbing

Wenn mich no alles täuscht, debería el con el API ActivateKeyboardLayout() ir. Hier una Ejemplo en VB, ebenfalls una Alemán/Russisch-Umschaltung: [...]

Penguin
Tux

danke para el antwort, pero la code incluso es, para mich, doch muy undurchsichtig. una kleine erklärung were nett.

uno möge mich schlagen

es sí alles como, sólo no bastante como Yo brauche. aber con bisschen logischem denken se el qué.

OS: Win XP/Debian
XProfan 10

In el Anlage es una Tastatur-Treiber para Russisch - Alemán.
Muss natürlich installiert voluntad:

Installation:

Das Zip-Packet "tastatur_russ_dt.zip" entpacken. Auf Russ-dt.msi doppelklicken.
El Treiber voluntad installiert.
Nach el Installation necesario ellos ausgewählt voluntad:

Start/Einstellungen/Systemsteuerung/Regions- y Sprachoptionen-> Idiomas -> Details

Hoffe, Yo podría helfen ;)

tastatur_russ_dt.zip	17 kB

Hochgeladen:	23.09.2008

Ladeanzahl:
		Descargar

Penguin
Tux

lo liegt sí no a el treibern, pero a el wechsel zwischen beiden sprachen.

después de el Yo el code angeguckt habe, Yo gemerkt, dass Yo gar nichts así anfangen kann :--/
Kompilieren Marca Separación

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 el veces, son Texto una en el Editar campo:
Kompilieren Marca Separación

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 me el morgendliche idee, simplemente programm para el russischunterricht para el lo genutzt voluntad se a escribir. una feld fürs Alemán escribir, eins fürs russische. lo wäre evtl. no bastante schlecht si al todo entonces formatieren y drucken podría, aber soweit costumbre Yo primero todavía nciht denken.

para dies vorhaben sería se nämlich auch el erste code eignen, como uno sí entonces russisch schreibt, si feld x el fokus ha. heute nachmittag werd Yo mich veces ransetzen.

OS: Win XP/Debian
XProfan 10

24.09.2008 ▲

Frank
Abbing

Mir es ahora no está claro geworden, si el Solución mittels ActivateKeyboardLayout() funktioniert oder no. Desde que selber sólo Alemán installiert habe, kann Yo sí no wirklich testen.
Wäre also sólo fair gegenüber zukünftigen Mitlesern que aquí veces mitzuteilen.

P.S.: Bitte no deinen gesamten Texto hier kleinschreiben. Was en una Chat Haga clic en Aceptar va, macht una Forumseintrag aber schlechter lesbar.

24.09.2008 ▲