Textbox ansprechen
24.04.2013 10:56:29
Sophie
folgendes ist mein Problem, das ich alleine nicht gebacken bekomme.
Zwei Userformen, auf einer befinden sich 4 Textboxen, in der anderen Userform habe ich eine Virtuelle Tastatur erstellt, also Button mit Buchstaben, Zahlen.
Nun sollte es so sein, wenn ich eine Textbox anklicke, sollte die zweite Userform mit der Tastatur sich öffnen, wenn ich nun hier zum Schreiben anfange, sollten die Daten dann natürlich in die Textbox der Ersten Userform wandern.
Folgendes habe ich bereits erstellt, das leider nicht funktioniert:
In der Userform mit den Textboxen:
Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As _
Single, ByVal Y As Single)
Set gtxtbox = Controls("TextBox1")
frmVirtuelleTastatur.Show
End Sub
Private Sub TextBox2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As _
Single, ByVal Y As Single)
Set gtxtbox = Controls("TextBox2")
frmVirtuelleTastatur.Show
End Sub
Private Sub TextBox3_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As _
Single, ByVal Y As Single)
Set gtxtbox = Controls("TextBox3")
frmVirtuelleTastatur.Show
End Sub
Private Sub TextBox4_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As _
Single, ByVal Y As Single)
Set gtxtbox = Controls("TextBox4")
frmVirtuelleTastatur.Show
End Sub
Private Sub cmdA_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, _
ByVal Y As Single)
gtxtbox.Text = gtxtbox.Text & cmdA.Caption
End Sub
Nehme mal an, dass ich "gtxtbox" irgendwie und wo noch deklarieren muss.
Vielen Dank für jede Hilfe.
Gruss
Sophie