看 Private Sub Form_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

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 .............(成立) 但是 若把form_click 换成 command1_click就不能正确运行结果! 为什么?

不会吧

真的我试了!!

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

那为什么form_click就不用移动焦点呢???

form没有焦点。

哦 对 form是没有焦点
为什么没有焦点就行呢
您能说的稍微具体一点吗??
]我还是有点非匿所思!惭愧!!

哦 是因为command1有焦点
当激发command1_click事件后焦点还停留在command1上
所以需要写代码人工转移焦点,因为text1需要焦点才能
选中被搜索字符串.
而form对象没有焦点,所以就自动转移到text1上了.
是这个道理吗?斑竹?

对了。

惭愧!! 我很崇拜你斑竹!
我是天津红桥的!咱们是老乡吧!