有关VB:怎么用instr()来编像Word那样的查找功能

发布网友发布时间：2024-10-19 18:00

共3个回答

热心网友时间：2024-11-20 19:47

问题1.
'放在一个标准模块中,设置工程启动为"Sub Main()"
Option Explicit

Sub main()
Dim SourceStr As String, wStr As String
'待查找的字符串
SourceStr = "abcdef1Google" & _
"ghijkl2百度搜索mnopqrs3Yahootuvwxyz"
'要查找的内容
wStr = "o"
Dim pos As Long
pos = InStr(1, SourceStr, wStr)
Do While pos <> 0
Debug.Print pos
pos = InStr(pos + 1, SourceStr, wStr)
Loop
End Sub
问题2.
没听说过Shell可以调用通用对话框的,要么用控件,
要么调用API实现.
问题3.
'主版本
App.Major
'次版本
App.Minor
'修订次数
App.Revision
'版权
App.LegalCopyright
'描述
App.FileDescription
'合法商标
App.LegalTrademarks

热心网友时间：2024-11-20 19:53

问题2的意思应该是这样的吧

on error resume next
commondialog1.cancelerr=true
commondialog1.filter= "*.txt|*.txt"
commondialog1.showopen
if err then
msgbox "没有选择文件"
else
shell "notepad " & commondialog1.filename, vbnormalfocus
end if

热心网友时间：2024-11-20 19:48

用资料