جستجو و جایگزین کردن متن

[iran_sky]

با سلام به دوستان
با چه کدی میشه مثلا در یک textbox کلمه ی وارد کرده و با زدن کلید کلمه مورد نظر رو پیدا کنه البته باید با هر با کلیک یک کلمه دیگر در صورت وجود پیدا بشه و با وارد کردن یک کلمه دیگر در textbox و زدن یک دکمه دیگر تمامی کلمات حایگزید شود

[ali_najari]

دوست عزیز برای جایگزین کردن که باید از دستور Replace استفاده کنی یا اینکه مقدار Select شده رو تغییر بدی از طریق کد زیز


Textbox1.selectedText="New String"

برای جستوجو هم کمی صبر کنید تا پیدا کنم (یعنی میدونم ولی باید بنویسمش)

[ali_najari]

این یه راه حلی هست که دارید:
خیلی ساده و ابتدایی هست ولی شاید بتونید ازش الهام بگیرید:



Dim Start As Integer = 0
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Try
Dim Str As String = "ali"
Dim RTB As New RichTextBox
RTB.Text = TextBox1.Text
Dim S As Integer = RTB.Find(Str, Start, RichTextBoxFinds.None)
TextBox1.Select(S, Str.Length)
Start = S + Str.Length
Catch ex As Exception
Start = 0
End Try

End Sub