انتخاب يه قسمت از تكست باكس

[msn_vb]

با سلام
من ميخواستم بدونم چطوري ميشه يه قسمت از توشته هاي Text Box رو توسط برنامه نويسي انتخاب كنم
و اون قسمت مثل اينكه با موس انتخاب ميكنيم به رنگ آبي در بياد
انگار من ميخوام يه برنامه جستجو بنويسم كه وقتي كلمه اي رو پيدا كرد اون قسمت رو انتخاب كنه و به رنگ آبي در بياره
خيلي ممنون از شما

[amirjan]

کد:

Function SearchInTXT(TXT_Name As TextBox, What2Find As String) As Boolean
Dim Str As String
Dim Search
Str = TXT_Name.Text
Search = InStr(Str, What2Find)
If Search Then
TXT_Name.SetFocus
TXT_Name.SelStart = Search - 1
TXT_Name.SelLength = Len(What2Find)
SearchInTXT = True
MsgBox "Text Found!", 64, "VB"
Else
SearchInTXT = False
MsgBox "Text Not Found!", 64, "VB"
End If
End Function

کد:

Call SearchInTXT(Text1, "IranVig")

[msn_vb]

خيلي ممنون امير جان :wink: