VB 5/6-Tipp 0314: Alle Steuerelemente auf dem eigenen Form enummerieren
von ActiveVB
Beschreibung
Hiermit lassen sich alle auf dem eigenen Form sitzenden Controls auflisten und sogar typenbedingt abfragen,
Schwierigkeitsgrad: | Verwendete API-Aufrufe: keine | Download: |
'Dieser Quellcode stammt von http://www.activevb.de 'und kann frei verwendet werden. Für eventuelle Schäden 'wird nicht gehaftet. 'Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum. 'Ansonsten viel Spaß und Erfolg mit diesem Source! '------------- Anfang Projektdatei Project1.vbp ------------- '--------- Anfang Formular "Form1" alias Form1.frm --------- ' Steuerelement: Schaltfläche "Command1" ' Steuerelement: Dateiauswahlliste "File1" ' Steuerelement: Festplattenauswahlliste "Drive1" ' Steuerelement: Verzeichnisauswahlliste "Dir1" ' Steuerelement: Bildfeld-Steuerelement "Picture1" ' Steuerelement: Horizontale Scrollbar "HScroll1" ' Steuerelement: Vertikale Scrollbar "VScroll1" ' Steuerelement: Timersteuerelement "Timer1" ' Steuerelement: Listen-Steuerelement "List2" ' Steuerelement: Listen-Steuerelement "List1" ' Steuerelement: Textfeld "Text4" ' Steuerelement: Textfeld "Text3" ' Steuerelement: Textfeld "Text2" ' Steuerelement: Textfeld "Text1" ' Steuerelement: Figur-Steuerelement "Shape1" ' Steuerelement: Anzeige-Steuerelement "Image1" ' Steuerelement: Beschriftungsfeld "Label2" ' Steuerelement: Beschriftungsfeld "Label1" Option Explicit Private Sub Form_Load() Dim x As Control List1.Clear List2.Clear For Each x In Form1.Controls List1.AddItem x.Name If TypeOf x Is TextBox Then List2.AddItem x.Name If x.Name = "Text3" Then 'gefunden, hier folgt dann die gewünschte Aktion 'z.B.: Text1.Text = CStr(Val(Text1.Text) + 1) End If End If Next x End Sub '---------- Ende Formular "Form1" alias Form1.frm ---------- '-------------- Ende Projektdatei Project1.vbp --------------
Tipp-Kompatibilität:
Windows/VB-Version | Win32s | Win95 | Win98 | WinME | WinNT4 | Win2000 | WinXP |
VB4 | |||||||
VB5 | |||||||
VB6 |
Ihre Meinung
Falls Sie Fragen zu diesem Artikel haben oder Ihre Erfahrung mit anderen Nutzern austauschen möchten, dann teilen Sie uns diese bitte in einem der unten vorhandenen Themen oder über einen neuen Beitrag mit. Hierzu können sie einfach einen Beitrag in einem zum Thema passenden Forum anlegen, welcher automatisch mit dieser Seite verknüpft wird.