Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
2) Private Sub Form_Load()
Dim x As Integer
For x = 1 To 10
List1.AddItem x
Next x
End Sub
3) Private Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii = 13) Then
Dim x As Integer
For x = 1 To List1.ListCount
If Text1 = x Then
List1 = x
Exit For
End If
Next x
If x = 11 Then
MsgBox "Niet gevonden"
End If
End If
End Sub
1) In General Declaration van het Form:
Dim naam(5) As String
Dim x, y As Integer
2) Private Sub Form_Load()
naam(0) = "Kees"
naam(1) = "Johan"
naam(2) = "Robert"
naam(3) = "Klaas"
naam(4) = "Bertus"
For x = 0 To 4
List1.AddItem naam(x)
Next x
End Sub
3) Private Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii = 13) Then
For x = 0 To 4
If Text1 = naam(x) Then
naam(x) = Text1 & Text1
List1.Clear
For y = 0 To 4
List1.AddItem naam(y)
Next y
List1.ListIndex = x
Exit For
End If
Next x
If x = 5 Then
MsgBox "Niet gevonden"
End If
End If
End Sub
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.