Archief - [PROG]vb.net array invullen

Het archief is een bevroren moment uit een vorige versie van dit forum, met andere regels en andere bazen. Deze posts weerspiegelen op geen enkele manier onze huidige ideeën, waarden of wereldbeelden en zijn op sommige plaatsen gecensureerd wegens ontoelaatbaar. Veel zijn in een andere tijdsgeest gemaakt, al dan niet ironisch - zoals in het ironische subforum Off-Topic - en zouden op dit moment niet meer gepost (mogen) worden. Toch bieden we dit archief nog graag aan als informatiedatabank en naslagwerk. Lees er hier meer over of start een gesprek met anderen.

knoflook

Legacy Member
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

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

Obliv`

Legacy Member
Zou je die arrays best niet private maken.

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

Massis

Legacy Member
Code:
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
Code:
Dim engelsnederlands As String()
Dim engelsvertaling As String()
beter zijn:

Code:
private engelsnederlands() As String
private engelsvertaling() As String
Het archief is een bevroren moment uit een vorige versie van dit forum, met andere regels en andere bazen. Deze posts weerspiegelen op geen enkele manier onze huidige ideeën, waarden of wereldbeelden en zijn op sommige plaatsen gecensureerd wegens ontoelaatbaar. Veel zijn in een andere tijdsgeest gemaakt, al dan niet ironisch - zoals in het ironische subforum Off-Topic - en zouden op dit moment niet meer gepost (mogen) worden. Toch bieden we dit archief nog graag aan als informatiedatabank en naslagwerk. Lees er hier meer over of start een gesprek met anderen.
Terug
Bovenaan