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.
Private Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Combo1.AddItem Combo1.Text
End If
End Sub
[COLOR="Green"]'Als de gebruiker op een knop drukt als de cursor op de combo1 staat[/COLOR]
Private Sub Combo1_KeyPress(KeyAscii As Integer)
[COLOR="green"]'Als de knop die de gebruiker indrukte een "enter" is: (keyAscii 13 is een enter)[/COLOR]
If KeyAscii = 13 Then
[COLOR="green"]'Voeg de text die in combo1 staat (combo1.text) toe aan de lijst:[/COLOR]
Combo1.AddItem Combo1.Text
[COLOR="green"]'De rest spreekt voor zichzelf:[/COLOR]
End If
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
[COLOR="green"]'Als de gebruiker op enter drukt als te cursor in text1 staat:[/COLOR]
If KeyAscii = 13 Then
[COLOR="Green"]'Voeg aan de combo1 de text van text1.text toe:[/COLOR]
Combo1.AddItem Text1.Text
End If
End Sub
'Visual Basic 2005
' Add an item at the end of the list.
ListBox1.Items.Add("Tokyo")
' Insert an item at the top of the list.
ListBox1.Items.Insert(0, "Copenhagen")
' Remove the first item.
ListBox1.Items.RemoveAt(0)
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.