Gruppe
Dialog
Problem
Wie kann ich die Caption- bzw. Text-Eigenschaften der Elemente einer UserForm auslesen?
ClassModule: frmAuslesen
Private Sub cmdAuslesen_Click()
Dim cntLabel As Control, cntText As Control
Dim arr(1 To 2, 1 To 4)
Dim iCounterA As Integer, iCounterB As Integer
For iCounterA = 1 To 2
For iCounterB = 1 To 4
If iCounterA = 1 Then
arr(iCounterA, iCounterB) = _
Controls("lblLC" & iCounterB).Caption
Else
arr(iCounterA, iCounterB) = _
Controls("txtLC" & iCounterB).Text
End If
Next iCounterB
Next iCounterA
For iCounterA = 1 To 2
For iCounterB = 1 To 4
If iCounterA = 1 Then
MsgBox "Das " & iCounterB & ". Label hat den Wert: " _
& arr(iCounterA, iCounterB)
Else
MsgBox "Das erste " & iCounterB & _
". Textfeld hat den Wert: " & _
arr(iCounterA, iCounterB)
End If
Next iCounterB
Next iCounterA
End Sub
Private Sub cmdWeiter_Click()
Unload Me
End Sub
StandardModule: basMain
Sub CallForm()
frmAuslesen.Show
End Sub