Dynamische Erstellung von Checkboxen in eine Form
05.03.2009 15:53:00
Checkboxen
ich möchte gerne je nach Anzahl der Datei in einen Verzeichnis, automatisch
neue Checkboxen in einen Form erzeugen.
Ich habe schon einen kleinen Code der mir die Dateien zählt und dann
eine Checkbox erzeugen soll.
Das Problem im Moment ist , das ich nur eien Checkbox erzeugt bekomme,
und diese keine Bezeichnung hat.
Meien Frage die sich stellt wie gehe ich das ganze denn am besten an, und wie definiere
ich den die Position der Checkbox?
Public Sub test()
Dim NewCheckBox As MSForms.CheckBox
Dim X As Integer
Dim lngNextTop As Long
Dim DateiZahl As String
Dim i As Integer
i = 0
lngNextTop = 10
DateiZahl = Dir$("c:\test\*.xls")
Do While DateiZahl ""
If Not IsEmpty(DateiZahl) Then
i = i + 1
DateiZahl = Dir$()
End If
Loop
For X = 1 To i
'Create Check Boxes
Set NewCheckBox = Me.Controls.Add("Forms.checkbox.1")
With NewCheckBox
.Name = "MyCheck" & x
.Caption = "FB" & x
.Top = lngNextTop + 14
.Left = 10
.Width = 12
.Height = 14
.Font.Size = 7
.Font.Name = "Tahoma"
.BackColor = &HFF00&
.Value = True
NewCheckBox.Name = "FB" & x
End With
Next
End Sub
Gruß Jörg
Anzeige