XProfan

Frank
Abbing

si mich pas alles täuscht, sollte cela avec qui API ActivateKeyboardLayout() aller. ici un Beispiel dans VB, également une allemande/Russisch-Umschaltung: [...]

Penguin
Tux

merci pour qui antwort, mais qui code selbst ist, pour mich, doch très undurchsichtig. une kleine erklärung were gentil.

on möge mich schlagen

steht oui alles là, seulement pas entier so comment je es brauche. mais avec bisschen logischem penser wird cela quoi.

OS: Win XP/Debian
XProfan 10

dans qui Anlage est un clavier-Treiber pour Russisch - allemande.
Muss naturellement installiert volonté:

installation:

cela Zip-Packet "tastatur_russ_dt.zip" entpacken. sur Russ-dt.msi doppelklicken.
qui Treiber volonté installiert.
Pour qui installation doit vous ausgewählt volonté:

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

Hoffe, je konnte aider ;)

tastatur_russ_dt.zip	17 kB

Hochgeladen:	23.09.2008

Downloadcounter:
		Download

Penguin
Tux

es liegt oui pas à den treibern, mais à dem change entre beiden sprachen.

pour dem je mir den code angeguckt habe, habe je gemerkt, dass je gar rien avec cela anfangen peux :--/
Kompilieren Marque Séparation

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 cela la fois, gibt Text un dans cela Modifier le champ de:
Kompilieren Marque Séparation

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)
Fin

Penguin
Tux

soeben schoss mir qui morgendliche concept, simple programm pour den russischunterricht pour den es genutzt volonté soll trop écrivons. un champ pour allemand écrivons, une pour russische. es wäre peut-être. pas entier mal si on cela ganze ensuite encore formatieren et drucken pourrait, mais soweit coutume je erstmal encore nciht penser.

pour ca projet serait sich nämlich aussi qui erste code eignen, là on oui ensuite russisch écrit, si champ x den fokus hat. aujourd'hui l'après-midi werd je mich la fois ransetzen.

OS: Win XP/Debian
XProfan 10

24.09.2008 ▲

Frank
Abbing

Mir ist maintenant pas bien sûr geworden, si qui Solution mittels ActivateKeyboardLayout() funktioniert ou bien pas. là je selber seulement allemande installiert habe, peux je es oui pas wirklich testen.
Wäre alors seulement loyal à zukünftigen Mitlesern que voici la fois mitzuteilen.

P.S.: s'il te plaît pas deinen gesamten Text ici kleinschreiben. quoi dans une Chat dans Ordre allez, pouvoir une Forumseintrag mais schlechter lesbar.

24.09.2008 ▲