Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: CodeExplorer
Autor: afu
Datum: 26.12.03 02:57
sicher nicht über jeden Zweifel erhaben!!!! aber mal ein Versuch Private Sub RichTextBox1_KeyDown(ByVal se...... Dim suche() As String = {"Hallo", "Test", "Welt", "was"} Dim ersetze() As String = {"was", "ist", "denn", "los"} If e.KeyCode = Keys.Space Then Dim suchtext As String = " " 'letzter Leerschlag Dim Pos As Integer = RichTextBox1.SelectionStart Dim i As Integer i = RichTextBox1.Find(suchtext, Pos, RichTextBoxFinds.Reverse) If i > -1 Then RichTextBox1.SelectionStart = i + 1 RichTextBox1.SelectionLength = Pos - i For i = 0 To 3 If RichTextBox1.SelectedText = suche(i) Then RichTextBox1.SelectedText = ersetze(i) Next End If RichTextBox1.Focus() RichTextBox1.SelectionStart = Pos End If gruss Alex

CodeExplorer	1.182	[CrX].:HappyHer...	26.12.03 00:49
Re: CodeExplorer	892	afu	26.12.03 02:57
Re: CodeExplorer	791	[CrX].:HappyHer...	26.12.03 13:36
Re: CodeExplorer	693	afu	26.12.03 15:21
Re: CodeExplorer	770	[CrX].:HappyHer...	26.12.03 16:44
Re: CodeExplorer	808	Star	26.12.03 20:49
Re: CodeExplorer	746	[CrX].:HappyHer...	26.12.03 21:14
Re: CodeExplorer	739	Star	26.12.03 21:51
Re: CodeExplorer	861	WaldiMaywood	27.12.03 15:38
Re: CodeExplorer	818	[CrX].:HappyHer...	27.12.03 16:37
Re: CodeExplorer	705	WaldiMaywood	27.12.03 17:06
Re: CodeExplorer	791	[CrX].:HappyHer...	30.12.03 22:14

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen