Visual Basic-Einstellung-Labels in ein Array

Ich Schreibe ein kleines Programm in Visual Basic Studio '10. Ich habe eine Serie von acht arrays, die ich brauche, um den text auch in einer for-Schleife. Ich brauche, um den text aus dem label-Nummer(z.B. Etikett 1 wird wort1, label 2 bekommt wort2) gibt es eine Möglichkeit zum erstellen eines array ist, dann meine vorhandenen Etiketten im inneren dieses array kann ich dann also sagen Sie etwas wie

for i = 1 to 8
    subsets(i).Text = words(w + i)
next
  • 'ich' - variable einer for-Schleife
  • Teilmengen wird der name des Arrays.
  • 'Worte' ist ein array mit strings, die
    Ich bin ein bisschen neu in diesem, also danke!
InformationsquelleAutor Polaric | 2013-01-19
  1. 2

    Können Sie erstellen, die ein array (oder Liste) von Label und fügen Sie jedes label-Steuerelement, um es.

    Dies ermöglicht es Ihnen, Schleife und Werte zuweisen, wie Sie es beschreiben.

    Dim subsets As New List(Of Label)
subsets.Add(label1)
subsets.Add(label2)
...
    InformationsquelleAutor Oded
  2. 1

    Da möchte man auf base das Wort auf dem Etikett den Namen, sollten Sie ein array oder eine Liste, wie Oded vorgeschlagen. Sie können dann die - String.Entfernen Methode zu entfernen Sie das Wort " Beschriftung von Etiketten name, werfe es in einen int, und subtrahieren Sie 1, da arrays in .Netto sind 0-basiert.

    Etwas wie dieses.

    Public Class Form1

    Dim subsets(7) As Label
    Dim words() As String = New String() {"this", "is", "a", "test", "of", "text", "replacement", "."}
    Public Sub New()

        ' This call is required by the designer.
        InitializeComponent()

        ' Add any initialization after the InitializeComponent() call.
        subsets(0) = Label1
        subsets(1) = Label2
        subsets(2) = Label3
        subsets(3) = Label4
        subsets(4) = Label5
        subsets(5) = Label6
        subsets(6) = Label7
        subsets(7) = Label8

    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        For Each lbl As Label In subsets
            lbl.Text = words(CInt(lbl.Name.Remove(0, 5)) - 1)
        Next
    End Sub
End Class
    InformationsquelleAutor Mark Hall
  3. 1

    Ich denke, das ist, was Sie versuchen zu tun, obwohl ich könnte falsch sein

    Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim words() As String = {"one", "two", "three", "four", "five", "six", "seven", "eight"}
    Dim subsets() As Control = {Label1, Label2, Label3, Label4, Label5, Label6, Label7, Label8}

    For i = 0 To 7
        subsets(i).Text = words(i)
    Next

End Sub
End Class

    Diese ordnet die Wörter array, um die Etiketten text-Eigenschaft

    InformationsquelleAutor SubtleStu
Schreibe einen Kommentar