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

Dein Kommentar

Du kannst jetzt schreiben und Dich später registrieren. Wenn Du ein Konto hast, melde Dich jetzt an, um unter Deinem Benutzernamen zu schreiben.

Gast
Auf dieses Thema antworten...

×   Du hast formatierten Text eingefügt.   Formatierung wiederherstellen

  Nur 75 Emojis sind erlaubt.

×   Dein Link wurde automatisch eingebettet.   Einbetten rückgängig machen und als Link darstellen

×   Dein vorheriger Inhalt wurde wiederhergestellt.   Editor leeren

×   Du kannst Bilder nicht direkt einfügen. Lade Bilder hoch oder lade sie von einer URL.

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...