VBA User Form Tastatur bauen

Excelaner · 2020-11-19T09:22:24+00:00

Hi Leute, ich habe hier schon erfahren, wie man die Bildschirmtastatur über VBA aktivieren kann. Leider sind die Buchstaben darauf ziemlich klein, diese kann man auch nicht vergrößern. Und man kann hier auch die Windows-Taste usw. drücken, möchte ich auch nicht. Ich habe zwar gelesen, dass manche ihre eigene Tastatur über ein Userform gebaut haben, leider habe ich gar keine Ahnung wie das gehen soll. Es sind drei Textboxen die befüllt werden müssen, das heißt, je nachdem welche Textbox ich auswähle sollte die Tastatur sich automatisch öffnen und nur Buchstaben und Zahlen zur Verfügung stehen. Das was getippt wird, sollte dann nur in dem ausgewählten Textbox ersichtlich sein. Hat jemand eine Idee? Danke euch schmal im Voraus!

Hi
die Tastatur kann sich im unteren Bereich befinden.
Ob die Tastatur sichtbar ist, regelst du über die Höhe der Userform (Userform1.Height), indem du dieses zuerst so setzt, dass der Wert kleiner ist als die obere Top-Position der Tastatur, und wenn sie sichtbar sein soll, größer als die unteres Top-Postion + Höhe der Taste.
wie du die Tastatur gestaltest, hast du auch mehrere Möglichkeiten.
a) du kannst für jede Taste einen Button anlegen und in dessen Klick-Event den jeweiligen Buchstaben (die Caption der Userfom) in die zuletzt angewählte TextBox schreiben
damit du nicht für jeden Button ein Klick-Event-Makro erstellen musst, solltest du dich mit Klassenprogremmierung beschäftigen
b) du erstellst die gesamte Tastatur als eine Grafik und bindest diese in deine Userform ein.
über das MOUSEUP oder MOUSEDOWN-Event der Grafik kannst du die KLlick-Position über der Grafik bestimmen (X und Y) und daraus ermitteln, (z.B. über eine Tabelle) wo der Klick stattgefunden hat und welche Taste gemeint war.
Dabei ist es hilfreich, wenn die Tasten alle gleich groß und regelmäßig angeordnet sind.
Gruß Daniel

ok fangen wir mal oben an:
was bedeutet das, warum muss man das programmieren und woher weiß man, was man da tun muss?

Private Declare PtrSafe Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hwnd  _
As Long, ByVal nIndex As Long) As Long
Private Declare PtrSafe Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hwnd  _
As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare PtrSafe Function SetWindowPos Lib "User32" (ByVal hwnd As Long, ByVal  _
hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Declare PtrSafe Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName  _
As String, ByVal lpWindowName As String) As Long
Private Declare PtrSafe Function GetActiveWindow Lib "user32.dll" () As Long
Private Declare PtrSafe Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hwnd As  _
Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare PtrSafe Function DrawMenuBar Lib "User32" (ByVal hwnd As Long) As Long

klar ,solange man das irgenwo kopieren kann, ist alles easy, aber man will ja auch verstehen, was man da macht.

Forumthread: VBA User Form Tastatur bauen

31
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Eigene VBA Tastatur für Excel Userform erstellen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)