ايران ويج

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

کد: 
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")

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

msn_vb

amirjan

msn_vb