Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Private Sub btnToevoegen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnToevoegen.Click
- If txtToevoegen.Text = Nothing Then
- Else
- If rbtAchteraan.Checked Or rbtVooraan.Checked Then
- If _iVolgende Mod 10 = 0 Then
- ReDim Preserve _arrsLijst(_iVolgende + 9)
- End If
- If rbtAchteraan.Checked Then
- _arrsLijst(_iVolgende) = txtToevoegen.Text
- Else
- For i = 0 To (_iVolgende - 1)
- _arrsLijst(_iVolgende - i) = _arrsLijst(_iVolgende - (1 + i))
- Next
- _arrsLijst(0) = txtToevoegen.Text
- End If
- _iVolgende += 1
- _iIndex = 0
- txtToevoegen.Text = Nothing
- lblLijst.Text = _arrsLijst(_iIndex)
- gpbLijst.Text = "Element " + (_iIndex + 1).ToString + "/" + (_iVolgende).ToString
- End If
- End If
- End Sub
Add Comment
Please, Sign In to add comment