late binding

[bn2vs]

Ik heb nu ergens deze code:

        frmMain.hist1.Text = frmMain.history(0)
        frmMain.hist2.Text = frmMain.history(1)
        frmMain.hist3.Text = frmMain.history(2)
        frmMain.hist4.Text = frmMain.history(3)
        frmMain.hist5.Text = frmMain.history(4)

Is het mogelijk om iets in deze aard te doen dan toegelaten is met option strict en explicit aan? (vind enkel dingen die niet toe zijn gestaan)

        Dim x As Integer : For x = 0 To 4
            frmMain.hist[x].Text = frmMain.history(x)
        Next

Alvast bedankt

 

[That Guy]

nee, in VB kan je niet aan variabele-variabelen namen doen (php wel geloof ik)

je zou wel een controll-array kunnen maken (mits hist1, hist2, etc textboxen, list ofzo zijn)

 

[bn2vs]

dat is nog wat boven mn niveau denk ik

zou je een voorbeeld kunnen geven?

 

[That Guy]

valt mee

check deze sites:
http://visualbasic.about.com/od/usingvbnet/l/bldykctrlarraya.htm
http://forums.microsoft.com/MSDN/ShowPost.aspx?PostID=1734917&SiteID=1


anywho - het ziet er ongeveer zo uit:
(gejat van 2e link)

For i As Integer = 0 To 4
If TypeOf (Me.Controls("TextBox" & i.ToString)) Is TextBox Then
CType(Me.Controls("TextBox" & i.ToString), TextBox).Text = ""
End If
Next i

 

[bn2vs]

Ik heb nu deze code en die werkt perfect

        For i As Integer = LBound(frmMain.history) + 1 To UBound(frmMain.history) + 1
            If TypeOf (frmMain.geschiedenis.DropDownItems("hist" & i.ToString)) Is ToolStripItem Then
                CType(frmMain.geschiedenis.DropDownItems("hist" & i.ToString), ToolStripItem).Text = frmMain.history(i - 1)
            End If
        Next i

Thnx voor de hulp :thumb: