DTPicker zur Laufzeit erzeugen
{Boris}
ich erzeuge zur Laufzeit 2 DTPicker und platziere sie innerhalb 2 vorgegebener Frames.
Beim Aufruf des Userforms wird der erste Picker aber vom Frame überlagert. Das habe bis dato nur dadurch umgehen können, dass ich den Frame aus- und wieder einblende. Das muss doch auch anders gehen - wenn ja: Wie?
Zusatzfrage: Warum benötige ich bei der Erzeugung der Picker zur Laufzeit eigentlich keinen Verweis auf die Windows Common Controls (das ist der einzige Grund, warum ich sie zur Laufzeit erzeuge)?
Private Sub UserForm_Initialize()
Dim objDTPicker As Object
On Error GoTo Err_Handler
Set objDTPicker = Me.Controls.Add("MSComCtl2.DTPicker.2")
With objDTPicker
.Height = 16
.Name = "DTPicker1"
.Left = 30
.Top = 24
.Width = 120
End With
Set objDTPicker = Me.Controls.Add("MSComCtl2.DTPicker.2")
With objDTPicker
.Height = 16
.Name = "DTPicker2"
.Left = 30
.Top = 66
.Width = 120
End With
'###Das ist meine Krücke, um den ersten Picker sichtbar zu machen
With Me.Frame1
.Visible = False
.Visible = True
End With
Err_Handler:
End Sub
