VB程序设计程序用户界面设计
第2章 VB界面设计
Visual Basic程序设计
10
2.1 对象常用的公共属性
4. Font属性 设置对象中显示的字体属性，可在“属性”窗口 中设置字体的大小、颜色等。 如：…… 如果需要在程序运行时改变对象的字体，可以在 代码中写，如： Label1.FontSize=30 …… 见教材P18，例2-1
Visual Basic程序设计
当对象为窗体时，屏幕就是容器
Visual Basic程序设计
32
3. Print方法
将文本输出到指定窗体、图片框控件、打印机、立 即窗口（称为Debug对象，作为调试之用）等上。
格式： [对象.]Print[[Spc(n)|Tab(n)][输出内容1 [,|;] 输 出内容2 [,|;]输出内容3 [,|;] ……
ht Width
Visual Basic程序设计
14
2.1 对象常用的公共属性
8. Left、Top属性 设置对象相对其所在容器的位置。 什么是容器？ 容器是用来存放对象的。对象所在容器左上角为 坐标原点，向右为X轴正方向，向下为Y轴正方向。
Top
Left Width
Heig ht
Visual Basic程序设计
Visual Basic程序设计
2.2.1 窗体常用属性
2. ControlBox属性 设置窗体是否有控制菜单框，默认为值True。设置 为False时 ,将不显示窗体的最大化,最小化,以及关闭 按钮。如图2.10
Visual Basic程序设计
21
2.2.1 窗体常用属性
3. MaxButton和MinButton属性 指定在运行时在窗体标题栏右边的最大化和最小 化按钮是否可用，默认值为True，可用。设置为 False时 ,不可用。 注意：只有当ControlBox属性值为True时，这 两个属性才起作用。
VB界面设计
VB界面设计现在越来越多的软件都有了很Cool的2D造型，什么×××× XP啦，×××× 2002之类的，看来争夺软件霸权的地位，2D界面是必不可少的，有很多人认为Visual Basic语言的先天不足导致它不能够很灵活的改变界面，让俺们来看看究竟吧。
如果大家用过《Windows优化大师》，肯定会被它的界面所倾倒，其实利用ActiveSkin 就可以办到,甚至更爽,但是如果要做的共享软件只是一个文件,在加上几个OCX累赘,似乎很是不爽,看看VB是怎么利用别的东东来实现的吧。
首先新建一个EXE工程，再在窗体上拖几个Label控件，看看Label 的强大功能吧，原理就是利用Label来模拟一个按钮，但是首先要将Label控件的属性要调一下，Name：LblBtn，BorderStyle: 1，Appearance: 0，Alignment: 2，这样一个按钮的雏形就已经出来了，如果工程量很大，可以将多个Label控件的Name 属性设为一样的，对于按钮的识别就要靠识别Index属性了，为了方便起见，在进入到代码编辑窗口，输入以下代码：Private Const LBL_BACK_COLOR ＝&HE0E0E0 ’正常时Label控件的背景色Private Const LBL_WHEN_MOUSE_MOVE ＝&HC0C0C0 ’鼠标移动时Label的背景色Private Const LBL_WHEN_MOUSE_DOWN ＝&H808080 ’鼠标按下时Label的背景色再在Form的Load事件中输入以下内容Private Sub Form_Load（）Dim Count As IntegerFor Count ＝0 To 3 ’请将此出的3换成你的LblBtn数量的个数－1LblBtn（Count）.BackColor＝LBL_BACK_COLOR ’初始化LblBtn的背景Next CountEnd Sub然后再在LblBtn的MouseMove和MouseDown事件中来搞定剩余部分：Private Sub LblBtn_MouseDown（Index As Integer，Button As Integer，Shift As Integer，X As Single，Y As Single）’当鼠标按在LblBtn上时LblBtn（Index）.BackColor ＝LBL_WHEN_MOUSE_DOWN ’临时改变LblBtn背景颜色End SubPrivate Sub LblBtn_MouseMove（Index As Integer，Button As Integer，Shift As Integer，X As Single，Y As Single）’鼠标在LblBtn上面移动时触发该事件Dim Count As IntegerDoEvents ’暂时将系统控制权教给系统If Button T hen Exit Sub ’如果按钮被按下就退出该过程For Count ＝0 To 3If Count <> Index Then ’如果按下的不是其它按钮LblBtn（Index）.BackColor ＝LBL_BACK_COLOR ’将背景设为正常ElseLblBtn（Index）.BackColor ＝LBL_WHEN_MOUSE_MOVE ’将背景设为鼠标移动的背景End IfNext CountEnd SubPrivate Sub Form_MouseMove（Button As Integer，Shift As Integer，X As Single，Y As Single）Dim Count As IntegerDoEventsFor Count＝0 To 3LblBtn（Count）.BackColor＝LBL_BACKCOLOR ’恢复背景Next CountEnd本来利用Windows的消息系统来完成这一“艰巨”的任务最简单，可问题就来了，Label 控件没有窗口句柄怎么办？可是此问题与题无关，写了会有骗稿费之：）OK，Label控件就讲到这里，在来说说TextBox控件，各位看关恐怕看惯了白颜色的背景，那么就换换颜色以养养俺们那和绵羊一样的眼睛（为什么说绵羊？俺也不知道），可是VB提供的RGB函数弄出来的颜色不是怎么好看，这里俺来教大家一个小Tip，RGB函数的Red，Green，Blue这三个参数若一样，则产生的颜色是灰度，当然越接近白颜色越好，但也不能让各位看不出来，俺建议TextBox的背景为RGB（235，235，235），各位还是实战一下，将一个TextBox拖到窗体上，属性设置如下Appearance 0BorderStyle 1MutilLine True千万不要设置ScrollBars属性，否则会影响效果在Form的Load事件中初始化TextBoxDim bkColor As LongPrivate Sub Form_Load（）bkColor＝RGB（235，235，235）Text1.BackColor＝bkColorEnd Sub在Form和Text1的MouseMove事件中:Private Sub Form_MouseMove（Button As Integer，Shift As Integer，X As Single，Y As Single）Text1.BorderStyle ＝0End SubPrivate Sub Text1_MouseMove（Button As Integer，Shift As Integer，X As Single，Y As Single）DoEventsText1.BorderStyle ＝1End Sub在按下F5试试是不是很Cool?可能各位看关玩过石器时代，一定会对里面的TextBox的效果感到很爽，VB还不是可以做到，有焦点的控件可以使用SetFocus方法来为其设置焦点，可是一个窗体上如果控件太多了，一个一个的用SetFocus是不是太傻了?这一节的主角就是－－－－－－－－API函数，首先声明:Private Type POINTAPIx As Longy As LongEnd TypePrivate Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" （lpPoint As POINTAPI）As LongPrivate Declare Function WindowFromPoint Lib "user32" Alias "WindowFromPoint" （ByVal xPoint As Long，ByVal yPoint As Long）As LongPrivate Declare Function SetFocus Lib "user32" Alias "SetFocus" （ByVal hwnd As Long）As Long但是这里的SetFocus会和控件的SetFocus会搞混淆，改改吧，Private Declare Function nSetFocus Lib "user32" Alias "SetFocus" （ByVal hwnd As Long）As Long只要Alias指向的接口是对的前面的函数名称简直就是摆设，在建立一个过程:Public Function sSetFocus（）As LongDim CPos As POINTAPI，Successfull As Boolean，hWnd As LongDoEventsSuccessfull ＝GetCursorPos（CPos）If Not Successfull Then Exit Sub ’如果未成功则退出该过程hWnd＝WindowFromPoint（CPos.x，CPos.y）sSetFocus=nSetFocus(hWnd)End Sub在窗体上放一个Timer控件，Interval 属性设为100，就是0.1秒，在Timer1控件的Timer 事件中填入sSetFocus，在运行一下看看，效果怎么样?可是有的先生小姐要问了，TextBox难道就不能用ScrollBar吗?非也非也，选工程－>部件－>Microsoft Windows Common Controls－2 6.0 （SP3）就是你的答案，至于卷动TextBox 就去研究SendMessage函数吧，否则又有骗稿费之嫌，如果想作绿色软件，不想用控件，可以用俺前面讲到的Label控件，利用字体Webdings 来模拟ScrollBar，需要注意的是，如果模拟ScrollBar，上下左右箭头分别是5，6，3，4，别忘了把字体设为Webdings再来讲讲窗体的美化，其实将BorderStyle属性设为0就是很好的2D美化;）可是，这样一来，问题又来了，怎么办?凡事都要请API来帮忙，这里需要两个API，一下是该API 的声明:Public Declare Function ReleaseCapture Lib "user32" Alias "ReleaseCapture" （）As Long 注释：这个API是用来解下鼠标的追踪器，关于他的过多用法以及详细介绍可以写信向俺咨询，还有Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" （ByVal hwnd As Long，ByVal wMsg As Long，ByVal wParam As Long，lParam As Any）As Long’这个该不要俺多介绍了吧Public Const HTCAPTION ＝2 ’代表窗体的标题区Public Const WM_NCLBUTTONDOWN ＝&HA1 ’表示非工作区左键按下原理很简单，卸下鼠标追踪器后向Form发送一个移动窗体的消息，其实做到这一点的方法很多，但俺个人认为这一种最简单，添加一个过程:Public Sub MoveForm（hWnd As Long）DoEventsReleaseCaptureSendMessage hWnd，WM_NCLBUTTONDOWN，HTCAPTION，0&End Sub在Form的MouseMove事件中:Private Sub Form_MouseMove（Button As Integer，Shift As Integer，X As Single，Y As Single）If Button＝vbLeftButt on Then MoveForm hWnd’如果按下鼠标左键就移动窗体End Sub台下的这位小姐又纳闷了，可是光秃秃的窗体没有了标题栏也不好看，俺要向这为小姐推荐俺的东东－ActiveX控件，ToolSign，需要的人可以写信给俺联系，该控件需要在代码编辑区域内添加一下代码:’一下声明是用在ToolSign的AutoQuit属性的Public Const EXIT_FORCE ＝2 ’注意，在VB中运行的时候如果选用此退出方式，VB也会退出Public Const EXIT_MESSAGE ＝1 ’由操作系统发送关闭消息Public Const EXIT_CUSTOM ＝Not （EXIT_FORCE Or EXIT_MESSAGE）’自定义将其注册后在部件栏中把e－Dogkid Studio Tools Sign打钩，添加到工具箱中，双击加入到窗体中，在Form的Load事件中添加一下初始化代码:Private Sub Form_Load（）With Sign1.AutoQuit ＝EXIT_CUSTOM.ParentsHWND ＝hWnd ’填了此属性可以直接用ToolSign来移动窗体而不需要前面的代码End WithEnd SubSign1的Click事件Private Sub Sign1_Click（）End ’关闭程序End Sub在Form的Resize事件中添加一下代码:Private Sub Form_Resize（）Sign1.Width ＝WidthEnd Sub如果想让窗体可以改变大小，可以修改一下属性Caption ""BorderStyle 2或5ControlBox False实际情况如图不知道各位看关见过爆炸试的窗体没有?，没有见过可以从俺要另外一个俺自己的ActiveX DLL，我的那个东东其实是给我的Software作运行库的，各位若不嫌弃，可以用用，注册后在工程－>引用－>e－Dogkid Runtime Library然后在窗体Load事件中输入:Private Sub Form_Load(）Dim System As e_Dogkid_Runtime_Library.SystemSet System ＝New e_Dogkid_Runtime_Library.SystemShowSystem.BoomIt hDC，60，Width，Height，Left，TopSet System ＝NothingEnd Sub。
简单vb程序设计ppt课件
目录
CONTENTS
• VB程序设计概述 • VB编程基础 • VB界面设计 • VB高级功能应用 • VB程序调试与优化 • VB实战案例解析
01 VB程序设计概述
VB语言简介
VB是Visual Basic的 简称，是一种面向对 象的可视化编程语言。
VB支持多种数据库 访问方式，可以轻松 地开发出数据库应用 程序。
VB应用领域
数据库应用程序开发
桌面应用程序开发
VB语言可以轻松地访问各种数据库，如 Access、SQL Server等，因此非常适合开发 数据库应用程序。
VB语言具有丰富的控件库和强大的开发功能， 可以开发出各种桌面应用程序，如文件管理、 图像处理等。
网络应用程序开发
游戏开发
VB语言支持网络编程，可以开发出各种网络 应用程序，如聊天室、邮件客户端等。
控件使用与事件处理
常用控件
列举VB中常用的控件，如文本框、标签、按钮、 列表框等，并介绍它们的属性和事件。
控件布局
讲解如何合理地布局控件，使得界面更加美观和 易于使用。
事件处理
演示如何为控件添加事件处理程序，响应用户的 操作，如点击按钮、选择列表项等。
界面布局与美化
界面布局
介绍界面布局的原则和技巧，如对齐、分组、留白等，以及如何 使用容器控件（如框架、面板）进行布局。
感谢您的观看
THANKS
程序性能优化策略
优化算法
针对程序中耗时的算法，尝试采用更高效的算法或改进现有算法的实 现方式。
减少资源占用
优化代码结构，减少不必要的内存占用和处理器时间消耗，如避免使 用庞大的数据结构或复杂的嵌套循环。
采用合适的数据类型
vb界面设计
vb界面设计界面设计☆本章学习内容用户界面是一个应用程序最重要的部分，它是最直接的现实世界。
对用户而言，界面就是应用程序，它们感觉不到幕后正在执行的代码。
不论花多少时间和精力来编制和优化代码，应用程序的可用性仍然依赖于界面。
8.1 多文档界面、8.2 工具栏和状态栏、8.3 RichTextBox控件、8.4 应用程序向导8.1 多文档界面下一节多文档界面是指，一个应用程序，它提供一个桌面上的父窗口，而该窗口包含有其他该应用程序中打开的子窗口。
当该父窗口最小化或关闭时，它所包含的所有子窗口都最小化或关闭。
多文档界面 (MDI) 允许创建在单个容器窗体中包含多个窗体的应用程序。
象 Microsoft Excel 与 Microsoft Word for Windows 这样的应用程序就具有多文档界面。
MDI 应用程序允许用户同时显示多个文档，每个文档显示在它自己的窗口中。
文档或子窗口被包含在父窗口中，父窗口为应用程序中所有的子窗口提供工作空间。
例如：Microsoft Excel 允许创建并显示不同样式的多文档窗口。
每个子窗口都被限制在 Excel 父窗口的区域之内。
当最小化 Excel 时，所有的文档窗口也被最小化，只有父窗口的图标显示在任务栏中。
子窗体就是 MDIChild 属性设置为 True 的普通窗体。
一个应用程序可以包含许多相似或者不同样式的 MDI 子窗体。
在运行时，子窗体显示在 MDI 父窗体工作空间之内（其区域在父窗体边框以内及标题与菜单栏之下）。
当子窗体最小化时，它的图标显示在 MDI 窗体的工作空间之内，而不是在任务栏中，如图 8.1 所示。
图 8.1 显示在 MDI 窗体工作空间之内的子窗体注意一个应用程序也可以包括标准的、不是包含在 MDI 窗体之内的非MDI 窗体。
MDI 应用程序中标准窗体的典型用法是显示模式的对话框。
MDI窗体相似于具有一个限制条件的普通窗体。
除非控件具有 Align 属性（如 PictureBox 控件）或者具有不可见界面（如 Timer 控件），否则不能将控件直接放置在 MDI 窗体上。
VB程序设计习题及答案第2章VisualBasic语言基础知识
第2章 Visual Basic语言基础知识2．1 Visual Basic定义了几种数据类型，变量有哪几种数据类型，常量有哪几种数据类型。
【答】Visual Basic基本数据类型：1. 字符串型（String）：字符串分为变长字符串和定长字符串两种。
2. 数值型：数值型数据分为整型数和浮点数两类。
3. 货币型（Currency）4. 变体型（Variant）5. 字节型（Byte）6. 布尔型（Boolean）7. 日期型（Date）8. 对象型（Object）Visual Basic中包含两种常量，即文字常量和符号常量。
变量的基本数据类型：Byte（字节型），Boolean（布尔型），Integer（整型），Long （长整型），Single（单精度型），Double（双精度型），Currency（货币型），Date（日期型），Object（对象型），String（变长字符串），String（定长字符串），Variant（变体型、数字），Variant（变体型、字符）2．2 符号常量和变量有什么不同点?【答】符号常量一经定义，就不能在程序中的其他位置改变其值。
变量的值在程序中可以改变。
2．3 指出下列正确的变量名：g(1-k) 6adhs *sss kL2.1 Printx+1 ahi π .ex3 j5h【答案】正确的变量名：ahi，j5h2．4 指出下列正确的数字形式-1.25 ±0.123 89E D2585 10^(2.7) 3^5【答案】2．5 下列表达式若有错误，请改正（1） ts+cos(300) (2) (x+y)^(25÷s)（3） [(X1+X2)*(X1-3)-6]*7 (4) (X÷-2)+sin(1.2+π)【答案】(1) ts+cos(30*3.141593/180)(2) (x+y)^(25/s)(3) ((X1+X2)*(X1-3)-6)*7(4) (X/(-2))+sin(1.2+3.141593)2．6 写出下列数学式的Visual Basic表达式（1） sin(a)[cos(b)+1.5]（2） (x1+4)5(e2-a)（3） 36[(x1+π)(x1÷3.3)-b]（4） x-2π)【答案】Visual Basic表达式：(1) sin(a)*(cos(b)+1.5)(2) (x1+4)^5*(Exp(2)-a)(3) 36*((X1+3.141593)*(x1/3.3)-b)(4) x^（-2）+5.8*sin(3.5*3.141593)第3章顺序结构程序设计3．1 下列语句是否有错？若有，请改正。
可视化程序设计VB题目应用程序界面设计
可视化程序设计VB题目应用程序界面设计在当今数字化的时代，应用程序的界面设计对于用户体验和程序的易用性至关重要。
可视化程序设计语言 VB（Visual Basic）为我们提供了强大的工具和功能，使得创建吸引人且功能强大的应用程序界面变得相对容易。
首先，让我们来了解一下应用程序界面设计的重要性。
一个好的界面设计能够吸引用户的注意力，提高用户的操作效率，减少错误，并增强用户对应用程序的满意度。
它就像是应用程序的“门面”，直接影响着用户对整个程序的第一印象。
在 VB 中，设计应用程序界面的第一步是规划布局。
我们需要根据应用程序的功能和用户需求，确定各个控件的位置和大小。
例如，如果是一个数据输入的界面，我们可能会将文本框、下拉列表和按钮等控件合理地排列，以便用户能够方便地进行操作。
控件的选择也是界面设计中的关键环节。
VB 提供了丰富的控件，如按钮（Button）、文本框（TextBox）、标签（Label）、列表框（ListBox）、组合框（ComboBox）等等。
每个控件都有其特定的用途和特点。
比如，按钮用于触发特定的操作，文本框用于用户输入文本，标签用于显示静态的提示信息。
在布局和选择控件之后，我们还需要考虑界面的颜色和字体搭配。
颜色的选择要符合应用程序的主题和功能，避免使用过于刺眼或难以区分的颜色组合。
字体的大小、样式和颜色也要清晰可读，以确保用户能够轻松获取信息。
接下来，让我们通过一个具体的例子来看看如何在 VB 中实现一个简单的应用程序界面设计。
假设我们要创建一个学生成绩管理系统的登录界面。
我们首先在 VB 的窗体上放置两个文本框，分别用于输入用户名和密码。
然后，放置一个登录按钮和一个取消按钮。
为了增加界面的美观性，我们可以在背景上添加一个合适的图片或者使用一种柔和的背景颜色。
对于文本框，我们可以设置其边框样式、输入限制等属性。
比如，密码文本框可以设置为只显示星号来保护用户输入的密码。
登录按钮可以设置为突出显示的颜色，以吸引用户点击。
vb用户界面设计实验报告（共9篇）
vb用户界面设计实验报告(共9篇) VB第7章用户界面设计一、选择题1、下列控件中，没有Caption属性的是( )。
A. 框架B. 列表框C. 复选框D. 单选按钮2、复选框的Value属性为1时，表示( )。
A. 复选框未被选中B. 复选框被选中C. 复选框内有灰色的勾D. 复选框操作有错误3、用来设置粗体字的属性是( )。
A. FontItalicB. FontNameC. FontBoldD. FontSizeE. FontUnderline4、假定定时器的Interval属性为1000，Enabled属性为Ture，调用下面的事件过程，程序运行结束后变量x的值为( )。
Dim x As IntegerSub Timer1_Timer( )For i = 1 To 10x = x + 1Next iEnd SubA. 1000B. 10000C. 10D. 以上都不对5、在下列说法中，正确的是( )。
A. 通过适当的设置，可以在程序运行期间让定时器显示在窗体上B. 在列表框中不能进行多项选择C. 在列表框中能够将项目按字母顺序从大到小排列D. 框架也有Click和DblClick事件6、在用菜单编辑器设计菜单时，必须输入的项有( )。
A. 快捷键B. 标题C. 索引D. 名称7、在下列关于菜单的说法中，错误的是( )。
A. 每个菜单项都是一个控件，与其他控件一样也有自己的属性和事件B. 除了Click事件之外，菜单项还能响应其他的，如DblClick等事件C. 菜单项的捷径键不能任意设置D. 在程序执行时，如果菜单项的Enabled属性为False，则该菜单项变成灰色，不能被用户选择8、在下列关于通用对话框的叙述中，错误的是( )。
A. CommandDialog1.ShowFont显示“字体”对话框B. 在“打开”或“另存为”对话框中，用户选择的文件名可以经FileTitle属性返回C. 在“打开”或“另存为”对话框中，用户选择的文件名及其路径可以经FileName属性返回D. 通用对话框可以用来制作和显示“帮助”对话框二、填空题1、复选框( )属性设置为2——Grayed时，变成灰色，禁止用户选择。
VB程序界面设计
VB程序界面设计VB是一种基于事件驱动的编程语言，常用于开发Windows应用程序的用户界面。
程序界面设计对于VB程序的用户体验至关重要，好的界面设计可以提升用户的使用体验，提高程序的易用性和功能性。
下面将详细介绍VB程序界面设计的要点和原则。
1.界面布局要合理：VB程序的界面布局应该符合逻辑顺序，使用户可以轻松找到需要的功能和信息。
主要功能模块应该被置于窗口的显眼位置，并按照重要性进行排列。
相似的功能应该归类在一起，方便用户查找。
2.界面元素要直观：VB程序的界面元素，如按钮、文本框、下拉框等控件，应该具有直观的视觉效果，使用户可以直观地了解其功能和用途。
按钮应该有明确的标识，文本框和下拉框应该有默认值或提示文本，以提供相关的信息。
3.功能导航要清晰：VB程序的界面应该提供清晰明了的功能导航，使用户可以方便地找到需要的功能。
一般可以通过菜单栏、工具栏或导航栏来实现功能导航。
菜单栏提供了一级功能导航，工具栏提供了常用功能的快速访问，导航栏提供了程序的整体结构和主要功能。
4.输入反馈要及时：VB程序的界面应该能够及时地给出用户的输入反馈，以提高用户的操作效率和体验。
例如，在用户点击按钮之后，界面应该立即给出相应的反馈，如弹出提示框或改变按钮的状态。
5.错误提示要友好：VB程序的界面应该给出友好的错误提示，帮助用户识别和纠正操作错误。
错误提示信息应该明确、简洁，并且给出相应的解决方案。
例如，当用户输入不合法时，界面可以弹出一个提示框，告诉用户输入不合法，并提供相应的解决方式。
6.界面美观要素：VB程序的界面应该注重美观，以提高用户对程序的好感度和使用欲望。
界面元素的颜色、样式应该协调一致，避免刺眼的颜色和过分复杂的样式。
同时，界面的排版和字体的选择也应该考虑到用户的视觉感受，使界面整体看起来舒适、清晰。
7.简化操作要点：VB程序的界面应尽可能地简化用户的操作步骤，以提高用户的使用效率和舒适度。
可以采用一些技术手段，如自动填充、自动补全、批量操作等，来简化用户的重复操作或冗长操作。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
Private Sub Form_Click() CommonDialog1.Action = 3 Form1.BackColor = CommonDialog1.Color End Sub
“字体”对话框的常用属性
对应数值 1 2 3 4 5 6 7
用户的选择按钮 单击“确定”按钮 单击“取消”按钮 单击“终止”按钮 单击“重试”按钮 单击“忽略”按钮 单击“是”按钮 单击“否”按钮
通过对话框
VB提供了一组基于Windows的常用的标 准对话框界面，用户可以充分利用通用 对话框（Common Dialog）控件在窗体 上创建6种标准对话框，它们分别是打开 （Open）、另存为（Save As）、颜色 （Color）、字体（Font）、打印机 （Printer）和帮助（Help）对话框。
通用对话框的使用步骤
通用对话框控件不属于VB6.0的标准控件，默 认情况下未出现在开发环境的工具箱中，因此 必须首先将该控件添加到工具箱中方可使用。 通用对话框的编程一般应包括以下三个步骤 。
将通用对话框添加到工具箱中 性或调用其基本方法 个性化属性设置及程序设计
返回或设置用户所要打开或另存为的文件名
过滤器属性，是一个字符串，用于设置对话框中 可以显示的文件类型
过滤器索引属性，是一整数，表示文件列表框中 默认的文件类型是Filter属性的设置的第几组。
初始化路径属性，设置对话框的初始文件目录
DefaultExt
设置保存文件时默认的文件扩展名
“颜色”对话框的常用属性
属性 Flags
Color FontName FontSize FontBold FontItalic FontUnderline FontStrikethru
功能
设置或返回“字体”对话框的样式。flag的值： 1：对话框只列出系统支持的屏幕字体； 2：只列出打印机支持的字体； 3：列出可用的打印机和屏幕字体； 4：对话框中显示“帮助”按钮； 256：对话框中允许设置删除线、下划线和颜色效果；
通用对话框的属性和方法
Action属性 0 1 2 3 4 5 6
Show方法
ShowOpen ShowSave ShowColor ShowFont ShowPrinter ShowHelp
打开的通用对话框的类型 无对话框显示 打开文件对话框 另存对话框 颜色对话框 字体对话框 打印机对话框 帮助对话框
返回在“字体”对话框中选中的字体颜色。
返回在“字体”对话框中选中的字体名称
返回在“字体”对话框中选中的字号
返回在“字体”对话框中是否选中了粗体字
返回在“字体”对话框中是否选中了斜体字
返回在“字体”对话框中是否选中了下划线
返回在“字体”对话框中是否选中了删除线
通用对话框应用实例
【实例5-1】编程在VB中用Windows画图 软件mspaint.exe直接打开相关图形文件。
5
显示“重试”、“取消”按钮
用于指定图标样式的VB常数
VB符号常量 VbCritical VbQuestion VbExclamation VbInformation
对应 数值 16
32
48
64
功能 显示“严重错误”图标 显示“警告询问”图标 显示“警告错误”图标 显示“信息”图标
用于指定默认选择按钮的VB常数
实例5-1程序界面
实例5-1程序实现分析
通用对话框的属性设置 在窗体中显示图像文件的路径与文件名
的实现 如何调用外部程序编辑图像文件 实现步骤 代码清单
自定义对话框
坐标位置][，y坐标位置]） 使用示例：
s= InputBox("请输入您的Email地址", "用户 信息输入") 说明
输出消息框
基本格式：MsgBox（提示信息，[， 按钮数值][，标题]）
使用示例：c=MsgBox("密码错",21， "密码核对" )
说明 （详见教材）
用于指定按钮数目及形式的VB常数
VB符号常量 VbOKOnly
对应数值
功能
0
显示“确定”按钮
VbOKCancel
1
显示“确定”、“取消”按钮
VbAbortRetryIgnore 2
VbYesNoCancel
3
VbYesNo
4
显示“终止”、“重试”、“忽 略”按钮
显示“是”、“否”、“取消” 按钮
显示“是”、“否”按钮
VbRetryCancel
第5章 程序用户界面设计
对话框 菜单设计 工具栏、状态栏设计
本章学习目标
InputBox函数及MsgBox函数的灵活使用 正确运用通用对话框实现文件的打开与保存、
字体及颜色的设置等操作 熟练掌握下拉式菜单和弹出式菜单的设计与
编程 掌握剪贴板对象的基本编程以及在VB在调
用外部应用程序的基本方法 基本掌握工具栏的设计步骤与编程方法
对话框
常见的对话框包括输入／输出消息框、通用对话框以 及用户根据实际需要自行设计的的自定义对话框。
输入输出消息框 通用对话框 自定义对话框
输入输出消息框
输入输出消息框就是主要用于信息输出 显示及用户数据输入的对话框。
输入消息框 输出消息框
输入消息框
基本格式： InputBox（提示信息[，标题][，缺省值][，x
VB符号常量 VbDefaultButton1
对应数值
功能
0
第一个按钮为默认选择按钮
VbDefaultButton2
256
第二个按钮为默认选择按钮
VbDefaultButton3
512
第三个按钮为默认选择按钮
MsgBox函数的返回值
VB符号常量 VbOK VbCancel VbAbort VbRetry VbIgnore VbYes VbNo
通用对话框的“属性页”
通用对话框的重要属性和方法
“打开”/“另存为”对话框 “颜色”对话框 “字体”对话框 其它对话框
“打开”/“另存为”对话框常用属 性
属性 DialogTitle FileName
FileTitle Filter
FilterIndex
InitDir
功能
对话框标题
返回或设置用户所要打开或另存为的文件的文件 路径和文件名