Zum Inhalt springen

Arrays von Steuerelementen


Empfohlene Beiträge

Geschrieben

        Load Text1(lngIndex)

Text1(lngIndex).Top = Text1(0).Top
Text1(lngIndex).Left = Text1(0).Left + Text1(0).Width * (lngIndex) + 90 * (lngIndex)
Text1(lngIndex).Text = "Text1(" & Tri***(lngIndex) & ")"
Text1(lngIndex).Visible = True[/PHP]

... das ist zum laden eines neuen elements...

[PHP] Unload Text1(lngIndex)

und das zum wegwerfen ;)

text1 ist ein element auf der form, das schon existiert...

getestet unter VB6, sollte aber auch unter VBA tun

Geschrieben

Das nützt Dir aber nur was, wenn Du die Controls schon hast.

Mit dem Quellcode erstellst du dynamisch neue Textboxen unter VB:


Private WithEvents btnObj As VB.TextBox

Public Sub CreateTextBox(Width As Integer, Caption As String, top, left As Integer, Visible As Boolean)
Set btnObj = Controls.Add("vb.TextBox", "btnObj")
With btnObj
.Width = Width
.Text = Caption
.top = top
.left = left
.Visible = Visible
End With
End Sub

Private Sub Form_Load()
CreateTextBox 600, "Test", 300, 300, True
End Sub
[/PHP]

In VBA sind dynamische Generierungen von solchen Objekten eigentlich nicht möglich. Ich habe dennoch etwas gefunden, was Dir weiter helfen wird:

http://mypage.bluewin.ch/reprobst/WordFAQ/UFDyna.htm#UFDyna10

Erstelle ein Benutzerkonto oder melde Dich an, um zu kommentieren

Du musst ein Benutzerkonto haben, um einen Kommentar verfassen zu können

Benutzerkonto erstellen

Neues Benutzerkonto für unsere Community erstellen. Es ist einfach!

Neues Benutzerkonto erstellen

Anmelden

Du hast bereits ein Benutzerkonto? Melde Dich hier an.

Jetzt anmelden

Fachinformatiker.de, 2024 by SE Internet Services

fidelogo_small.png

Schicke uns eine Nachricht!

Fachinformatiker.de ist die größte IT-Community
rund um Ausbildung, Job, Weiterbildung für IT-Fachkräfte.

Fachinformatiker.de App

Download on the App Store
Get it on Google Play

Kontakt

Hier werben?
Oder sende eine E-Mail an

Social media u. feeds

Jobboard für Fachinformatiker und IT-Fachkräfte

×
×
  • Neu erstellen...