VBA User Form Tastatur bauen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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.

Beliebteste Forumthreads (12 Monate)

31
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA User Form Tastatur bauen

31 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

31
Beiträge zum Forumthread

Beiträge zu diesem Forumthread