Re: Eine Listbox fuer verschiedene UserForms
04.06.2002 21:30:09
Mischa Richter
schau in die onlinehilfe bei controls.addich hatte es letztens bei einer combobox zur Laufzeit so gelöst:
Dim Zähler1 As Long, Zähler As Long
Dim Ctrl As ComboBox
For Zähler = 1 To AnzMitglieder
For Zähler1 = 1 To 5
Set Ctrl = dlg_Anzeige1!Frame1.Controls.Add("Forms.ComboBox.1", ("varcbo" & Zähler & Zähler1))
With Ctrl
.Value = Anwesenheiten(Zähler, Zähler1)
.Height = 18
.Width = 50
.Left = 80 + ((Zähler1 - 1) * 50)
.Top = 35 + ((Zähler - 1) * 20)
.DropButtonStyle = fmDropButtonStyleEllipsis
.ShowDropButtonWhen = fmShowDropButtonWhenFocus
.SpecialEffect = fmSpecialEffectEtched
.TextAlign = fmTextAlignLeft
.Clear
.AddItem ([ini!g2].Value)
.AddItem ([ini!g3].Value)
.AddItem ([ini!g4].Value)
.AddItem ([ini!g5].Value)
.AddItem ([ini!g6].Value)
.AddItem ([ini!g7].Value)
End With
Set Ctrl = Nothing
Next Zähler1
Next Zähler