[转载]VB中CommonDialog控件的使用
CommonDialog控件
1.添加到工具箱 执行菜单命令:工程 | 部件| 使Microsoft CommonDialog Contral 6.0复选框有效。 在工具箱中双击CommonDialog图标可将控件添加到窗体中去。 2.属性 因为CommonDialog控件用于创建“文件打开”、“文件保存”、“文件打印”、“颜色设置”、“字体设置”、“帮助”6种对话框,所以控件的属性可分为文件、颜色与字体三类。 (1)文件类属性 ① FileName属性用于设置或返回要“打开”、“保存”、“打印”的文件名。 ② Filter属性用于文件过滤器,属性格式为: 描述1| 过滤器1| 描述2 | 过滤器2 …。例如: 所有文件(*.*)|*.*| RTF格式(*.RTF)|*.rtf |文本文件(*.txt)|*.txt 打开文件的文件过滤器效果如图4.12下部的文件类型所示。 |
![]() |
|||
![]() |
||||
图4.12 打开文件对话框 | ||||
③ FilterIndex属性用于指定默认的文件过滤器。例如:FilterIndex=3;
表示指定默认文件过滤器为*.txt,如图4.12中文件类型框首行:文本文件(*.txt)。 (2)颜色类属性 ① Flags属性用于设置颜色对话框中初始颜色,初值为cdlCCRGBInit; ② Color属性用于返回用户在颜色对话框中所选择的颜色。 (3)字体类属性 ① Flags属性用于设置初始字体,取值与含义如表4.6所示,常取值为:cdlCFBoth。 |
||||
|
||||
表4.6 Flags取值与含义 | ||||
3. CommonDialog控件的方法 |
||||
![]() |
||||
图4.13 颜色对话框 | ||||
调用对话框设置“颜色”的步骤如下: |
||||
|
||||
例如:
CommonDialog.Flags = cdlCCRGBInit CommonDialog.ShowColor RichTextBox.SelColor = CommonDialog.Color (5)ShowFont方法用于打开字体对话框,用户可调用字体对话框选择字体的大小、颜色等。 调用“字体”对话框的步骤如下: 将Flags属性设置为表4.6三种值之一; 用ShowFont方法打开字体对话框; 用字体类属性返回字体的设置信息。 (6)ShowHelp方法用于打开帮助对话框,用户可获得帮助信息。 |
CommonDialog 控件在 Visual Basic 和 Microsoft Windows 动态连接库Commdlg.dll 例程之间提供了接口。为了用该控件创建对话框,必须要求Commdlg.dll 在 Microsoft Windows \System 目录下。
为了在应用程序中使用 CommonDialog 控件,应将其添加到窗体上并设置属性。控件显示的对话由控件的方法决定。运行时,调用相应方法后将显示对话框或执行帮助引擎;设计时在窗体上将 CommonDialog 控件显示成一个图标。此图标的大小不能改变。
CommonDialog 控件可以显示如下常用对话框:
“打开”
“另存为”
“颜色”
“字体”
“打印”
要使用 CommonDialog 控件
1. 若未添加 CommonDialog 控件,则应从“工程”菜单中选定“部件”,将控件添加到工具箱中。在标记对话的“控件”中找到并选定控件,然后单击“确定”按钮。
2. 单击工具箱中的“CommonDialog”控件并在窗体上绘制该控件。在窗体上绘制 CommonDialog 控件时,控件将自动调整大小。象 Timer控件一样,CommonDialog 控件在运行时不可见。
3. 运行时,请适当使用下表所列方法显示需要的对话。
显示“打开”和“另存为”对话框
有了“打开”对话框就可指定驱动器、目录、文件扩展名和文件名。“另存为”对话框在外观上与“打开”对话框相同,只是对话框的标题和文件名是暗淡的。运行时选定文件并关闭对话框后,可用 FileName 属性获取选定的文件名。
要显示“打开”对话框
1. 指定在“文件类型”列表框中显示的文件过滤器列表。
可用下列格式设置 Filter 属性:
description1 | filter1 | description2 | filter2...
Description 是列表框中显示的字符串——例如,"Text Files (*.txt)"。Filter 是实际的文件过滤器─—例如,"*.txt"。每个description | filter 设置间必须用管道符号分隔 (|)。
2. 用 ShowOpen 方法显示对话框。
选定文件后可用 FileName 属性获取选定文件的名称。
对所有公共对话框,当 CancelError 属性为 True,而且用户单击了对话框的“取消”按钮时将生成一个错误。在显示对话框时捕获错误,以此检测是否按了“取消”按钮。
下列代码显示“打开”对话框并以选定的文件名为打开文件过程的参数:
Private Sub mnuFileOpen_Click ()
'CancelError 为 True。
On Error GoTo ErrHandler
'设置过滤器。
CommonDialog1.Filter = "All Files (*.*)|*.*|Text _
Files (*.txt)|*.txt|Batch Files (*.bat)|*.bat"
'指定缺省过滤器。
CommonDialog1.FilterIndex = 2
'显示“打开”对话框。
CommonDialog1.ShowOpen
'调用打开文件的过程。
OpenFile (CommonDialog1.FileName)
Exit Sub
ErrHandler:
'用户按“取消”按钮。
Exit Sub
End Sub
使用“颜色”对话框
可用“颜色”对话框在调色板中选择颜色,或者创建并选定自定义颜色。运行时,选定颜色并关闭对话框后可用 Color 属性获取选定的颜色。
要显示“颜色”对话框
1. 将CommonDialog控件的Flags属性设置成Visual Basic常数cdlCCRGBInit。
2. 用 ShowColor 方法显示对话框。
可用 Color 属性获取选定颜色的 RGB 值。单击“Command1”命令按钮时,下列代码将显示“颜色”对话框:
Private Sub Command1_Click ()
'将 Cancel 设置成 True。
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
'设置 Flags 属性。
CommonDialog1.Flags = cdlCCRGBInit
'显示“颜色”对话框。
CommonDialog1.ShowColor
'将窗体的背景颜色设置成选定的'颜色。
Form1.BackColor = CommonDialog1.Color
Exit Sub
ErrHandler:
'用户按了“取消”按钮。
Exit Sub
End Sub
使用“字体”对话框
“字体”对话框根据大小、颜色、样式选择字体。用户一旦在“字体”对话框中选定字体后,下列属性就会包含有关用户选项的信息。
要显示“字体”对话框
1. 将 Flags 属性设置为下述 Visual Basic 常数之一:
cdlCFScreenFonts(屏幕字体)
cdlCFPrinterFonts(打印机字体)
cdlCFBoth(既可以是屏幕字体又可以是打印机字体)
警告 在显示“字体”对话框之前必须将 Flags 属性设置为这些数值之一,否则将发生字体不存在错误。
2. 用 ShowFont 方法显示对话框。
下列代码根据用户在“字体”对话框中的选择来设置文本框的字体属性:
Private Sub Command1_Click ()
'将 Cancel 设置成 True。
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
'设置 Flags 属性。
CommonDialog1.Flags = cdlCFBoth Or cdlCFEffects
'显示“字体”对话框。
CommonDialog1.ShowFont
'根据用户的选择来设置文本属性。
Text1.Font.Name = CommonDialog1.FontName
Text1.Font.Size = CommonDialog1.FontSize
Text1.Font.Bold = CommonDialog1.FontBold
Text1.Font.Italic = CommonDialog1.FontItalic
Text1.Font.Underline = CommonDialog1.FontUnderline
Text1.FontStrikethru = CommonDialog1.FontStrikethru
Text1.ForeColor = CommonDialog1.Color
Exit Sub
ErrHandler:
'用户按了“取消”按钮。
Exit Sub
End Sub
commondialog1.showopen("")
commondialog1.showsave("")
.showcolor()
.showfont()
只不过它的属性可以用属性中的自定义来设置
[转载]VB中CommonDialog控件的使用相关推荐
- VB的CommonDialog控件的使用
vb的CommonDialog控件的使用 使用CommonDialog控件 CommonDialog控件提供诸如打开和保存文件.设置打印选项.选择颜色和字体等操作的一组标准对话框.运行 Windo ...
- 基于VB中WINSOCK控件的网上象棋系统的实现
本文发表在<微型机与应用>杂志2001年第3期. 基于 VB 中 WINSOCK 控件的网上象棋系统的实现 马根峰1 , 孙艳2 , 王平1 (1.重庆邮电学院自动化学院,重庆,4 ...
- vb html listview,VB中listview控件
控件 listview控件可有4种不同的视图显示方法,跟"资源管理器"里的"查看"方式相似:(1)无图标:(2)小图标:(3)列表:(4)报表式. 使用哪种视图 ...
- vb中MSHFlexgrid控件小总结
MSHFlexgrid控件的属性有很多,现在我就简单写一些关于现在咱们正需要用到的属性,希望这些解释可以加深大家的理解. row :指表格的行 rows: 表格的总行数 rowsel:选中行数,可以 ...
- vb中自动调整控件的大小
机房收费系统中有很多查询记录类的窗体用到了MSHFlexGrid控件.当没有调整该控件的大小时,查询结果可能会如图所示: 而我们需要的是: 这本来是一个很简单的调整MSHFlexGrid列宽的问题,只 ...
- VB 单击ListView控件某列表头进行排序
VB 单击ListView控件某列表头进行排序,实现方法比较简单,不用写什么函数,ListView控件本身就有排序功能了. Private Sub ListView1_ColumnClick(ByVa ...
- VB制作OCX控件的步骤
下面列出制作OCX控件的步骤: 一:新建OCX 打开VB 选择新建工程在对话框中选择ActiveX 控件(如图一(map1.gif))打开后会见一空的文档这就是 OCX控件的初始界面.想看一看空OCX ...
- Winform中Treeview控件失去焦点,将选择的节点设置为高亮显示 (2012-07-16 13:47:07)转载▼...
Winform中Treeview控件失去焦点,将选择的节点设置为高亮显示 (2012-07-16 13:47:07)转载▼ 标签: winform treeview drawnode Treeview ...
- VB.net数据库编程中DataGrid控件的使用技巧
VB.net数据库编程中DataGrid控件的使用技巧 如何用同一个DataGrid显示不同的数据表:如何用DataGrid显示主表/明细表的内容:如何用DataGrid分页显示或编辑数据表的记录.这 ...
最新文章
- 处理Xcode8输出无用的Log信息
- python selenium爬虫_详解基于python +Selenium的爬虫
- python中的语言特性_python自测——语言特性
- 《IT蓝豹》PlayNewsStandDemo资讯类新闻客户端框架
- C语言 输入是一整行的字符串
- Visual Studio 2015官方汇总包括下载和视频
- 第四章-2 hydra(九头蛇)与Medusa(美杜莎)
- bzoj2101: [Usaco2010 Dec]Treasure Chest 藏宝箱
- 摸鱼小组-冲刺日志(第二天)
- git+vimdiff 一次关闭所有文件
- 微星主板开启安全启动以更新win11教程
- 只能原地动的小鲤鱼/(ㄒoㄒ)/~~
- 抖音被限流怎么办,抖音被限流了解决办法介绍:国仁网络资讯
- 姚洋:建议国家购买三四线空置房 再低价出售给进城农民
- PostgreSQL 与 MySQL 相比,优势何在?
- ADN中国团队参加微软的Kinect全国大赛获三等奖,我们团队的创意项目用Kinect在Naviswork中虚拟漫游
- Mtime美好时光网 盈利模式
- 树莓派Zero W发布;亚马逊 AWS S3 服务出现故障 | IoT黑板报
- poi操作word模板(word2003,word2007)
- ctfshow CMS系列writeup(web477-web479)
热门文章
- 去普吉岛旅游都带啥_普吉岛旅游行前准备
- 关闭docker进程
- 中国人民银行研究生部复习资料总结
- [ROS]动态参数设置-可视化调试-创建cfg文件
- 【python】实现网络简单爬虫
- harmonyOS张瑜,HarmonyOS开发者创新大赛预选赛结束,23支队伍脱颖而出闯入决赛
- [转]工作流:小明和小强都是张老师的学生
- 卫哲的3+1思考法:测量项目“靠谱程度”
- Trends Plant Sci | 朱永官院士等综述植物叶片的生物固氮作用
- DDD基础篇学习总结