Verketten von Variablen-Namen in VB

Habe ich ein großes Fenster mit etwas unter 200 Kontrollen/Variablen zu befürchten. Viele von Ihnen sind ähnlich, so Frage ich mich, ob statt der immer wieder ruft jedes einzeln kann ich verketten Sie Ihre Namen.

Ich mache ein Beispiel:

Habe ich 5 Stück von Daten, die ich bin besorgt: Rot, Orange, Gelb, Grün, Blau.

Jeder von diesen ist ein Etikett, muss sichtbar gemacht werden, ein Textfeld, das muss sichtbar gemacht werden, und eine Zeichenfolge, die enthält den text in das Textfeld:

lblRed.Visible = True
txtRed.Visible = True
strRed = txtRed.Text

Anstelle der Liste diese für jedes dieser 5 Stücke von Daten, gibt es eine Möglichkeit, dass ich könnte eine Art von array zu Durchlaufen, könnte verketten diese Variablen Namen?

Dim list As New List(Of String)(New String() {"Red", "Orange", "Yellow", "Green", "Blue"})
Dim i As Integer = 0
Do while i < list.count
  lbl + list(i) + .Visible = True
  txt + list(i) + .Visible = True
  str + list(i) = txt + list(i) + .Text
  i = i+1
Loop

Ich weiß, dass der obige code nicht funktioniert, aber ich wollte Ihnen die grundlegende Vorstellung davon, was ich tun wollte. Das sieht machbar?

InformationsquelleAutor Kevin Kesicki | 2013-07-10

  1. 1

    http://msdn.microsoft.com/en-us/library/7e4daa9c(v=vs. 71).aspx

    Mithilfe der controls-Auflistung:

        Dim i As Integer
    i = 1
    Me.Controls("Textbox" & i).Text = "TEST"

    so

    Me.controls("lbl" & list(i)).Visible = true

    Beachten Sie, dass beim verketten von Elementen, '+' arbeiten auf strings und nicht zahlen. Sie möchten möglicherweise verwenden Sie immer '&' bei der Verkettung

    Funktionierte perfekt! danke!

    InformationsquelleAutor Jason Bayldon

  2. 0

    Andere Möglichkeit ist die Verwendung einer select-case-block für jede Art von Kontrolle. So etwas wie dieses:

    Private Sub EnableControls()
    For Each c As Control In Me.Controls
        Select Case c.GetType
            Case GetType(TextBox)
                c.Visible = True
                Select Case c.Name.Substring(3)
                    Case "Red"
                        strRed = c.Text
                    Case "Orange"
                        strOrange = c.Text
                    Case "Yellow"
                        'and so on
                End Select
            Case GetType(Label)
                c.Visible = True
        End Select
    Next
End Sub

    InformationsquelleAutor tinstaafl

  3. 0

    Überprüfen Sie heraus die Informationen hier:

    http://msdn.microsoft.com/en-us/library/axt1ctd9.aspx

    Ich bin sicher, jemand kann etwas finden, etwas beredter als diese, aber dies sollte die Erreichung Ihrer gewünschten Ergebnis. Sie müssen die unten importieren:

    Imports System.Reflection

    Wenn Sie Eigenschaften für den Zugriff auf die Variablen, die Sie verwenden können, Reflexion, greifen Sie mit Namen:

    'Define these with getters/setters/private vars
Private Property strRed as String
Private Property strOrange as String 
Private Property strYellow as String 
Private Property strGreen as String 
Private Property strBlue as String 

For each color as String in list
    If Me.Controls.Count > 1 Then
         'Should really check for existence here, but it's just an example.
         Me.Controls("lbl" & color).Visible = True
         Dim tbx as TextBox = Me.Controls("txt" & color)
         tbx.Visible = True
         Dim propInfo as PropertyInfo = Me.GetType.GetProperty("str" & color)
         propInfo.SetValue(Me, tbx.Text, Nothing)
     End If
Next

    InformationsquelleAutor casanovabomb

Schreibe einen Kommentar