Vb Code Verkürzung durch Next Schleife

12/27/2010 17:13 Algaten™#1
Hi,

Ich habe in einer Form 100 Buttons
Und die möchte ich alle mitcode auf einmal die Farbe ändern Lassen
nun dachte ich mir ich mache das mit einer Next schleife Gut und schön

Quote:
Dim buttonzahl As String
Dim i As Integer

For i = 1 To 100 Step 1
buttonzahl = i
form2.button(+buttonzahl = Color.Gainsboro)
MsgBox(i)
Next i
Gut nur das sieht komisch aus und funzt nicht und macht nur Fehler
wisst ihr wie das geht will das nicht andauernd ändern :(
12/28/2010 12:30 MoepMeep#2
Schonmal was von arrays gehört? Auch wenn ich irgendwie bezweifel, dass der VB designer das unterstützt :>
12/28/2010 12:34 Algaten™#3
Quote:
Originally Posted by MoepMeep View Post
Schonmal was von arrays gehört? Auch wenn ich irgendwie bezweifel, dass der VB designer das unterstützt :>
Danke das mal Jemand antwortet :D

Nun habe ich ein Neues Problem der Code is auch Richtig nur wenns ichs debugge kratz das Programm ab:

Code:
  Me.Hide()
        Dim inhalt As String
        inhalt = TextBox1.Text
        TextBox1.Clear()


        Dim nummer As Integer
        For nummer = 0 To 100

            If MapPosition_Anzeigen.Controls("Button" & nummer.ToString).Text = inhalt Then
                MapPosition_Anzeigen.Controls("Button" & nummer.ToString).BackColor = Color.Red
            End If


        Next


        MapPosition_Anzeigen.Show()
so wenn ich z.b. 54 eingebe überprüft der Code ob einer der Button den Text 54 überprüft wenn ja dann nimmt das Programm die zahl des buttons und ndert dann die Button farbe in rot aber das will nicht so ganz da sich der Debugger dann aufhängt :(

EDIT:

Fehler gefunden zum Glück ne Exe erstelt :D
Der fehler lag da
For nummer = 0 To 100
da gehörte For nummer = 1 To 100
hin :D :facepalm: