title image


Smiley Re: Zeichen neben dem Cursor erkennen?
Hallo,



das ist die Eigenschaft SelStart der Textbox.





Private Sub Command1_Click()

 'gibt das Zeichen links vom Cursor zurück

 Text2.Text = Mid(Text1.Text, Text1.SelStart, 1)

End Sub



Private Sub Command1_Click()

 'gibt das Zeichen Rechts vom Cursor zurück

 Text2.Text = Mid(Text1.Text, Text1.SelStart + 1, 1)

End Sub



Code eingefügt mit Syntaxhighlighter 2.5




Gruß manyki

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: