看 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就不能正确运行结果! 为什么?

真的我试了!!

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

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

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

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

我想问问
if where then
这句where变量为什么只有不是零的数值或不为字母的字符串就正常运行
否则就出现错误13类型不匹配
一般都是比如:if where = 4 then
那它的if where  then 是什么意思?为什么要这样写?

1.请问逻辑值是数值型的吗?因为是字母字符串运行错误13类型不匹配!
2.您是怎么想到是逻辑值的?书里哪章那节有介绍我想看看逻辑值有哪些规定?急!谢谢!!

[此贴子已经被作者于2005-5-7 13:35:25编辑过]

是不是在if 条件下 ,变量数据类型缺省,就默认为布尔值是吗???
在其它情况下,也出现这种情况吗?
佩服!!!好崇拜你!!

[此贴子已经被作者于2005-5-7 16:24:59编辑过]

是不是在if 条件下 ,变量数据类型缺省,就默认为布尔值是吗???
在其它情况下,也出现这种情况吗?