# Re: 小吴 , cww ,everybody 帮个忙好吗 ?

Posted by jutso on March 05, 1999 at 16:46:54:

In Reply to: 小吴 , cww ,everybody 帮个忙好吗 ? posted by S.W.U on March 05, 1999 at 15:35:34:

: ***************************************************************

: program 2 :

:
: Private Sub Command1_Click()
: Dim Search, Where
: Search = InputBox("Enter text to be found:")
: Where = InStr(Text1.Text, Search)
: If Where Then
: Text1.SelStart = Where - 1
: Text1.SelLength = Len(Search)
: Else
: MsgBox "String not found."
: End If

text1.setfocus
^^^^^^^^^^^^^^
: End Sub

: Private Sub Form_Load()
: Text1.Text = "Two of the peak human experiences"
: Text1.Text = Text1.Text & " are good food and classical music."
:
: End Sub

Follow Ups: