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 .
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 .
