Dynamischer Zugriff auf Steuerelemente VB-Version:  VB2005, VB2008
	Views:  21.167

Manchmal möchte man dynamisch auf Steuerelemente zugreifen, indem man einen Namen und einen Index angibt.

Hier ein Beispielcode aus dem Forum:

Auf einer Form befindet sich ein Label (Label1) dem die Beschriftung sowie die Schriftfarbe beim Laden der Form zugewiesen wird. Hierbei wird der Datentyp Integer explizit nach String umgewandelt, damit das Ganze auch bei eingeschalteter Option "Option Strict On" funktioniert:

Public Class Form1
 
  Private Sub Form1_Load(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles MyBase.Load
 
    Dim i As Integer = 1 	' Variable, die den Index darstellt
 
    ' dem Label einen Text zuweisen
    Me.Controls("Label" & i.ToString).Text = "Hallo"
 
    ' Text farbig darstellen
    Me.Controls("Label" & i.ToString).ForeColor = Color.Red
  End Sub
 
End Class