Office: (Office 2003) Positionieren der Bildschirmtastatur über VBA

Hallo,

über eine Befehlsschaltfläche in einem Formular starte ich die Bildschirmtastatur (zweck´s Passworteingabe, physikalische Tastatur nicht vorhanden, nur Maus): Code:

ist es auch möglich die Tastatur an einer bestimmten Stelle auf dem Bildschirm aufpoppen zu lassen. Jetzt muß der Anwender immer zuerst mit der Maus die Tastatur verschieben, da sie das Textfeld zur Eingabe des Passworts verdeckt.

Gruß
Oskar*tongue.gif*

:)

 

Hi,

Dazu müsste man die hwnd der Bildschirmtastatur wissen, dann könnte man via der API EDIT: SetWindowPos! (MoveWindow ändert Grösseneinstellungen, Sorry) das Fenster an den Richtigen Ort schieben. Die Frage ist, wie man da rann kommt. Theoretisch müsste es via dieser API gehen, wenn die Tastatur nach dem Start das vorderste Fenster ist:

Ermitteln des hWnd:
Code:

Für das verschieben
Code:

Hoffe das hilft dir weiter. Habe aber grad keine Zeit das auch auszuprobieren, müsste aber gehen *wink.gif*

 

Hallo,

ich steh noch auf´m Schlauch. Zu den Funktionen muß ich doch noch eine "Private Sub" schreiben (hab so was in VBA noch nicht gemacht).

Kannst Du´s mir vielleicht ein bischen näher beschreiben.

Danke und Gruß
Oskar

 

Guten Morgen Oskar,

Hab es mal getestet. Die Tastatur kannst wunderbar an deine Bedürfnisse in Sachen Grösse anpassen, Die Tasten macht er alle Selbst gross und klein:

Den Code in ein Modul hineinkopieren und von da aus wo du die Tastatur brauchst "TastaturStarten" ausführen.

Code:

 

Heu Urs,

bei mir meckert Access "Sub oder Function nicht definiert". Kann es sein, daß ich in "Extras" noch den nötigen "Verweis" benötige (weiß aber nicht welchen).

Gruß
Oskar

 

Hallo Oskar,

Eigentlich nicht. Hast du den kompletten Code in ein neues Modul kopiert und dann in der Private Sub des Formulars lediglich TastaturStarten eingegeben? Die API's sind im modul als Private deklariert, daher kannst du die Sub so nicht direkt im Formular verwenden. Auch eher unnötig, da du die Tastatur vielleicht an mehreren Orten verwenden möchtest. *wink.gif*

Grüsse Urs

 

Hallo Urs,

manchmal dauert´s ein bischen länger *tongue.gif*. Hab die "Public Sub" mit einer "Private Sub" verwechselt, und direkt ins Formular gesetzt (so wie Du´s vermutet hast).
Jetzt funzt´s.

Danke und Grüsse
Oskar