[PROG]vb.net array invullen

[knoflook]

Ik volg dus al een tijdje een cursus programmeren en we zijn bezig met arrays en nu wil ik een array invullen met een inputbox .

Dim engelsnederlands As String()
Dim engelsvertaling As String()


Dim i As Integer



Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click

If mnuengels.Checked = True Then
Dim engelsgetal As Integer
engelsgetal = 0

engelsnederlands(engelsgetal) = CType(InputBox("Geef het nederlandse woord in : ", " Nederlands "), String)

engelsvertaling(engelsgetal) = CType(InputBox("Geef het Engels woord in : ", " Vertaling "), String)

engelsgetal = engelsgetal + 1
End If

dit werkt dus niet en ik weet niet wat ik fout doe .

[Rajiv]

volgens mij moet je eerst uw inputbox (een textbox dus?) initializeren en nadien de optie ".Text" gebruiken

[Obliv`]

Zou je die arrays best niet private maken.

Je wil je array uitbreiden, dus je hebt een dynamische array. Google -> ReDim Preserve.

[passero]

gebruik maken van een araylist ivp gewone array?

[Massis]

If mnuengels.Checked = True Then
Dim engelsgetal As Integer
engelsgetal = 0

for engelsgetal = 0 to engelsnederlands.lenth
engelsnederlands(engelsgetal) = CType(InputBox("Geef het nederlandse woord in : ", " Nederlands "), String)

engelsvertaling(engelsgetal) = CType(InputBox("Geef het Engels woord in : ", " Vertaling "), String)

next
End If

werkt enkel als ge op voorhand weet hoeveel woorden ge gaat gebruiken (want de array moet op voorhand de lengte hebben)

als ge wilt bijvoegen moet ge zoals gezegd dynamische arrays gaan gebruiken dmv Redim Preserve

(eventueel een hashtable gebruiken?)

overigens moet zover ik weet

Dim engelsnederlands As String()
Dim engelsvertaling As String()

beter zijn:

private engelsnederlands() As String
private engelsvertaling() As String