If e.KeyChar = "z" Or e.KeyChar = "Z" Then
TextBox2.Text += "a"
Else
'bij de integerwaarde van het ingevoerde karakter 1 bijtellen
'en terug omzetten naar een char om in het tekstvak te zetten
TextBox2.Text += ChrW(AscW(e.KeyChar) + 1)
End If
If e.KeyChar="z" Or e.KeyChar="Z"Then
TextBox2.Text+="a"
Else
'bij de integerwaarde van het ingevoerde karakter 1 bijtellen
'en terug omzetten naar een char om in het tekstvak te zetten
TextBox2.Text+=ChrW(AscW(e.KeyChar)+1)
EndIf
Gesponsorde links
Je moet ingelogd zijn om een reactie te kunnen posten.