第13讲VB界面设计
VB常用控件与界面设计
Contents
1 2 窗体 常用控件 多文档界面 菜单设计
3
4
窗体
窗体是VB最重要的对象，它是包容程序窗 口或对话窗口所需的各种控件对象的容器。 一个可执行的VB应用程序至少要包括一个 窗体（窗体模块）。
第一个重要的对象——窗体 窗体的属性
窗体的常用属性
Name（名称）属性
• 当前焦点在TextBox上时
Visual Basic的常用控件 小结
常用控件的通用属性
位置属性
Left Top Width Height
名称属性 Visible Enabled Font Alignment TabIndex
对象的焦点
当前被激活的对象 SetFocus方法 GotFocus与LostFocus 事件 TabIndex属性
HscrollBar
VscrollBar ListBox ComboBox
Hsb
Vcb Lst Cbo
HsbRed
VcbBlue LstNumbers CboEge
Data
OLE Form Menu
Dat
Ole Frm Mnu
DatMyData
OleObject FrmMain MnuFile
窗体的常用属性
加载语句 语法：Load FrmName 除非需要装入并且不显示窗体，否则没必要使 用Load语句，因为任何对窗体的引用，都会自 动将未装入内存的窗体装入内存。且一旦窗体 被装入内存，不管它是否可见，都可以通过代 码修改它的属性和控件。 加载窗体时会触发窗体的Load事件，通常在 Load事件中加入初始化窗体、控件、窗体级变 量的语句，以便初始化窗体。
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课件
①打开“工程”菜单下的“部件”命令。 ②在对话框中选择“控件”选项卡，选 择“Microsoft Common Dialog Control 6.0”选项，如图所示。 ③单击“确定”按钮。控件添加到工具 箱中。 ④将控件添加到窗体上。
通用对话 框控件
添加到窗体上 的通用对话框明
Action属性 Show方法
1
ShowOpen
2
ShowSave
3
ShowColor
4
ShowFont
5
ShowPrinter
6
ShowHelp
说明 显示文件打开对话框 显示另存为对话框 显示颜色对话框 显示字体对话框 显示打印机对话框 显示帮助对话框
计算机
12
软件设计基础
——VB
计算机科学系
1
第4章 应用程序界面设计 计算机
本章学习目标： ▪ 掌握菜单的基本概念，熟练应用菜单编辑器创
建菜单并为菜单项编写代码 ▪ 熟练应用通用对话框及其操作语句 ▪ 掌握RichTextBox控件的常用属性和方法 ▪ 掌握MDI窗体的创建方法和编程方式 ▪ 掌握文件系统控件同步方法 ▪ 了解工具栏的创建方法
（1）通用对话框 CommonDialog 控件可以显示如下常用对话框：“打开”、 “另存为”、
“颜色”、“字体”、“打印”、“帮助”。而当前显示哪一种对话框将由 CommonDialog 控件的Action属性或Show方法来决定。
11
使用 菜单和通用对话框创建文本编辑器
为菜单项编写程序代码
2.对“文件”菜单的菜单项编写程序代
计算机
问题分析
实例演示-实例4.1
图1是应用菜单的简单文本编辑器界面，界面中包含菜单、RichTextBox 增强文本框和通用对话框。菜单包含两个菜单项，在“文件”和“编辑” 菜单下分别有子菜单，如图2和图3所示。运行程序，可以实现相应菜单 项的功能。
《VB程序设计教程》PPT课件(全)(2024)
详细讲解窗体的常用方法，如显示窗体、隐藏窗体等，以及窗体 的事件，如加载事件、卸载事件等。
窗体的布局与风格
探讨如何合理规划窗体的布局，以及如何通过设置窗体的风格来 美化界面。
18
控件的使用与布局
常用控件介绍
介绍VB中常用的控件，如文本框、标签、按钮、列表框等，以及它们的属性和事件。
2024/1/26
Web应用程序开发
通过可以开发 Web应用程 序。
多媒体应用开发
利用VB可以开发多媒体应用程序，如音频、 视频处理等。
6
02
VB编程基础
2024/1/26
7
数据类型与变量
数值型
Integer、Long、Single、Double等
字符串型
String
2024/1/26
36
THANKS
感谢观看
2024/1/26
37
《VB程序设计教程》 PPT课件(全)
2024/1/26
1
2024/1/26
目录
• VB程序设计概述 • VB编程基础 • VB界面设计 • VB高级编程技术 • 数据库编程技术 • 网络编程技术 • VB程序调试与优化
2
01
VB程序设计概述
2024/1/26
3
VB的发展历史
1991年，微软公司推出Visual Basic 1.0，标志着 VB的诞生。
2024/1/26
套接字编程
使用Winsock控件进行套接字编程， 包括创建套接字、绑定地址和端口、 监听连接、发送和接收数据等步骤。
错误处理与调试
网络通信编程中需要考虑错误处理和 调试问题，如处理网络断开、数据丢 失等异常情况，以及使用日志记录和 调试工具进行问题排查。
第2章_VB的界面设计
方法2 方法2：在工具箱中的控件图标上双击，在窗体中央就自 动出现一个缺省大小的控件，然后根据需要移动控件或 更改控件的大小。
15:11 18
选中控件
单击窗体上放置的控件，即选中该控件。 如果需要同时选中多个控件，可按住Ctrl或Shift键再 如果需要同时选中多个控件，可按住Ctrl或Shift键再 单击需选中的多个控件； 在窗体上用鼠标拖曳出一个矩形框，则此矩形框所包 围的控件全部被选中。
15:11
5
5．Enabled：活动属性 Enabled：
Enabled属性允许在程序运行时使对象成为有效或无效。 取值有两种：True（有效，这是缺省值）和False（无 效）。
6．Visible：可视属性 Visible：
Visible属性决定对象是否可见。True（可见，这是缺省 值）和False（不可见）。
' 在此输入程序结束前，需要执行的代码
End End Sub
15:11
14
4．Print方法 Print方法
功能：可以将文本输出到窗体、图片框或打印机上； 功能： 语句格式： [对象名.]Print [输出列表] .]Print [输出列表 输出列表] 语句格式： 对象名.] 注意： 注意：
'字符串输出用于说明
（4）若语句行末尾没有分隔符，则输出当前输出项后自动换行。若 若语句行末尾没有分隔符，则输出当前输出项后自动换行。 以分号或逗号结束，则输出当前输出项后不换行，下一个Print语 句输出的内容将输出在同一行上。
15:11
16
2.2 VB常用控件 VB常用控件
15:11
12
体1 在窗体1的“代码编辑器”窗口中输入以下程序代码： 代码编辑器”
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界面设计基本控件PPT教学课件
2020/12/12
12
一、窗体的属性
对象表现出来的特征是由对象的各种属性决 定的，因此，需要对窗体的属性进行设置以得到 所期望的窗体特征。这可以在界面设计时通过属 性窗口设置窗体的各种属性值，也可以在运行时 由代码段给窗体的属性赋值来实现。
决定窗体特性的属性在属性窗口内可以查看 和设置。
下面介绍几个常用的属性：
属性的设置有两种方法：
通过属性设置框直接设置对象的属性；
在程序代码中通过赋值实现，其格式为：
对象.属性=属性值 例:Label1.caption= " VB教程"
2020/12/12
7
2.2.2控件的事件
对于控件对象而言，事件就是发生在该对象 上的事情。在Windows环境下，用户对计算机做 的每一步操作，如键盘按下（Keypress），单 击鼠标（Click），获取焦点（Gostfocus）选择 一个菜单命令等，系统接受的每一个动作，都称 之为事件（Event）。
(9)Enabled属性
该属性值为True和False。决定对象是否响应用户生成事件。 若值为True时响应，为False时不响应。
(10)Height、Wide、Left和Top属性
Height、Wide属性值决定窗体的大小即用于设置窗体的高 度和宽度值，Left、Top属性值决定窗体的位置即窗体离屏幕左 边与上边的距离。
事实上，方法是对象本身内含的程序段，它可能是函数， 可能是过程，但实现功能的步骤和细节，用户看不到。用户 只能了解这个对象的功能和用法。按照约定直接去使用它。 因为方法是面向对象的，所以在调用时一定要用对象，对象 方法的调用格式为：
[对象.]方法 [参数名表] 其中若省略了对象，表示为当前对象，一般指窗体。
VB应用程序界面设计
VB应用程序界面设计VB应用程序界面设计是指使用Visual Basic开发工具创建应用程序时，对应用程序界面进行设计的过程。
良好的应用程序界面设计可以提高用户体验，增加用户的使用舒适度和工作效率。
下面将从功能布局、色彩搭配、图标设计、交互设计等方面详细介绍VB应用程序界面设计的要点。
首先，功能布局是VB应用程序界面设计的基础。
一个好的界面设计应该合理地组织和布置各个功能模块，使得用户能够快速、方便地找到需要的功能。
在进行功能布局时，应该考虑到各个功能的重要性和使用频率，将常用功能放置在突出醒目的位置，以方便用户的操作。
同时，应尽量避免过多的功能模块和按钮，以免给用户造成使用困扰。
其次，色彩搭配是VB应用程序界面设计的关键。
色彩对于界面的美观度和视觉体验非常重要。
在选择色彩搭配时，应选择温和、和谐的颜色，避免过于鲜艳刺眼的颜色。
同时，还应注意色彩对比度的选择，以确保用户能够清晰地看到界面上的各个元素。
对于不同的功能模块，也可以使用不同的颜色来区分，以便用户在界面上迅速辨识。
再次，图标设计是VB应用程序界面设计的亮点。
合理使用图标可以提高用户的使用效率和工作体验。
图标设计应遵循简约、直观、易懂的原则，尽量避免繁琐和复杂的图案。
同时，为了方便用户直观地了解图标的含义，应使用常见的、易识别的图标，如文件夹、打印、保存等。
图标的颜色也应与界面整体色彩搭配一致，以保持统一的美观度。
最后，交互设计是VB应用程序界面设计的核心。
好的交互设计可以提高用户的满意度和工作效率。
在进行交互设计时，应注重用户的使用习惯和习惯。
例如，将常用的功能按钮放置在易于点击的位置，设置适当的快捷键，使用直观的提示信息等。
同时，还应注意界面的反应速度，尽量避免耗时操作和界面卡顿，以增加用户的使用流畅度。
总之，VB应用程序界面设计是一个综合考量各个因素的过程，需要综合考虑功能布局、色彩搭配、图标设计、交互设计等多个因素，以实现良好的用户体验和工作效率。
VB常用控件与界面设计教程
返回
徐州医学院VB教程
常用窗体方法
Hide：隐藏方法 Show：显示方法； Move：移动方法 Print：打印方法；
Cls：清除方法
公共教育学院 计算机教研室
徐州医学院VB教程
常用窗体事件
Click：单击事件； DblClick：双击事件； Load：装载事件.当使用 Load 语句启动应用程序， 或引用未装载的窗体属性或控件时，此事件发生。 Resize：在窗体被改变大小时，会触发本事件； Activate ：激活事件，当窗体变为当前窗口时，引发 本事件； Deactivate：失去激活事件
公共教育学院 计算机教研室
徐州医学院VB教程
3.1.2 定制/设置窗体属性 1、在设计状态下通过属性窗口进行设定 2、在程序代码中进行设置
[Object.]Property = Expression
例如：Form1.caption=“考试系统” 特别注意：某些属性只能在代码中进行设置或改变
公共教育学院 计算机教研室
Enabled属性决定控件是否允许操作： True：允许用户进行操作，并对操作作出 响应 False：禁止用户进行操作，呈灰色。
公共教育学院 计算机教研室
徐州医学院VB教程
Visible属性 Visible属性决定控件是否可见：
True：程序运行时控件可见 False：程序运行时控件隐藏，用户看不到，但控 件本身存在
外观
外观 行为
返回或设置对象中文本和 图形的前景色
返回或设置对象的边框样 式 决定对象是否活动 2 True
公共教育学院 计算机教研室
徐州医学院VB教程
3.1.1 窗体的属性、方法与事件
VB用户界面设计
说明：窗体的坐标
X轴 屏幕原点 窗体原点 框架Top 框架Width 框架原点 窗体Height 框架Height 按钮Height 窗体Left 按钮Left 框架Left 按钮Top
窗体Top
窗体Width
按钮Width
Y轴
3.1.2 窗体的事件
窗体作为对象，能够对事件作出响应。
窗体事件过程的一般格式为：
文件列表框
实例：图片浏览器
自定义一个打开图片的对话框，并使该对话框具 有预览图片的功能。
实例：图片浏览器
程序运行界面
用来判断用户在驱动器列表框中选择驱动器名。
例如：Dir1.Path = Drive1.Drive
Dir1.Path = “c:\windows”
ListIndex=-4
常用事件是Change事件，当Drive属性改变时发生。
ListIndex=3 ListIndex=1 ListIndex= 1 ListIndex=4 ListIndex=2 ListIndex= 0
6.5.3文件列表框（FileListBox
文件列表框的作用是显示当前目录的文件名。文件列表框的 常用属性有：Path，Pattern，FileName
Path属性：被显示的目录；
Pattern属性：限定的文件类型；
FileName属性： 值是用户在列表框中选定的文件名。
文件列表框中的常用事件是： Click 和 DbClick。
第3章 用户界面设计
本章要求：
掌握窗体对象的常用属性、事件和方法
掌握窗体的添加、设置和启动方法 掌握基本控件（文本框、标签等）的常用属性、 事件和方法 掌握通用对话框控件的添加，以及打开、保存、 字体、颜色打印等对话框的使用
VB应用程序界面设计
【例7.9】设计一个滚动字幕，同时显示当前系统的时间
22
第7章
应用程序界面设计
7.2 通用对话框 通用对话框控件提供了一组标准的系统对话框，可以 用来进行打开或保存文件、选择字体、选择颜色、设置打 印选项等操作。 通用对话框仅用于应用程序与用户进行信息交互，是 输入输出的界面。不能真正实现文件打开、文件存储、设
第7章
应用程序界面设计
教学目标
掌握常用控件的使用
了解通用对话框的使用
重点
了解菜单设计
掌握键盘和鼠标的常用事件
4
第7章
应用程序界面设计
第7章 应用程序界面设计 应用程序界面又称为用户界面，用户直接通过界面与 应用程序进行交互。 7.1 常用控件 7.1.1 控件概述 1. 控件的分类
标准控件：又称内部控件，显示于工具箱中。
格式：列表框对象. RemoveItem 索引值 功能：从列表框删除指定索引值的项目。
1. 列表框
例如，List1.RemoveItem 0 删除列表中第一个项目
（3）Clear方法 格式：列表框对象.Clear
功能：清除列表框中所有项目的内容。
● 列表框的事件
列表框能够响应Click、DblClick等事件。
了解菜单设计
掌握键盘和鼠标的常用事件
14
第7章
应用程序界面设计
7.1.3 单选按钮和复选框
1. 单选按钮(OptionButton )
单选按钮以组的形式出现，允许选择一项。
重要属性 ：Caption属性 Value属性 设置按钮上显示的文本
表示单选按钮的状态： False（未选定）
True（被选定） Style属性
② 索引值：决定新增选项在列表框的位置，原来位置
VB课件-第13讲 二维数组
5
【例5.12】 二维矩阵求和
6
【练习】输入如下矩阵，
然后求最小值及其行列位置
123 456 789
7
【例5.12】 二维数组的输出
8
*** 数组的排序方法 • Array.Sort(数组名)：升序排序 Dim score() As Integer = {80，70，90} Array.Sort(score) 排序后，原数组下标对应的数据变为升序 • Array.Reverse(数组名)： 数组元素倒转，便可由递增→递减
9
内容小结
1. 二维数组的声明 2. 矩阵的输出，上、下三角操作
思考：人可以开小差，程序也可以开8 9 10 11 12
3
二维数组
声明： Dim 数组名(下标1,下标2) [As 类型名] 如：Dim A(1,2) As Long, B％(3,20)
a(0,0)a(0,1) a(0,2) a(1,0)a(1,1) a(1,2)
初始化：Dim 数组名( ，) [As 类型] = {{…},{…}} 例：Dim a( ，) = {{1,2},{3,4},{5,6}}
4
程序片段。。。
赋值
For i = 1 To 3 For j = 1 To 4 a(i,j) = N N=N+1 Next j
Next i
输出
For i = 1 To 3
For j = 1 To 4
Label1.Text &= a(i, j) &““ Next j Label1.Text &= vbCrLf
编程小贴士
1. 设置属性确定事件； 2. 构思算法草拟代码； 3. 多写注释调整思路； 4. 全面检查就这一招！
vb界面设计精品PPT课件
4.2.2 利用菜单编辑器创建菜单栏
2. 创建分隔线
当一个菜单标题上放置的菜单项较多时，为了直观，可以使 用水平线将菜单项分组。建立菜单分隔线的步骤与建立菜单 项的步骤相似，惟一的区别就是在菜单编辑器的【标题】框 中输入一个连字符“-”。
3. 创建热键与快捷键
4.3工具栏设计
Toolbar和ImageList控件都是ActiveX控件，使用这些控 件前必须先将其添加到工具箱中。添加的方法有两种：
该“记事本”程序能够能编辑文本文档并保存，同时能打 开、显示、编辑一个已经存在的文本文件。程序运行界面 如图4-1所示：
4.1.2 ”记事本”设计思路
“记事本”程序的设计思路是： 1. 在窗体上添加一个RichTextBox控件作为文本
编辑区，文本编辑、显示均在其中进行；
2. 利用VB菜单编辑器设计一个菜单栏，来对所 编辑的文本进行保存或其他操作，也可将一个已 经存在的文本文件打开显示在文本编辑区中，并 进行进一步编辑；
第4章 VB界面设计
4.1 子系统”记事本”程序设计 4.2菜单设计 4.3工具栏设计 4.4 通用对话框 4.5 文件管理 4.6 RichTextBox控件 4.7 ”记事本” 的具体实现
结束
4.1.1 ”记事本”介绍
本章将利用 RichTextBox控件结合VB文件操作技术，设计 一个“记事本”程序。
利用菜单编辑器创建菜单栏实际上就是根据设计的菜单 栏结构逐个创建每一菜单项。
1. 创建菜单项 （1）在标题栏输入该菜单项的文本。 （2）在名称栏输入程序中要引用该菜单项的名称（类似
于控件的Name）。 （3）单击【下一个】按钮或【插入】按钮，建立下一个
VB用户界面设计
[例3-19] 利用画线控件和形状控件设计一指针式秒表如 图3-21所示。程序启动后，点击窗体上的“开始”按钮， 表的指针开始转动，每秒动一下，一分钟转一圈。指针 转动时，命令按钮的标题变为“暂停”，如果此时再点 击命令按钮，指针停止转动。命令按钮的标题又变为 “继续”，再点击，指针又开始转动。
3.10.2 MDI窗体的创建
1. 建立有一个子窗体的MDI窗体。（有六个操 作步骤 ）
2. 建立有多个子窗体的MDI窗体。（有四个操 作步骤 ）
3. 子窗体的排列 完成子窗体的排列操作，要使用
MDIForml的Arrange方法，其语法格式为： MDIForml 名称 .Arrange 排列方式
3.4.3 复选框(CheckBox)
[例3-13]设计一程序，通过复选框来控制用户 界面上的文本框中文字的字体、字型、颜色和 大小。
3.4.4 框架（Frame）
[例3-14]重新设计例3-13的用户界面，用框架 控件将9个单选按钮分为3组，一组用来改变文 本框中文字的字体；一组用来改变字的大小； 一组用来改变字的颜色。
[对象.] Pset [Step] (x, y), [color]
[例3-20] 利用Pset方法或Line方法均可以画出 任意曲线。下面用Pset方法在图片框中绘制 阿基米德螺旋线，用Line方法画一正弦曲线。
3.8 公用对话框
“公共对话框”(Common Dialog)控件 为用户提供了一组标准的系统对话框，可以 使用它进行打开或保存文件、设置打印选项、 选择各种颜色以及选择字体等的操作。另外 还可以通过调用Windows帮助引擎来显示应 用程序的帮助。
《vb程序设计》ppt课件
2024/1/24
03
端口和套接字
网络通信通过端口和套接字实现，端口是应用程序与网络通信的接口，
套接字则是端口之间的连接。
31
Winsock控件在VB中的应用
Winsock控件介绍
Winsock控件是VB中用于网络通信的控件，提供了一套简单易用的API接口，可以实现 TCP和UDP协议的通信。
建立TCP连接
38
案例一：计算器程序设计
需求分析
确定计算器的功能需求，如加减 乘除、求平方、求倒数等。
界面设计
使用VB的窗体设计器设计计算 器的界面，包括按钮、文本框等
控件。
2024/1/24
代码实现
编写事件处理程序，实现计算器 的各项功能。
测试与调试
对计算器程序进行测试，确保各 项功能正常运行，无错误。
39
案例二：学生信息管理系统开发
29
06
网络编程技术
2024/1/24
30
网络通信原理简介
01
客户端/服务器模型
网络通信通常采用客户端/服务器模型，客户端发送请求，服务器响应
请求并返回数据。
02
TCP/IP协议
TCP/IP协议是网络通信的基础，包括传输控制协议（TCP）和网络协议
（IP），提供可靠的、面向连接的和无连接的数据传输服务。
03
VB界面设计
2024/1/24
18
窗体设计
2024/1/24
窗体类型与属性
介绍VB中不同类型的窗体，如标准窗体、MDI窗体等，以及窗体的常用属性，如名称、标题、大 小、位置等。
窗体事件
阐述窗体的事件，如加载事件、卸载事件、大小改变事件等，并解释如何编写事件处理程序。
VB程序界面设计
例如，当A窗体变 成活动窗体时，A窗 体 发 生 Activate 事 件 ；
当另一个窗体被激活
时，A窗体发生 Deactivate事件。
➢Initialize：初始化(在Load事件后发生)
➢KeyPress：按键
➢ MouseDown/MouseUp/MouseOver：鼠标按下/松开/移动
返回目录
5.1 应用基础－窗体的属性、事件与方法
3. 窗体的常用方法
方法：对象要完成的操作(特殊子程序) 调用格式：[对象名称].<方法名称> ➢ Print：打印文本 ➢ Show：显示窗体 ➢ Hide：隐藏窗体(不是卸载) ➢ Cls：清除运行时窗体中生成的图形和文本
返回目录
5.2 常用标准控件－1
若MultiLine属性为True，则PasswordChar属性无效
5.2 常用标准控件－1
返回目录
3. 文本框 -常用事件
➢ Change(默认事件)：改变文本框内容时发生 ➢ KeyPress：在文本框中按键盘上的键时发生 ➢ Lostfocus：文本框失去焦点时发生 ➢ Gotfocus：文本框获得焦点时发生
➢ 删除：选中后按Delete键 ➢ 移动：
❖ 拖动选中的控件 ❖ 修改Top和Left的属性值
返回目录
5.1 应用基础－控件的基本操作
5. 复制控件
选中控件→“复制”→“粘贴”
根据需要选择
➢ 控件数组由一组相同类型的控件组成，名称(Name 属性)、属性和事件过程都相同。
➢ 通过Index 属性可区分控件数组中的元素。 ➢ 如果要从控件数组中撤消一个控件，需改变该控
➢ Caption属性：设置在标签控件中显示的文本
VB教程用户界面设计教学课件讲议
其中： ⑴ 关键字“PopupMenu”可以前置窗体名称，但不可前置其他控件名
称。 ⑵ <菜单名>是指通过菜单编辑器设计的、至少有一个子菜单项的菜
单名称（Name）。 ⑶ Flags参数为常数，用来定义显示位置与行为,其取值见表10.2
弹出式式菜单设计举例
例10.2】 为【例10.1】添加一个标签的弹出式菜单，该菜单包含 有“10”、“12”和“14”3个菜单项，如图10.5所示。单击相 应的菜单项后可以改变标签中文字的字体大小。
Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then '按下鼠标右键 Form1.PopupMenu fsize, 4 Or 2 End If End sub Private Sub size_Click(Index As Integer) Select Case Index Case 0 Label1.fontsize = 10 Case 1 Label1.fontsize = 12 Case 2 Label1.fontsize = 14 End Select End sub
在设计时，可以通过属性窗口设置通用对话框的属性设置控件属性，也可以 使用通用对话框的属性页设置相关属性。
DialogTiltle
InitDir Filter
DefaultExt FilterIndex
2．CommonDialog控件的方法 在程序中要使用CommonDialog控件的标准对话框，除了使用CommonDialog控 件的Action属性设置对话框的类型外，还可以使用CommonDialog控件的方法。这些 方法如表10.4所示。 例如：CommonDialog1.Action=1或者CommonDialog1.ShowOpen
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
Form2窗体事件过程代码： Байду номын сангаасrivate Sub Form_Activate()
Print Tab(6); "丰乐庭游春" Print Tab(6); "(宋)欧阳修" Print Print Tab(4); "红树青山日欲斜，" Print Tab(4); "长郊草色绿无崖。" Print Tab(4); "游人不管春将老，" Print Tab(4); "来往庭前踏落花。" End Sub Private Sub cmdreturn_Click() Cls Form1.Show Form2.Hide End Sub
若“模式”为1，表示窗体是“模式型”（Modal）的，用户无 法将鼠标移到其他窗口，也就是说，只有在关闭该窗体后 才能对其他窗口进行操作。若“模式”为1，表示窗体是“非 模式型”（Modeless）的，可以对其他窗口进行操作。“模 式”的缺省值为0。“窗体名称” 缺省时为当前窗口。
第13讲VB界面设计
出现的“添加窗体”对话框中选择“新建”选项卡，选中“窗体” 选项，单击“打开”按钮。设置窗体的Caption属性值为“丰 乐庭游春”，Fontsize属性值为18，Fontname属性值为“楷 体”。在窗体右下角添加一个“命令按钮”， 其Name属性值 为cmdreturn，窗体2界面如图 (b)。 ③创建窗体3
管理器”窗体中选择Form1窗体，单击“查看代码” 按钮，编写如下事件过程代码。 Private Sub cmd1_Click()
Form2.Show Form1.Hide End Sub Private Sub cmd2_Click() Form3.Show Form1.Hide End Sub Private Sub cmd3_Click() End End Sub
(4) Hide方法 该方法用来将窗体暂时隐藏起来，并没有从内 存中删除。其形式为：
[窗体名称]. Hide 其中：“窗体名称” 缺省时为当前窗口。 举例说明
【例6－8】设计一个有三个窗体组成的“古诗词欣 赏”应用程序。窗体1（form1窗体）为主界面，窗 体2（form2窗体）中显示宋词“丰乐庭游春”，窗体 3（form3窗体）中显示唐诗“山行”。
选择“工程”菜单的“添加窗体”命令，再添加一个窗体。 设置窗体的Caption属性值为“山行”，Fontsize属性值为18， Fontname属性值为“隶书”。在窗体右下角添加一个“命令按 钮”， 其Name属性值为cmdreturn，窗体3界面如图 (c)。
第13讲VB界面设计
④编写各窗体的事件过程代码 Form1窗体事件过程代码：在“工程资源
第13讲VB界面设计
设计步骤： ①创建窗体1。 新建一个工程。设置窗体的Caption属性值为“古诗 词欣赏”，按如图 (a)所示在窗体中添加1个“标签” 和三个“命令按钮”，其按钮的Name属性值为cmd1、 cmd2、cmd3。
第13讲VB界面设计
②创建窗体2 选择“工程”菜单的“添加窗体”命令，在随后
2.设置启动对象 VB程序运行时，首先执行的对象称为启
动对象。缺省情况下，第一个创建的窗体被指定 为启动对象，即启动窗体。如要指定其他窗体为 启动窗体，则要使用工程菜单中的属性命令。
第13讲VB界面设计
具体方法为： ①选择“工程”菜单的“属性”命令，出现如图所示的 工程属性对话框。 ②单击“通用”按钮，选中“通用”选项卡。 ③单击“启动对象”列表框的向下按钮，选择作为启 动窗体的窗体名称。 ④单击“确定”按钮，启动窗口设置完毕。
6.3 多重窗体
在实际的应用中，一个应用程序往往有多 个窗体构成。因此，VB提供了多重窗体的设计。 在多重窗体的应用程序中，每个窗体都可以有自己 的界面和程序代码，用以完成不同的功能。 一、 多重窗体界面设计 1. 窗体的添加 (1)操作方法：当你在一个工程中要添加一个窗体 时，可以选择“工程”菜单的“添加窗体”命令或单击 工具栏上的“添加窗体”按钮，创建一个新的窗体或 把一个属于其他工程的窗体添加到当前工程中。
第13讲VB界面设计
(2)注意事项：当添加一个已有的窗体到当前工程 时，有两个问题要注意： ① 该工程内的每个窗体的Name属性不能相同，否 则不能将现存的窗体添加进来； ② 在该工程内添加进来的现存窗体实际上在多个 工程中共享，因此，对窗体所做的改变，会影响到 共享该窗体的所有工程。
第13讲VB界面设计
Load 窗体名称
第13讲VB界面设计
(2) Unload语句 该语句与Load语句的功能相反，它从内存中
删除指定的窗体。Unload语句形式： Unload 窗体名称 或 Unload Me
(3) Show方法 该方法用来显示一个窗体，他兼有加载和显示窗体两
种功能。其形式如下： [窗体名称].Show [模式] 其中：“模式”用来确定窗体的状态，有0和1两个值 。
Visual Basic
程序设计教程
第十三讲
VB界面设计（2）
第13讲VB界面设计
本章教学内容
6.1 通用对话框 6.2 菜单 6.3 多重窗体
第13讲VB界面设计
本讲教学内容
介绍多窗体的添加和设置启动对象等， 还将介绍带有通用对话框、菜单和多 窗体的VB应用程序的设计方法。
第13讲VB界面设计
第13讲VB界面设计
Form3窗体事件过程代码： Private Sub Form_Activate()
Print Tab(6); "山行" Print Tab(6); "(唐)杜牧" Print Print Tab(4); "远上寒山石径斜，" Print Tab(4); "白云生处有人家。" Print Tab(4); "停车坐爱枫林晚，" Print Tab(4); "霜叶红于二月花。" End Sub Private Sub cmdreturn_Click() Cls Form1.Show Form3.Hide End Sub
第13讲VB界面设计
3. 有关窗体的语句、方法
当一个窗体要显示在屏幕之前，该窗体必须先 “建立”，接着被装入内存(Load)，最后显示(Show) 在屏幕上。同样，当窗体暂时不需要时，可以从屏 幕上隐藏(Hide)，直至从内存中删除(UnLoad)。
下面是有关窗体的语句和方法
(1) Load语句
该语句把一个窗体装入内存。执行Load语句后， 可以引用窗体中的控件及各种属性，但此时窗体没 有显示出来。Load语句形式：