说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB如何调用系統的【查找】、【替换】的对话框?

HTML文档下载 WORD文档下载 PDF文档下载
VB如何调用系統的【查找】、【替换】的对话框?
版本:VB6 / VB5 / VB4-32

在一般的文本编辑软件中,例如 Windows 本身提供的记事本及写字板中,我们都可以在【编辑】下拉菜单中,找到【查找】、【替换】二项功能,我想很多人自己在编写程序时,也都会自己为程序去编写这二个相当基本的功能。其实根本不用您自己花时间去编写这样的程序代码!

还记得 Microsoft Common Dialog Control (16 位控件是 Comdlg16.ocx,32 位控件是 Comdlg32.ocx) 吗?我们都知道,这个控件可以帮助我们做到以下几件事情:

1、ShowOpen:打开文件对话框
2、ShowSave:保存对话框
3、ShowPrinter:打印设置对话框
4、ShowFont:字体对话框
5、ShowColor:颜色对话框
6、ShowHelp:帮助对话框
当然,您若还想要 Microsoft Common Dialog Control 多做一些別的事也没办法的!但是,Microsoft 在提供 .ocx 控件的同时,还提供了另外一个控件文档,也就是 comdlg32.dll,它的功能就多了,除了上面提到的几种对话框之外,还有好几个不同功能的对话框,其中就包含【查找】、【替换】二项功能!这二个 API 分別是 FindText 及 ReplaceText 二个。

在程序中,要声明这二个 API 之前,由于它们都会引用到一个名为 FINDREPLACE 的 Type,所以我们在声明 Function 之前,必须先声明 Type FINDREPLACE,程序代码如下:

在表单的声明区中加入以下声明:

'Find/Replace Type Structure
Private Type FINDREPLACE
lStructSize As Long ' size of this struct 0x20
hwndOwner As Long ' handle to owner's window
hInstance As Long ' instance handle of.EXE that contains cust. dlg. template
flags As Long ' one or more of the FR_??
lpstrFindWhat As String ' ptr. to search string
lpstrReplaceWith As String ' ptr. to replace string
wFindWhatLen As Integer ' size of find buffer
wReplaceWithLen As Integer ' size of replace buffer
lCustData As Long ' data passed to hook fn.
lpfnHook As Long ' ptr. to hook fn. or NULL
lpTemplateName As String ' custom template name
End Type

'Common Dialog DLL Calls
Private Declare Function FindText Lib "comdlg32.dll" Alias "FindTextA" _
(pFindreplace As FINDREPLACE) As Long

Private Declare Function ReplaceText Lib "comdlg32.dll" Alias "ReplaceTextA" _
(pFindreplace As FINDREPLACE) As Long

'Delcaration of the type structure
Dim frText As FINDREPLACE
在表单中加入二个 Command Button,并命名为 cmdFind, cmdReplace,加入以下程序代码:

Private Sub cmdFind_Click()
'Call the find text function
FindText frText
End Sub

Private Sub cmdReplace_Click()
'Call the replace text function
ReplaceText frText
End Sub

Private Sub Form_Load()
'Set the Find/Replace Type properties
With frText
.lpstrReplaceWith = "Replace Text"
.lpstrFindWhat = "Find Text"
.wFindWhatLen = 9
.wReplaceWithLen = 12
.hInstance = App.hInstance
.hwndOwner = Me.hWnd
.lStructSize = LenB(frText)
End With
End Sub
好了,您现在可以按 F5 试试了!
注:在 Type FINDREPLACE 中有一个 flag,您可以代入的 flag 是 FR_??,您可以在 API 文件查看器中找找!
程序中如何启动默认的拨号连接-VB资料 打开浏览器并进入指定网址-VB资料 得到用户的IP地址 -VB资料 电话拨号 -VB资料 电子邮件的标准格式 (RFC 822)-VB资料 断开拨号网络的连接-VB资料 断开与 Internet 的连接 -VB资料 发送电子邮件附件-VB资料 VB获得用户网络登录名 基 于Win95 的VB5 串 口 通 信 程 序 基于Win95的VB5串口通信程序 检测运程数据传送的断线-VB资料 简单电子邮件发送程序-VB资料 VB建立拨号联接 -VB资料 将所有窗口最小化-VB资料 VB利用IE控件访问Internet VB利用IE控件设计简易浏览器 VB利用Mscomm32控件判断MODEM是否打开,或者正在工作,并且判断拨号时是否遇忙音 VB利用TAPI进行电话拨号 利用VB访问Internet 利用VB设计聊天室 利用Visual Basic实现无线通讯 VB利用Winsock控件实现局域网通信 VB如何从 Internet 上取回某一个网页的內容? VB如何检测是否已连接到Internet? VB如何利用Winsock控件编写自己的Internet程序 VB如何每天抓取 Internet 上某一个网页中的图片来更换桌面的壁纸 VB如何启动拨号网路中的连线? VB如何使用MSCOMM32.OCX发送大于80H的字符,可否给个示例程序? VB如何用VB打开默认浏览器或默认发信程序? VB如何用Visual Basic编写小型的网络系统 怎么得到ms sql server的本地实例(或服务)列表? IIS如何控制目录访问权限? asp.net 我不懂的问题,不是很难啊。 有关mysql出错的问题?? 牛人们,帮我看看~~~~~~ 调试INTERDEV中的PROJECT? 请问 GetCellDigital返回值有误 目录树记忆属性实现的讨论 关于用户自定义类的问题 自制控件问题 静态链接库中的资源 Xml的查询定位问题? 小高求助! 关于JAVA文件执行时出现的错误 如何在Datagrid中取得当前记录的某字段值? 如何取得下拉菜单项? 目录树记忆属性实现的讨论 我想去中国网通申请域名,他们是不是很吊,有没人用过啊 Help 删除一条记录?? 在研究软件加密 “咱们把最好的粮食给城里人吃,又进城帮助他们盖起了高楼大厦,他们为什么还瞧不起我们呢?” 老板今天叫我签合同 有关于TImage的图像显示速度 怎样让 Title 的显示时间延长????????? !!!!!!!!!格式化数据列 怎么这么慢啊 请问:如何在打印之前设定该次打印纸张的大小(很急,老板催货了,帮忙顶一下,谢谢)? 有什么办法可以把class文件反编译回java文件? 如何写到文件? 自己写一个函数,把2,3,4加到1,2,3中去,不重复 Netscape打印中文网页为什么不成功? 英文XP中装了东亚语言包,能显示中文了,如何输入汉字呢。。。。 接到一个电话 哪位大哥大姐教教我啊? Dll如何同控制台程序通信 RedHat Linux7.2下如何挂上RealTek8139网卡驱动????高分相送哦!在线等待!!! TreeView问题 求register_globals = On和register_globals = Off的不同用法(原代码) 斑竹,我是因为升级才散分的,有个穿红裤衩的支持俺了…… 一个新手的加急求救!谁先回答,就先给谁份,希望大家说的详细点! 写xml文件的不完整的问题 关于esqlc的unload 的问题。 关于方法覆盖,在线等候 一个实际开发中经常令人头痛的问题 在线,急,谁有3D MAX的下载地址?高分! 推荐IT公司调查 监测表记录字段变化情况 如何能够得知table中的字段是什么类形?(如字符,数字,浮点等) SUN认证是不是“纯”English的? 现在我们有3、4二氯硝基苯这种材料,请问能生产出几种产品,需要和哪些材料反应呢? 防夫是什么意思 求用马哲分析时事的论文 在一个密闭容器内,植物进行光合作用之后生成了氧气消耗了二氧化碳能否再利用生成的氧气进行有氧呼吸如果是不就意味着循环利用了吗,那样的话植物能存活多久,回答好的重重有赏,哈哈 宜夫是什么意思 第二题,我查了百度的一些答案,看不懂. 以“夫”和“泣”为例,分别探索它们的意义 依据浙江省暑假作业语文P3参考回答 夫起大呼中夫是什么意思 关于理论和时间辩证关系运用理论和实践的辩证关系原理说明科学发展观与我国全面建设小康社会的关系论述题:要求标准答案或者完整的参考答案! 汉字与理性“夫”的意义 较夫是什么意思 这是一道马哲题目,关于时间的性质?利用一台粒子加速器,让两束原子在一个圆环轨道上做高速运动,发现这些原子自身的时间确实比外界时间慢了.该实验证明了作为物质运动存在形式的时间 磁铁为什么会将电池的电力吸走?是因为什么原因会造成这种现象? 与夫为纲是什么意思? 要考马哲啦,请知道的同志回答一下:如何理解时间是人的发展的空间?大约200字. 动物避暑 以下关于会议记录与会议纪要说法正确的是A.会议记录是会议全过程的实录,发言的内容依照自然顺序展开,一般不作省略者概括处理B.会议纪要必须体现出指要性,对会议的内容有说该概括C.在 电表怎么看 红色 网络类型里的“外A”“内C”什么意思? .在下列关于会议纪要特点的说法中,正确的有( A )A.纪要的性质取决于会议的内容性质与印发会议纪要的目的要求B.会议纪要有交流会议信息、介绍经验的作用,但没有约束执行的效用C.撰 倒着读和顺着读意思一样的词语,写3个 C/C++ class MyString{private:char *str_;char *MemAlloc(char *str);public:MyString(char *str="");};char* MyString::MemAlloc(char* str){char* tmp = new char[strlen(str)+1];memset(tmp,0,strlen(str)+1);strcpy(tmp,str);return tmp;}MyString::Mystring(char 多项选择:关于会议记录与会议纪要说法正确?以下关于会议记录与会议纪要说法正确的是?( )A.会议记录是会议全过程的实录,发言的内容按照自然顺序展开,一般不作省略或者概括处理B.会 一个词语正着读,倒着读,意思一样,有哪些? 产品安全类别是c类什么意思 通过肺部的气交换由暗红的什么血变成鲜红的什么? 正着读和倒着读意思一样的词语比如合适-适合 妊娠C类什么意思 监控电源正极负极怎么接 带8个监控头子 硫酸铜精粉的成分是什么?其中硫酸铜的质量分数.想做实验. 贵夫什么意思 监控摄像机为什么只接一根正极电源就能工作?12V直流电只接上正极就能工作,负极不接都没事,倒过来接就短路,工作不正常了 想入手一只水族箱,是森森水族箱好还是佳宝?近日箱入手一只水族箱,但是不知道是森森水族箱好还是佳宝好,或者别的什么牌子!请各位大侠赐教! 家夫什么意思? 监控电源上那个正极负极可以随便接吗?正负极都有三个接口,带8个头子应该接哪个,12v15a的电源 森森302过滤桶 声音大么 这个桶怎么样 西亚北非局势与当前国际关系态势,马哲的作业, 夫教什么意思 保温杯里面那层银色是什么材料 26.一切唯心主义的共同观点有( )①把精神看作世界的本原 ②主张社会意识决定社会存在 ③认为世界万物是“感觉的复合” ④认为世界是不可知 ⑤认为绝对精神产生万物[ 1分] A.①③⑤B. 今夫不受之天的夫的意思 转椅 转第几声 勉强 强第几声 上汽集团总裁胡茂元也有一套管理哲学,就是“长勺喝汤”理论,即想要自己喝到肉汤先要学会喂别人.胡茂元能够如此为别人着想,难怪美国通用汽车公司都盛赞他是中国企业中少有的善于协调 热的快有220V 110V的区别吗 通常用的220V的热得快可以直接用在110V电压上吗?安全吗 110V可以直接用在210V 以下正确描述面向对象特点的选项有()a封庄 b继承c多态 轴承支撑座因为是重载作业,要求轴承采用滑动轴承(轴瓦),且安装的位置具有倾斜即轴与水平面的夹角为4度请问刮瓦时有哪些注意事项,越详细越好》作为验收人注意哪些东西啊 初中数学统计请帮我解释一下第3问怎么回事.谢谢 (多选题)在C#程序中,有如下代码,则下面选项中说法正确是()public class A{}public class B:A{}A a=new A();B b=new B();A.表达式b as A的值为nullB.表达式a as B的值为nullC.表达式b is A的值为trueD.表达式a is B的 既然主观决定客观 为什么人犯错还是要在主观上找原因呢 子夫是什么意思 "强人所难"中,"强"读几声呢? ,初二物理力,仔细回答必有好评,谢谢 看夫相子的“相”字是什么意思 如何理解时间和空间的有限性和无限性 现在家用电器越来越多,冬天里开的电器更多了,我怕家电短路引起火灾,那家财险能负责赔吗? 命限要早夫晚子? 强人所难中的强读第几声?强占的强,和记载的载呢? 3,4-二氯硝基苯除了可以生成苯胺,还可以生成什么? 祭夫益子什么意思 怎样理解时间和空间的有限性和无线性的辩证关系 这是关于马哲的问题 土耳其\"世界最高男子\"找到真爱 韩国整容手术事故层出不穷 整容共和国墨西哥20岁男子贩毒杀害数十人 墨警潘基文强烈谴责刚果(金)反政府武装袭非正式出口民调:执政联盟候选人胜出格男子把10公斤黄金扔进垃圾场 当地掀世界最高人找到真爱将结婚 两人相差7美将军称驻阿富汗部队将经由俄罗斯领空美国官员:奥巴马早知国安局监听默克尔世界最高人找到真爱将结婚 两人相差7以总理:伊朗有能力在数周内提炼武器级塞尔维亚为铁托遗孀举行国葬 2万多人美国采花大盗将获释搬到居民区 遭民众日本将启用自卫队军官任国家安全保障局昆西 琼斯向杰克逊信托人索赔6080潘基文强烈谴责刚果(金)反政府武装袭河南济源回应7公里6个“收费站”称非媒体称养老金并轨已无悬念 执行路线图阿根廷国会选举受瞩目 现总统或丧失部加拿大机场现可疑包裹 警方搜查机场附格陵兰拟向中澳开放铀矿与稀土 仍需丹国台办:大陆居民赴台个人游累计达10卫计委:目前已公布新的食品安全国家标“大鸭梨”移驾南京 挂提示牌“请勿顺中东欧特色产品:克罗地亚葡萄酒、松露韩沉船惨案开庭家属哭成一片 船长船员5月我市CPI同比未迈进“2”时代 国台办:中国领土完整问题必须由全中国信用卡提额中介收20%佣金 银行称“国台办介绍第六届海峡论坛 俞正声将出储户销户遭银行强制“抹零” 律师:涉“神磁杯”首届湖北省企业歌曲总决赛6英媒:中产空心化是阻碍美国经济复苏的水利水电工程专家钱正英获光华工程科技国台办发言人谈海峡组合法网夺冠:打得甘肃兰州住户反映:住了20年 小区水意大利一对华人夫妇酗酒后袭警被捕 两高处扔下座椅砸死路人 嫌犯满身酒气:美海军拟提高舰员维修能力降低舰艇维修甘肃兰州两小区楼顶漏水 居民生活受困浙江义乌一中外合资药企爆炸起火 一人浙江男子无证驾驶致人死亡 妻子自愿顶
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘