Such Funktion in eine TextBox einbauen ?

Kasoki · 2. Januar 2009, 22:24

Hallo^^,

ich habe schon öfter von der möglichkeit gehört das man eine suchfunktion in eine textbox bauen kann leider habe ich dies schon öfter versucht und zu garkeinem ergebnis gekommen.

Leider will ein freund mir nicht sagen wie er es gemacht hat

von daher frage ich mal hier nach =)

Lg

ich

Burn · 2. Januar 2009, 22:36

Was willst du den wo suchen ?

Einfach einen Text nach einem Wort duchsuchen oder was meinst du ?

Kasoki · 2. Januar 2009, 22:43

also in meiner textbox ist eine lange liste mit dazugehörigen werten und da die liste seeeeehr lang is (ca. 200 zeilen) wäre es einfach praktischer eine art SuFu einzubauen^^ womit man innerhalb der textbox wörter suchen kann

mcandy007 · 2. Januar 2009, 23:23

Habe es schnell Sowas Programiert! Das wort was du suchst muss laut meinen angeben in einer richtextbox sein" kanst aber ändern!
Wichtig ist bei den code das contains! Teste mal obs geht! bei fragen einfach ICQ

VB.NET-Quellcode

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If (RichTextBox1.Text.Contains(TextBox1.Text)) Then
MessageBox.Show("Das wort " & TextBox1.Text & " ist im Text oder Liste vorhanden!")
End If
End Sub
End Class

Du bracuhst auf deiner form: Button, Richtexbox, und Textbox!

Kasoki · 3. Januar 2009, 00:10

soweit war ich schon^^ ich will aber ein bestimmtes wort auslesen lassn also das er dann zu dem wort scrollt und es markiert oder so =)

lg

ich

Sturmvogel · 3. Januar 2009, 00:47

Naja so kannst jedenfalls Markieren:

VB.NET-Quellcode

If Richtextbox1.text.Contains(textbox1.text) Then
Richtextbox1.SelectionBackcolor = color.acidBlue
End if

Kasoki · 3. Januar 2009, 04:49

mein vb nimmt leider das SelectionBackcolor und das acidBlue nich^^

mikeb69 · 3. Januar 2009, 14:51

hallo kasoki,

1. nimm eine richtextbox anstatt der textbox oder bau dir ein eigenes control welches von textbox erbt.
2. der indexof befehl ist hier besser, als der contains befehl, weil dieser die position zurückgibt (-1 bei nicht gefunden)
3. markieren geht mit der standardtextbox nicht - siehe 1.

gruss

mikeb69

Kasoki · 3. Januar 2009, 17:48

hm...

klappen tuts leider immernoch net mein programm sieht derzeit so aus:

VB.NET-Quellcode

Imports System.IO
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If RichTextBox1.Text.IndexOf(RichTextBox2.Text) Then
RichTextBox1.SelectionBackColor = Color.Azure
End If
End Sub
End Class

milaim · 4. Januar 2009, 15:22

Mikeb hat ja schon gesagt, -1 wird zurückgegeben wenn nichts gefunden wurde.

Dann mach auch ne Abfrage danach.

Hier der Code für den Button:

VB.NET-Quellcode

If RichTextBox1.Text.IndexOf(RichTextBox2.Text) <> -1 Then
RichTextBox1.SelectionStart = RichTextBox1.Text.IndexOf(RichTextBox2.Text)
RichTextBox1.SelectionLength = RichTextBox2.Text.Length
RichTextBox1.Select()
End If

Such Funktion in eine TextBox einbauen ?

Such Funktion in eine TextBox einbauen ?

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

3 Benutzer haben hier geschrieben