XProfan

English

Software Changing the Keyboard Layouts

Penguin
Tux

Hi,

there irgendeine Possibility, one Tool Windows XP/2000 To write, which the Tastaturlayout of german on russian and of russian in german switchen can? moreover need I a simple GUI, since the User not really plenty Idea having go. the important is, that no Registryeinträge changed go, because it otherwise conflicts with the Rechtevergabe the network give could.

thanks Schonmal for eure Help
Tony
Compile Mark Separation

declare btndlg&,dlgende%,dlg&
dlg&=Create("Window",%hwnd,"Sprache",10,10,200,120)
Startpaint dlg&
UseFont "CANDARA",25,20,1,0,0
TextColor RGB(0,0,0),RGB(255,255,255)
Endpaint
btnDlg& = CreateButton(dlg&,"Deutsch -> Russisch",30,10,120,30)
btnDlg& = CreateButton(dlg&,"Russisch -> Deutsch",30,45,120,30)

WhileNot dlgende%

    WaitInput

    If GetFocus(btnDlg&)

        dlgende% = 1

    EndIf

Endwhile

destroywindow(dlg&ass=s2>)

The GUI is, if too only of optischen since, ready. the code is with safety reinster Garbage and one could it certainly too yet improve. now goes it therefore, The right functions to that right Button To write.

OS: Win XP/Debian
XProfan 10

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Frank
Abbing

If me not everything täuscht, ought to with the the API ActivateKeyboardLayout() weg. here an example in VB, ditto a german/russian-story: [...]

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Penguin
Tux

thanks for response, but the code self is, for me, still very opaque. a small explanation were nice.

one möge me hit

standing Yes everything there, only not integrally so How I it need. but with bisschen logischem think becomes the what.

OS: Win XP/Debian
XProfan 10

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

: 09/23/08

in the equipment is a keyboard-driver for russian - german.
must naturally installs go:

installation:

the zipper-Pack "tastatur_russ_dt.zip" entpacken. On Russ-dt.msi doppelklicken.
The driver go installs.
After the installation must tappt im dunkeln select go:

Start/Settings/Systemsteuerung/Regions- and Sprachoptionen-> Languages -> details

hope, I could help ;)

tastatur_russ_dt.zip	17 kB

Hochgeladen:	09/23/08

Downloadcounter:
		Download

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Penguin
Tux

it's located Yes not on whom treibern, separate on the change between both Languages.

to the I me whom code angeguckt have, have I Pinned, I quite nothing so begin can :--/
Compile Mark Separation

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

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Frank
Abbing

Probier the time, gives Text one into Editfeld:
Compile Mark Separation

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

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Penguin
Tux

soeben womb me The morgendliche idea, simply Program for russischunterricht for it used go should To write. one area for German write, one for russian. it would evtl. not integrally badly if to the whole still format and print could, but so far custom I first yet nciht think.

for this think about would itself namely too the first code suit, there one Yes then russian writes, if area x whom fokus has. this afternoon werd I time ransetzen.

OS: Win XP/Debian
XProfan 10

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Frank
Abbing

i'm now not clear become, whether The Solution through ActivateKeyboardLayout() functions or not. Since I yourself only german installs have, can I it Yes not really testing.
would be means only equatable to future Mitlesern that here time mitzuteilen.

P.s.: Please not your whole Text here kleinschreiben. what in a Chat aale goes, power a Forumseintrag but badly readable.

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Penguin
Tux

yet white I do not whether the code functions has, because I not yet started. I must on the side yet school make and a Linuxkiste to that walk bring, means exercise you in patience

so. Fakt is, that it at write into Text box on russian umschaltet. only there there the trouble, that one only black Schtriche and no kyrillischen letters sees.

with
Compile Mark Separation

~ShowWindow(hWnd, ~SW_SHOWMAXIMIZED)

>

can I the window already maximiert open let. only, where comes the commands there and How must it deklarieren?
Compile Mark Separation

WINDOWSTYLE 31
Window 0,0-0,1024
Windowtitle "Russisch"
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, 1000, 700)
ActivateKeyboardLayout(0, &VK_FLAGSR)

While 1

    WaitInput
    Case %key=2:Break

Endwhile

ActivateKeyboardLayout(0, &VK_FLAGSD)
End

OS: Win XP/Debian
XProfan 10

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Frank
Abbing

Lass you not drive. i was only not right schlau from your last Posting become.

gives it a commands, the one with the Febster already maximiert open can?

the Mainwindow? Probier time: Window 0,0-%maxx,%maxy in lieu of of Cls.

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Penguin
Tux

thanks you. is of course not integrally maximiert, appear but in the of me tuned Size the Fensters.

OS: Win XP/Debian
XProfan 10

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Frank
Abbing

You must probably a Font use, the too russian Sonderzeichen contains?

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

12 3 4

Answer

Topic-Options

Unreaded
subscribe
Remember-List
Notes
guests
Delete
Permanent
Done

32.623 Views

Untitled	vor 0 min.
Stringray	10/08/17
Wilfried Friebe	01/11/16
Georg Teles	06/29/15
mein	06/02/13
More...

Themeninformationen

this Topic has 6 subscriber:

Penguin Tux (13x)

Frank Abbing (12x)

Stephan Sonneborn (5x)

Dieter Zornow (4x)

Admins | AGB | Applications | Authors | Chat | Privacy Policy | Download | Entrance | Help | Merchantportal | Imprint | Mart | Interfaces | SDK | Services | Games | Search | Support

One proposition all XProfan, The there's!

Private Messages

Own Storage Forum

Topics-Remember-List

Privacy Policy

we use Cookies only as Session-Cookies because of the technical necessity and with us there no Cookies of Drittanbietern.

If you here on our Website click or navigate, stimmst You ours registration of Information in our Cookies on XProfan.Net To.

further Information To our Cookies and moreover, How You The control above keep, find You in ours nachfolgenden Datenschutzerklärung.

all right Datenschutzerklärung
i want none Cookie