Dynamisches Abfragen von Steuerelementen

Computer: Software & Programmierung Programmierung allgemein
#1

hallo kollega;

folgende Problematik:

ich habe 16 verschiedene Steuerelemente (TEXT-BOX) mit den Namen B1 bis B16 und möchte in diese Inhalte aus anderen Tabellen einlesen.

Beispielprogramm:

i=0
do
form.„bi“=activesheet.cells(i,1)
i=i+1
loop until i=16

form.show

Wie kann ich meinem digitalen Freund klar machen, daß „bi“ keine variable ist, sondern zusammengesetzt ist aus b und einem Zähler i.

Danke im voraus
mikey

#2

2 Lösungen:

  1. Du hast ein Form mit mehrern gleichnamigen(!) Textboxen [TextBox(Index)], die über einen laufenden Index benannt sind.

Private Sub Fill_TextBox
Dim i As Integer

For i = 0 To TextBox.Count - 1
TextBox(i).Text = „Blabla“ & i
Next

End Sub

  1. Du hast ein Form mit mehrern gleichnamigen(!) Textboxen [TextBox(Index)], die über einen wahllosen Index haben:

Private Sub Fill_TextBox
Dim myTextBox as TextBox

For Each myTextBox In Form.TextBox
myTextBox.Text = "Blabla
Next

End Sub

MfG, Stefan.

#3

hallo mikey

Die einfachste Lösung ist, ein Textcontrol zu haben und dieses zu indizieren (Property Index).
Die zweite Variante:
Du könntest den Namen des Textcontrols vorher in einer Variablen
zusammensetzen. Danach über die Controll Collection des Forms verifizieren, dass der Typ des Controls Textbox und der Name der Var entspricht…

Grüsse Peter