FRAME UND TEXTBOX ...
05.02.2009 20:28:11
eric
Private Sub UserForm_initialize()
Dim ctl As Control
'* FRAME ERSTELLEN IN USERFORM *
'* Dim ctl As Control *
Set ctl = Controls.Add("forms.frame.1", "frm1", True)
With ctl
.Left = 400
.Top = 20
.Width = 400
.Height = 490
.Font.Bold = True
.Font.Name = "Tahoma"
.Font.Size = 10
.Caption = " KUNDEN "
End With
'* LABEL UND TEXTBOXEN ERSTELLEN IN USERFORM *
'* Dim ctl As Control *
'* KUNDENNUMMER : LABEL UND TEXTBOX *
'* lbl1 & txt1 *
Set ctl = Controls.Add("forms.label.1", "lbl1", True)
With ctl
.Left = 30
.Top = 50
.Width = 100
.Height = 20
.Font.Bold = True
.Font.Name = "Tahoma"
.Font.Size = 10
.Caption = "KUNDENNUMMER"
.Accelerator = "K"
End With
Set ctl = Controls.Add("forms.textbox.1", "txt1", True)
With ctl
.Left = 150
.Top = 50
.Width = 200
.Height = 20
.Font.Bold = True
.Font.Name = "Tahoma"
.Font.Size = 10
End With
End Sub
Wie bekomme ich Text- und Label in Frame ?
Danke