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 TextBox1_Change()
Dim i As Long
Dim Tekst As String
For i = 1 To Len(TextBox1.Text)
Select Case Asc(Mid(TextBox1.Text, i, 1))
Case 32 'Uitsluiten spatie
Case 65 To 92 'Hoofdletter omzetten naar kleine letter
Tekst = Tekst & Chr(Asc(Mid(TextBox1.Text, i, 1)) + 32)
Case Else
Tekst = Tekst & Mid(TextBox1.Text, i, 1)
End Select
Next
TextBox1.Text = Tekst
End Sub
Dim i As Long
Dim Tekst As String
For i = 1 To Len(TextBox1.Text)
Select Case Asc(Mid(TextBox1.Text, i, 1))
Case 32 'Uitsluiten spatie
Case 65 To 92 'Hoofdletter omzetten naar kleine letter
Tekst = Tekst & Chr(Asc(Mid(TextBox1.Text, i, 1)) + 32)
Case Else
Tekst = Tekst & Mid(TextBox1.Text, i, 1)
End Select
Next
TextBox1.Text = Tekst
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.