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

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 文件查看器中找找!
MsComm 文字传输-VB资料 PING一个IP地址(向它发送一个数据包并等待回应) -VB资料 SMTP协议简介 (Simple Mail Transfer Protocol) -VB资料 VB5.0 中远程数据库的访问 VB下如何编写CRC校验程序 Visual Basic 6中发送邮件的新方法 Visual Basic通信程序设计 Whois 示例程序-VB资料 Winsock Terminal示例程序 -VB资料 WinSock断开导致客户端问题-VB资料 把Outlook信箱中的附件另存为 -VB资料 保证连网计算机时间同步-VB资料 编写网络寻呼机 -VB资料 编制自已的电话录音小程序-VB资料 程序中如何启动默认的拨号连接-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控件设计简易浏览器 请问为什么在COM中总是使用双重值针,即指针的指针? 用过,销售,触摸屏的兄弟姐妹给个建议 关于C里面的setjmp()和longjmp()函数的使用。 一个用VB偏的“图片批量转换软件”!带源代码!!! 多伦多穷人欢庆申奥失败 有人注意到了吗???directX的资源释放不干净! 谁能帮我做一个小型帐务管理(用C)??? 用delphi编程,用什么触摸屏比较好啊? 怎样在程序运行时增加子菜单(要增加的数目是未知的) 关于Sprite动画 出售代码 ACCESS的FORMS DLL调用函数问题 VB在ACCESS中应用的一个小问题! ACCESS中的FORMS问题? 再普通不过的一个问题 delphi6中还有BDE和ADO吗?它们被淘汰了吗?现在还有必要用它们来学数据库的开发吗? 50分答谢!!!---这个css定义为什么会出现这样的效果??? 各位:怎么判断表里某个字段是否存在? 纯技术问题:精通“书签“与“层“的大虾请进!!!! 一个奇怪的现象,请教高手这是怎么回事? 哪里有破解清华五行卫士密码的软件? vc++7.0好用吗? 吃完晚饭了... 可不可以让 CppWebBrowser1的背景不是白色? 热热热!!!热疯了!!! 我的喇叭哪儿去了? 我的PB程序出了问题了!!! sql server中哪个函数是用于字符串与整型之间转换的? 我想限定文本输入框只能输入10个汉字或20个英文字符,但文件输入框却只能输入10个英文字符,如何解决? 当我将这样的字符串“dsdsdsdfsdffsdsdfsdfsfdsdfsdfsfsfdsdffs.....”放入我的表格中时,无论怎样设置也不折行,影响了部局,如何解决? MFC中视图(view)是怎样随着主窗口的大小改变而改变的。 急!请教!!猫猫连接,用数据管道同时访问两库,访问不到对方的网络库(sybase) 关于电影下载 我已经把一个exe文件加入到我自己的程序中了,请问在我的程序中应该样调用该exe文件呢? 哪位高手知道RTF格式的含义?或者更好,知道Rxlib中的RXRICHEDIT控件中识别RTF格式的方法? Delphi编写的DLL在VC下不能使用 请问哪儿有电工的<>的电子版下载?我只有这么多了 msdn2001年4月版的讨论 请问哪儿有电工的<>的电子版下载? 请教高手!!!! 请进 各位:周末愉快!为何我的多表查询用updatebatch提交时总是报错? 我不明白!!!! 请问,BAS 与 VBJ 有什么区别吗?为何他们安装在同一个目录呢? 如何得到系统进程的列表? vi下如何撤销操作? 我们知道MFC中的对象序列化做得很好,不知在DELPHI中怎样来实现对象的序列化? 我已经学过C++,想学VC++请问哪本书入门比较好啊? 欢迎使用技巧酷skillstore beta 1.00 有个可以显示IP的QQ,很不可思议,讨论一下好吗? 怎样在程序运行的时候加上参数,比如说双击文本文件打开记事本 科学题 (20 21:0:21)          把5毫升质量分数为98%的浓硫酸(密度为1.84克/厘米3).加入到25毫升水里进行稀释,求所得溶液的溶质质量分数. 求初二物理试题 关于声音的特性吉他是众多人喜爱的一种乐器.吉他用久了,发生走调,必须请专业的乐师调试.乐师主要是调节琴弦的_________.吉他一般有六根琴弦,这六根琴弦的_________、_________大致一样,琴弦的 (26 15:54:30)一艘船在河中逆流而上,河水流速为3米/秒,经过一座桥时,船上的一只木箱掉落水中,5分钟后船员才发现,立即掉头追赶,同时将航速(船相对与静水的速度)提高到原来的1.5倍,则可在 初二物理练习题我刚升初二请问有没有好题目分享给我些呢(用多 初二物理声音的特性2学案上的 (26 15:39:30)甲、乙两物体都做匀速直线运动,速度之比是4:3,所用时间之比是5:2,则路程之比为 将一边长是10CM的实心立方体木块轻轻放入盛满水的大烧杯中,待木块静止时.从杯中益出600g的水.求:(1)木块受到的浮力(2)木块的密度. 初二物理题,声音的特性.将齿轮固定在玩具电动机的转轴上,启动电动机,使齿轮敲打塑料片,注意这时塑料片发出声音的高低.使玩具电动机的转速逐渐增大,塑料片发出的声音有什么变化?速度 初二科学题(关于水的浮力的) (7 15:53:16)武汉号满载时重7.5*10^7N,求满载时军舰排开海水的体积. (  ρ海水=1.03*10^3kg/m^3  g=10N/kg      结果保留两位小数) 初二物理试题 密度 (5 17:20:35)若把打气筒的出气口封住,再将活塞向下压的过程中,被封闭在气筒内的空气的质量,体积,密度3个物理量中,不变的是?变大的是?变小的是? 初二 物理 初二科学 请详细解答,谢谢! (5 15:45:30)铝球的体积为400立方厘米,质量为810克,问,该球是实心的还是空心的?(铝的密度:2.7×103千克/立方米) (1)一天刚下雨,地上出现一个个小水坑,但月光非常明亮,小英要去朋友家玩,走之前妈妈告诉她:路灯坏了,亮的地方是水坑,小英果然没踩到水,小英从朋友家回来时,朋友告诉她:不亮的地方 密度 (5 17:19:40)如果水结成冰的话,密度是变小还是变大 科学 (24 20:53:14)下列几种用电器正常工作时,电流最大的是(  )A.42寸液晶电视机   B.MP3       C.电子手表            D.100瓦 如图所示,MN是平面镜,A为发光点,B为反射光线上的一点,试画出经过B点的反射光线、这条反射光线对应的入射光线和法线. 水的密度 (5 12:1:17)有一枚奥运会的纪念币,它的质量是16.1克.为了测量它的体积,把它放入一盛满水的量筒中,侧得溢出的水重为1.8×10-2牛.〔1〕求制作纪念币的金属密度;〔2〕盛满水的量筒在 桌子上放着一个空烧杯,烧杯内有——A氮气 B氧气 C空气 D包括ABC 一道初二物理光的反射题深夜,没有灯光,小明用手电筒照在白墙上高处的镜子,竟然发现镜子是黑的,墙是白的,为什么? 求解,15.17.18.19 急,好评的 科学 (24 21:49:28)下列几种用电器正常工作时,电流最大的是(  )A.42寸液晶电视机   B.MP3       C.电子手表            D.100瓦 初二物理题(关于光的反射)急~1.你能让一束平行光线的传播方向改变180度吗?如果能,请你写出需要的器材和具体的做法(画图说明即可,用两种方案做).2.有人用“伸手不见五指”来形容很 水的沸腾 (13 18:15:37)水沸腾时为何响声比沸腾前小,沸腾时的气泡为何上面比下面大,沸腾前的气泡为何下面比上面大. 科学 (24 16:22:14)T℃时,氯化钠的溶解度是n克,将m克氯化钠投入到n克水中,充分搅拌,若得到不饱和溶液,则溶液的溶质质量分数为(   ).如果m克氯化钠不能完全溶解在n克水中,则溶液的溶 光的反射--题 17.18 某同学质量为60㎏,每只脚与地面的接触面积150cm²,当他站在水平地面上时,对地面的压强多大?若他想使自己对地面的压强增大一倍,他可以怎样做? 1.冰块中包有石块,冰块在装睡的杯中处于漂浮状态,当冰块完全融化后,石块沉入底,则杯中的高度将( ).2.一个漂浮在小型也泳池水面上的小船,一个人从池里捞下面物体放入船中,其中能使池 刚倒完热水的热水瓶,立即盖上盖子,冷却后却不易拔出塞子,请你说明其中的道理.答案上写的是水冷却后使瓶内气体减少,为什么气体会减少啊? 初中物理压强计算题初中物理的压强计算题 1.小车在一段光滑的水平面上运动,若它的自重为20N,速度为3米每秒,则该物体作匀速直线运动所需要的推力为( )N;当它运动到一段平直的粗糙面上时,将会由( )变为( ),原因是受到( ) 问一道初二关于大气压的物理题(微难)“把空罐头瓶的瓶口朝下,并将其按入水中,可见始终不能使瓶内充满水.”这句话答案上说是错的,我问老师时她推理了一下然后说应该是瓶内一滴水都 几道初中物理计算题 压强1.动物保护组织成员测量出野牛在水平沙地上站立时留下的一个脚印的面积为0.025立方米,深度为1.8CM,并对该沙地进行抗压实验发现使沙地达到相同深度的压强为2x10x10 1.运动员把铅球掷出去后(不考虑空气影响),铅球仍要受到___力的作用,受力物体是_____,施力物体是_____.2.一个质量为80KG的重物放在水平面上,人施400N的水平拉力就可以使这个重物在地面匀速滑 一物理大气压问题,初二的~在吸管中间剪一水平切口(吸管未剪断)从切口处折弯吸管,使两段大致成直角,把吸管一端放进水里,从另一端用力吹气,观察到的现象是( )1.切口处有水向上喷出 2.切 一位体重为50千克的中学生每只脚与地面的接触面积为200平方厘米,那么他双脚站在水平面上,对地面的压强是多少? 初二物理期末试题.请详细点,谢谢. 初二一道关于大气压的题目SARS病毒可通过空气传播.当我们吸气时,胸部扩张,胸内肺泡跟着扩张,于是肺的容积增大,肺内空气压强_____,_____使含SARS病毒的空气经鼻腔、气管进入肺中;呼气时,胸 一道初中物理压强计算题把一个长方体平放、侧放、立放在水平桌面上,物块对水平桌面的压强分别是0.8×1000Pa、2×1000Pa、5×1000Pa,已知ρ物=2000kg/立方米,计算这个物块的体积(g取10牛/千克) 初二物理试题,急求,谢谢 一道物理题关于大气压2在研究水的沸点与气压关系的实验中:(1)用酒精灯对烧杯内的水加热,当大气压为1标准大气压时,加热到_______ ,水就开始沸腾.(2)熄灭酒精灯,水_________沸腾.(3)再将装有注 求初二物理关于固体压强的两道试题及解答.要有详细的过程哦.谢谢大家咯.我需要的是计算题和过程。不是填空之类的哦。 一束光线与水平面成30度角要使光沿水平方向传播,可用平面镜将光反射来改变它的传播方向,则平面镜与水平方向所成的角应为多少度? 初二物理题(关于大气压)1.牛奶罐上只开一个小孔,就很难倒出牛奶,这是为什么?2.医生用注射器打针前,要把药液吸入注射器,简单描述医生如何把药液吸进注射器,并作出解释.3.若房顶面积为 初二物理光现象试题和答案.过程.最好有实验 光现象的 初二物理光的反射小明同学用如图所示的装置来探究光的反射规律,M是一块平面镜,镶在一块木板上,白色光屏F可以绕垂直于镜面的ON轴转动,E、F屏上面有以O为圆心的圆弧,上面标有刻度,实验如 1,为什么人能用吸管吸出饮料?2若某人同时将2根吸管含在嘴里,一端放在饮料里,一端放在杯外,他可以喝到饮料吗?为什么?不要非常详细,易懂,说明重点就行 人站在水平地面上时,保持静止,受到__力和____力的作用,这两个力的施力物体分别是_____和 _____.这两个力的关系是__________.悬挂在楼板下的电灯,受到地球对它的_____和电线对它的_____作用,这两 小明和小红坐在教室内两个相距不远的座位上,一束阳光照射到教室里较光滑黑板上,小明说看不到黑板上的字迹,小红却说能清晰看到.你认为这种情况可能吗?为什么? 有关大气压的!急``````````````````````实验:在广口瓶中放入浸满酒精的棉花并把它点燃,用一个煮熟的鸡蛋剥去皮并用它堵住瓶口,问:看到什么现象?如何解释这种现象? 〈声现象〉声音的特性和 噪音的危害和控制 如图所示,两平面镜MP,PN相交,夹角为60°,一束光线AO斜射到MP上,经两平面镜反射后与入射光线AO重合,则AO与MP的夹角α为( ),并作出光路图.请画出光路图,并写出解题过程, 1.水沸腾时的温度时96摄氏度,表明水面的大气压大于一个标准大气压.2.没有大气压的地方,车子的车胎会更容易爆裂.3.氢气球在没有大气压的情况下将能够上升得更高. 求一套初二物理期末试题 一定要有答案啊,两套最好了.直接复制到下面,急 ,这套题不太好,还有没有啊 有关光的反射在水平桌面上有一点光源S,在桌面正上方一米处有一水平放置的平面镜.要使光源发出的光经平面镜反射后,照亮桌面上离光源1m远的B点,平面镜应如何转动?试做图说明. 初二科学题.关于大气压有一“苏泊尔”牌高压锅的直径为24cm,限压阀气孔的直径为35mm,限压阀质量为100克,是估算当正常使用时,锅内气压约为多大?要完整的苦厄写步骤 生活中遇到的科学问题 (21 21:17:30)春节前几天家里的墙壁都很潮湿,这是为什么?那卫生么有有些地方不这样呢? 帮忙找几道初二物理练习题吧,最好有答案 声音的特性一部分吹气球的时候一不小心会把祈求吹破,这时会听到很响的“啪”的一声,对于产生很响的原因,小华有以下猜想:A这时由于气球吹破时引起空气急剧振动而发出的声音B这时由
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn