AW: Userform dyn. Checkbox
16.01.2011 19:29:25
grabo
Nein - da ist mein Limit
Private Sub UserForm_Initialize()
Dim lbl As MSForms.Label
Dim lblZeit As MSForms.Label
Dim lblEntf As MSForms.Label
Dim iReihe As Integer
Dim ChB2 As MSForms.CheckBox
Dim ChB As MSForms.CheckBox
Dim i As Integer
Dim f As Variant
Dim k As Integer
Dim izLap As Integer
Dim zz As Integer
k = 0
For i = 1 To iCountLap ' wert von 10-50
izLap = 1 + (i - 1) \ 10
zz = i
Select Case izLap
Case 1: zz = zz
iReihe = 1
Case 2: zz = zz - 10
iReihe = 2
Case 3: zz = zz - 20
iReihe = 3
Case 4: zz = zz - 30
iReihe = 4
Case 5: zz = zz - 40
iReihe = 5
End Select
Set lbl = Me.Controls.Add("forms.Label.1", "lbl" & i, True)
With lbl
.Left = 42 + (120 * (iReihe - 1))
.Top = 33 + 25 * (zz - 1)
.Width = 10
.Caption = i
End With
Set lblZeit = Me.Controls.Add("forms.Label.1", "lblZeit" & i, True)
With lblZeit
.Left = 70 + (120 * (iReihe - 1))
.Top = 33 + 25 * (zz - 1)
.Width = 30
.Caption = asngPaceM(k + 1) & ":" & asngPaceS(k + 1)
End With
Set ChB = Me.Controls.Add("forms.checkbox.1", "ChB" & i, True)
With ChB
.Left = 95 + (120 * (iReihe - 1))
.Top = 31 + 25 * (zz - 1)
.Width = 30
.Caption = ""
End With
Set ChB2 = Me.Controls.Add("forms.checkbox.1", "ChB2" & i, True)
With ChB2
.Left = 105 + (120 * (iReihe - 1))
.Top = 31 + 25 * (zz - 1)
.Width = 30
.Caption = ""
' .Locked = True
End With
Set lblEntf = Me.Controls.Add("forms.Label.1", "lblentf" & i, True)
With lblEntf
.Left = 120 + (120 * (iReihe - 1))
.Top = 33 + 25 * (zz - 1)
.Width = 60
.Caption = asngDist(k + 1)
End With
k = k + 1
Next i
End Sub