Anzeige
Archiv - Navigation
1044to1048
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

FRAME UND TEXTBOX ...

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


		

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: FRAME UND TEXTBOX ...
05.02.2009 20:30:12
eric
ANHANG :
WENN ICH MIT LEFT; TOP ... die Textbox in den Bereich "Frame" stelle, dann steht der Frame darüber !
AW: FRAME UND TEXTBOX ...
05.02.2009 20:49:33
K.Rola
Hallo,
Set ctl = Controls("frm1").Controls.Add("forms.label.1", "lbl1", True)
für die textbox analog.
Gruß K.Rola
AW: FRAME UND TEXTBOX ...
05.02.2009 21:20:04
eric
DANKE,
funktioniert super
...
Dim ctl As Control
'****************************************************************************
'* *
'* FRAME ERSTELLEN IN USERFORM *
'* Dim ctl As Control *
'* *
'****************************************************************************
Set ctl = Controls.Add("forms.frame.1", "frm1", True)
With ctl
.Left = 20
.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("frm1").Controls.Add("forms.label.1", "lbl1", True)
With ctl
.Left = 30
.Top = 25
.Width = 100
.Height = 20
.Font.Bold = True
.Font.Name = "Tahoma"
.Font.Size = 10
.Caption = "KUNDENNUMMER"
.Accelerator = "K"
End With
Set ctl = Controls("frm1").Controls.Add("forms.textbox.1", "txt1", True)
With ctl
.Left = 150
.Top = 25
.Width = 200
.Height = 20
.Font.Bold = True
.Font.Name = "Tahoma"
.Font.Size = 10
....
End With
end sub
DANKE eric
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige