Private Sub cmdAfkorting_Click()
MsgBox afkorting(TextBox1.Text)
End Sub
Private Sub cmdGeenKlinkers_Click()
MsgBox GeenKlinkers(TextBox1.Text)
End Sub
Private Sub cmdLCase_Click()
MsgBox LCase(TextBox1.Text)
End Sub
Private Sub cmdLinkse_Click()
MsgBox Left(TextBox1.Text, 5)'[In .NET doe je dit met Mid.]
End Sub
Private Sub cmdOmdraaien_Click()
MsgBox omdraaien(TextBox1.Text)
End Sub
Function omdraaien(tekst As String) As String
Dim letter As String
Dim positie As Integer
Dim buffer As String
For positie = 1 To Len(tekst)
letter = Mid(tekst, positie, 1)
buffer = letter & buffer
Next positie
omdraaien = buffer
End Function
Function afkorting(tekst As String) As String
Dim letter As String
Dim vorigeletter As String
Dim positie As Integer
Dim buffer As String
For positie = 1 To Len(tekst)
vorigeletter = letter
letter = Mid(tekst, positie, 1)
If vorigeletter = "" Or vorigeletter = " " Then
buffer = buffer & letter
End If
Next positie
afkorting = buffer
End Function
Function GeenKlinkers(tekst As String) As String
Dim letter As String
Dim vorigeletter As String
Dim positie As Integer
Dim buffer As String
For positie = 1 To Len(tekst)
vorigeletter = letter
letter = Mid(tekst, positie, 1)
Select Case LCase(letter)
Case "a", "e", "i", "u", "o"
'niets doen
Case Else
buffer = buffer & letter
End Select
Next positie
GeenKlinkers = buffer
End Function
Private Sub cmdRechtse_Click()
MsgBox Right(TextBox1.Text, 5) '[In .NET doe je dit met Mid.]
End Sub
Private Sub cmdTrim_Click()
MsgBox Trim(TextBox1.Text)
End Sub
Private Sub cmdUCase_Click()
MsgBox UCase(TextBox1.Text)
End Sub