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

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 文件查看器中找找!
叫板Google,VMware15亿美元收购AirWatch强势布局物联网 2014年IT企业招聘调查报告:外资企业招聘规模偏大、技术人员比重高 小机器人Ozobot:Maybe,我也有禅意 Google 4亿美元收购人工智能初创公司DeepMind 加入初创企业前,自问四个问题 King.com维权 上演“贼喊捉贼” 淘宝:HBase Bulkload bug修复及patch提交 Google的“机器人情结”:两次合计36亿美元的人工智能收购 挑战谷歌、抢占新兴市场,百度进军泰国、巴西和埃及市场 《近匠》第8期:Unity——不再仅仅是游戏引擎 Colours:移动应用的开源“美颜相机” 微信红包活动:用户疯狂中的腾讯“阴谋” 预测2014年最热门的IT职位及年薪 智能手机有隐私?Facebook可阅读Android用户的短信内容 苹果2014年Q1财报:iPhone、iPad 销量创纪录 3D打印:鞋垫也玩私人订制 与Google Glass抗衡,三星将推Galaxy Glass 进军移动?任天堂欲推iOS、Android版超级玛丽 回顾2013:云计算的夏天 微软最终加入OCP阵营,开源其云服务器设计 Docker:集装箱式“运输”在软件上的实现 《近匠》第09期:ShareSDK——专注社交分享工具 苹果车载iOS系统iOS in the Car界面被曝光 支撑过万亿音乐事件的数据分析系统 Facebook运维内幕曝光:一人管理2万台服务器 《近匠》第10期:友盟——开发服务平台化 LinkedIn耗资1.2亿收购数据驱动招聘服务公司Bright 谷歌推视频会议硬件产品Chromebox 基于Chrome OS 文件上传组件导致Apache DoS安全漏洞 EA,你是来拉仇恨的吗? Beep:前Google员工打造的流媒体音乐控制器 关于SQL的菜鸟问题 大家现在用什么软件管理源代码啊。60分相送。 今年是考C 还是C++啊? 怎样判断一个线程已结束 我用new新建了若干个基类是cwnd的窗体cmywnd,然后想在每个窗体内定时让它们自己消失,我应该用什么函数?是destroywindow吗?最后还用不 vs.net 2003 中文版 的帮助MSDN是不是有问题? 清问这个SQL有什么错,还是FB1。0不支持? 是我的usb口的问题吗?? 怪事 急 路径绝对正确,为什么服务器只能下载rar 不能下载EXE 文件 已知,f(x)=arctanx,其二导f''(x)=(-2x)/(1+x*x)^2,f''(0)=0,试: 一个有趣的问题,请大家看一个小程序,来者有分。 这个写者优先是不是有问题????麻烦看一下,小弟实在看不出错在哪里 请问有没有办法得到[系统托盘]上其它程序的所显示的Icon?? 已知,十六进制(34.6)16=(28.75)10(十进制) 高手推荐几个Palm开发的网站?最好有源代码! 请教一个问题 触发器(加密)内容可以查看吗 怪,文件路径绝对正确,EXE文件不能下载,其它格式正常。 在编写的用户控件中公开所引用控件的事件怎么实现啊 这是我的usb口的问题吗? 考程序员前想先考全国三级,请问三级种哪个科目考C编程?何时报名? 调用DLL时候出现Bad Dll calling convention错误,为什么?代码如下 如何建立一个小数据库? 我想问下,网络技术到底是指什么??? 为什么会出现这个问题呢??急救??? 在不同操作系统出现不能正常运行的问题,和默认字体语系乱码问题 C# 静态类成员 新手请求各位前辈帮助 如何查询我连接到哪个数据库? 哭着请求帮助。。。。。页面显示问题!!在线等着 网络技术到底是指什么???? 我想在<<三国九>>里输入正确的中文,有法子么? 能帮我改改么? 紧急求助,请高手支招 请问在JTABLE中如何将某几行设置成可以被选择的,其他几行设置成不能被选中的? 请问怎样修改SDI框架的标题及去掉最大化按钮??? 在自定义的用户控件上公开引用windows控件的事件怎么做啊!!谢谢 2003中为什么IDE设备只能用PIO模式? 在FAQ里见到这样一句,不明白什么意思 怎么我用vc 的 odbc 做数据库时,工程名为try ,在工程工作区的“class view”面板里没有tryview类的? 不能使用xmldocfile() 文档对象的问题 关于键盘纪录,高手 如何使用IPAddress控件? 初学者问:怎么用UpdateAllViews()? 无法创建asp.net应用程序 大家帮帮我吧,我都快崩溃了 中文乱码的问题 !!谁在VMWare 3.2里装过RedHat 9.0和RedFlag 3.0,请看看这些问题(100分)!! 如何使在输入框选中的文字在提交后仍然显示在输入框中? 无法创建asp.net应用程序 怎么辨别银圆真假 求出摩擦力就可以了 北方冬天紫檀手串要包浆晚上需要放在袋子里吗 各猜一句毛泽东诗词武汉长江的桥建成( )海陆空喜庆( ) 早就想当飞行员()铁骑不能追穷寇()一尘不染()霜叶红于二月花() 怎么样用万能表量在工作下发光二极管的电流是多少 摩擦力的方向是 一条火线什么能认灯泡亮? 七年级下册地理,南极冰盖最高点在南极点的 方. 声控灯原理 vlv22 185平方 150平方 120平方 95平方 70平方 50平方 电缆外径大概是多少穿管需要个外径尺寸 将“大洲和大洋”这节内容的内在联系呈现出来 关于摩擦力的问题重10N的磁铁在黑板上静止,则黑板对磁铁的摩擦力的大小为______,如再用5N的压力F静压在磁铁上,则黑板对磁铁的摩擦力的大小为______,如要将磁铁竖直向上匀速运动,则拉力为 有葫芦的神仙? 请教一道数学题,望高手详解三角形ABC中,D是BC边上的中点,BC=8,AC=5,AD=3求△ABC形状 合力3T叉车机械式换挡变速箱,前进后退均不行走,是变速箱什么坏了 神仙道葫芦里都有多少丹药啊 皇上不急,太监急啥?用英语怎么说? 解析:如图所示,固定斜面倾角为a,整个斜面长分别为AB、BC两段,BC=2AB,小物块P(可视为质点)与AB、BC两段斜面间的动摩擦因数分别为μ1,μ2 ,已知P由静止开始从A点释放,恰能滑动到C点而停下,那么a 找一棵大树,是10.07米的,计算树干横截面的直径是多少? 单摆 简谐振动 急救当单摆摆角不大时,什么力构成使单摆做简谐振动的恢复力呢?请站在教师的角度解释这个问题,不懂的或者转帖者勿扰, 合力叉车490发动机总是爱坏水泵是怎么回事 为什么电路中有一处短路,而其他正常的用电器也不能正常工作 HA1392接成BTL有多大功率 合力叉车1.5T无级变速480发动机坏了可以换哪种发动机 升旗台在天安门的什么位置 猜鲁迅著作:来回度步 合力叉车5t,2003年,无级变速前后各2档的,变速箱型号是Y10,油标尺杆没了,不知加多少油量.说明书也没了,我参考了大连车是18升,但我感觉不够.不知那位能有此车,量一下标杆长度,或说明书上标 为什么在电路中一条线短路了,所有的用电器都不会工作 望有详解有A,B两地,甲乙从A地出发,丙从B地出发,甲到B地需t甲,乙到B地需t乙,乙丙相遇需t甲/p,甲丙相遇需t乙/q,求丙到地所需时间对不起,是丙到A地所需时间 一条山路240米,小华上山每分钟走40米,10分钟往返一次,小华下山平均每分钟走多少米? 描写升旗台的句子 用长为l的木条围成上半部分是半圆下半部分是矩形的窗框,中间有两根横档,要是透光性最好,应如何设计?本人不会弄图,请各路英雄谅解!我满意的话,横档要木头! 小华从家到学校去上学每分钟行240米,已经走了走了4分钟,小华的爸爸发现小华忘带数学作业,就马上骑自行车追,6分钟赶上把作业给小华,小华的爸爸用怎样的速度赶上小华? 局部短路为什么用电器不能工作,电流还是正常工作时的电流吗? y=|x+2|+|2x-1| 写成分段函数,画出图像,求直域!不理解 绝对值的变号,我知道要分成3段 但是X的范围 为什么取这范围 无法理解 如图所示,两物体A,B(小的是A)通过跨接于定滑轮的轻绳连接,若两物体处于相对静止(0°<夹角<90°)下列说法正确的是A.绳上的拉力等于A的重力 B.B对地一定有压力 C.B对地 根据相对论,光对于任何惯性系的速度都是c.如果一个惯性系的速度也是c,那么光对于它的速度是多少? 和摩擦力有关如图所示,人重600N,木块A重400N,人与A,A与地面的动摩擦因数均为0.2,现人用水平力拉绳,使他与木块一起向右作匀速直线运动,运动摩擦不计,求(1)人脚对A的摩擦力的方向和大小图 具有防止动脉粥样硬化作用的脂蛋白是?A.CM B.VLDL C.LDL D.HDL 从相对论观点,为什么惯性系速度越快,其内时间相对外部越快 一块地有2.5公顷,用2台同样的抽水机浇水,要5小时,平均每台抽水机每小时可以浇地多少公顷?今天就要, 三个三角形变成九个,怎样做? 根据狭义相对论,当一惯性系K'速度接近C时,K中物体相对于K'的时空坐标都发生了变化,那么我们能不能认为K'� 摩擦力和什么有关 W如何画三笔变成九个三角形? 有一块长30厘米.宽25厘米的长方体铁皮,在四个角上分别剪去面积相等的正方体后,正好折成一个深五厘米的无盖铁盒.求这个铁盒的表面积和容积.单位:(cm)要说清楚为什么这样算? 摩擦力与什么有关 均值不等式为什么要证明等号成立今天刚学,做题时不会了.均值不等式里证明等号成立有什么用?最好再介绍一下均值不等式求最值的大致步骤. 从文中可以看出赵普是个怎样的人? 摩擦力跟什么有关? 均值不等式ab异号如果ab为异号,那么均值不等式怎么用?如果ab异号,那么均值不等式的公式是什么? 历史上和赵普类似的人 发电机电压高低和什么有关 均值不等式,求:(a+b+c)/3≥_______,当且仅当_____时取等号? 如图,一太阳能热水器受光面的一边AB长为1.5m,∠ACB=90°,倾斜角∠ABC=30°,连杆CD经过AB的中点D求支架AC,连杆CD的长. 语音声控灯的原理是什么? 低密度脂蛋白进入细胞的方式是 已知,如图所示,在△ABC中,∠ACB=90度,CD⊥AB,垂足为D,若∠B=30度,CD=6,求AB的长请用勾股定理来解答(初二的) 想买小米盒子,现在能买到吗? 由图为什么可以知道携带胆固醇的低密度脂蛋白进入细胞的方式是胞吞和胞吐? 英国调查称超半数英国人坐飞机不信任女美国高中生图书馆借书逾期不还 被警方美国10月制造业增速为两年半来最快埃及今天审判前总统穆尔西 数千支持者德国民众用万余蜡烛组成心形 欲打破世美国海军一高官被控受贿 其中包括性贿数万伊朗抗议者举行“占领美国使馆”集新加坡鱼翅消费量大幅下跌中国与俄、芬、德研究机构合作开发地面厉行节俭不会影响中国成为“会展大国”哥伦比亚举行彩色跑 粉末横飞high普京签署法律规定恐怖分子亲友连带问责百年一遇全环食壮观上演 美欧非观星族朴槿惠称国际社会不能纵容朝鲜 需打破湖南三姐弟遇害初步定为仇杀 学校方面朝鲜谴责韩国对朝政策:改变无异于地球中国古典吉他演奏家在伦敦举办独奏音乐调查称受医改问题影响 奥巴马支持率跌美国高中生图书馆借书逾期不还 被警方国际货币基金组织秘书长林建海:中国等澳工人阅读能力低企业纷纷弃用文字型安大枢纽商丘成“新贵” 邻居鹿邑盼望能汽车上骗钱的配置真不少,但有4个确实从北企星产品迭代看待企业转型男人被妻子背叛,偶遇学生妹陪他东山再黄逸尘:12.11现货白银、宁贵银今河北鑫达钢铁有限公司公开竞聘二炼铁厂拿钱不做事,陕西某小学一老师不上班花男人被妻子背叛,偶遇学生妹陪他东山再30分钟底背离,箱体下沿可做多出租车追尾400万豪车,出租车司机吓北企星再创佳绩 全民创业挑战赛载誉而周雨寒:12.11现货沥青原油行情分治霾限行能否让腾势等电动汽车龙腾盛世双眼皮完美术式埋线 你不知道的疑惑这梅艳芳内衣遗物被拍卖 拜托给她一点尊刀述仁当选新一届云南省佛教协会会长周鸿祎为何要让360奇酷全员持股?九十九条江湖绝技,让你成为一名半仙2016年财运运势逆袭的几个生肖排行12.11原油后市依旧不容乐观,短线浙江省质量技术监督局赵孟进副局长一行
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘