第2章VB可视化界面设计
第2章VB界面设计
第2章 VB界面设计
第2章 VB常用控件的使用 2.1 对象的公共属性 2.2 窗体 2.3 常用控件 2.4 菜单
Visual Basic程序设计
2.1 对象的公共属性 窗体是设计VB应用程序界面的窗口，是各种控件
的“容器”。 窗体和控件有些相同的属性，用法类似。 窗体的方法 窗体的事件
Visual Basic程序设计
2.2.3 文本框常用属性 （6）MultiLine：设置文本框是否可以显示多行文
本 （7）ScrollBars：设置文本框是否带滚动条，要
使本属性有效，需将MultiLine属性设为True
Visual Basic程序设计
2.2.3 文本框常用属性 （8）SelLength属性：设置或返回文本框中选中
窗体常用的事件有： Load：加载事件，当窗体被加载到内存时触发。 通常在其事件过程中对控件的属性、窗体变量进 行动态初始化 Click：单击事件
例2-4
Visual Basic程序设计
第2章 VB常用控件的使用
2.2.1 标签 2.2.2 命令按钮 2.2.3 文本框 2.2.4 单选钮、复选框、框架 2.2.5 图片框与图像框 2.2.6 滚动条
Visual Basic程序设计
焦点
1. Tab顺序：可以通过按下键盘上的【Tab】键，逐 个访问窗体上的对象 常使用【Tab】键在文本框之间切换焦点
2. TabIndex顺序：可以通过修改文本框的TabIndex 顺序改变文本框的Tab顺序
3. TabStop属性：可以获得焦点的控件都有 TabStop属性，用于控制焦点的移动。 属性默认值为True，若设置为False，则在用 【Tab】键移动焦点时将被跳过
VB程序设计教程(高等教育出版社)第1-2章
本章目录
1. 属性 属性: 对象的一组特征， 标题 宽度、 标题、 属性 对象的一组特征，如:标题、宽度、字体等 属性名: 属性名 如Caption、Width、Font、Color 、 、 、 对象属性的设置方法： 对象属性的设置方法： 设置方法 可通过两种方式设置：属性框和在程序代码中。 通过两种方式设置：属性框和在程序代码中 通过两种方式设置 设计阶段 利用属性窗口直接设置属性值 对象名.属性名= 程序运行时 通过语句 对象名.属性名=属性值 例如： 确定" 例如：Command1.Caption = "确定 确定
本章目录
窗体(form) (form)窗口 2. 窗体(form)窗口 设计VB程序的界面。 代码(code) (code)窗口 3. 代码(code)窗口 编辑窗体、标准模块中的代码。 属性(properties) (properties)窗口 4. 属性(properties)窗口 所有窗体或控件的属性设置。 工程资源管理器(project explorer)窗口 5. 工程资源管理器(project explorer)窗口 保存一个应用程序所有的文件。 工具箱(toolbox) (toolbox)窗口 6. 工具箱(toolbox)窗口 显示各种控件的制作工具，供用户在窗体上设计。
11
1.6 使用帮助系统
所有帮助文件在MSDN Library中，两张 盘。可通过运行 所有帮助文件在 中 两张CD盘 第一张盘上的setup.exe程序进行安装。最新的联机版 程序进行安装。 第一张盘上的 程序进行安装 最新的联机版MSDN是免 是免 上下载。 费的，可以从/china/msdn/上下载。 费的，可以从 上下载
Visual Basic 程序设计教程
第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程序设计习题及答案第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程序设计基础全集
1.1.2 Visual Basic的特点
4．提供了易学易用的应用程序集成开发环境 在Visual Basic的集成开发环境中，用户可设计界面、编写代 码、调试程序，直至将应用程序编译成可执行文件在 Windows上 运行，使用户在友好的开发环境中工作。
5．支持多种数据库系统的访问
利用 Visual Basic 的数据控件，可访问 Microsoft Access、 Dbase、Microsoft FoxPro、Paradox 等 ， 也 可 以 访 问 Microsoft Excel、Lotusl 1-2-3等多种电子表格。
录
Visual Basic 6.0程序设计概述 程序设计基础 结构化程序设计与数组 函数与过程 常用控件 图形控件和图形方法 对话框和菜单程序设计 文 件
第9章 数据库与数据访问技术
第1章 Visual Basic 6.0程序设 计概述
1.1 1.2 1.3 1.4 1.5 1.6 1.7
主
编 ：陈庆章
前 言
Visual Basic是目前进行Windows应用程序设计的最 佳工具之一，也是最佳的程序设计入门语言，这一看法 已经得到普遍认可。 非计算机专业计算机基础教学的 3 个不同层次，分 别解决的是“操作技能”、“思维训练”、“综合应用 能力”问题。学习一门程序设计语言，主要目的是要提 高读者分析归纳、解决问题的能力，在思维训练方面受 益，并使得读者通过更系统、深入的学习后开发实用程 序成为可能。 因此，本书在内容上精选了Visual Basic 6.0中最基 础、最常用并实用的部分；在编排和风格上力图体现循 序渐进、深入浅出的特点；以样本程序示例教学，阶段 性构筑读者的成就感，使得艰苦的程序设计工作升华为 一种艺术创作，提供了一条通往程序设计高手的捷径。
第二章 VB可视化编程基础(第三版)
VB是面向对象的程序设计语言，程序的 核心由对象以及响应各种事件的代码组成。 在VB中不仅提供了大量的控件对象，而且 还提供了创建自定义对象的方法和工具， 为开发应用程序带来了方便。
2.1
2.1.1 对象和类
对象
对象的概念
我们身边的一切事物都是对象，如一本书、一 张桌子、一辆车。除去这些可以触及的事物是对象以 外，还有一些无法整体触及的抽象事件，例如：一场 球赛、一次演出也都是对象。 另外，一个对象既可以非常简单，又可以非常 复杂，而复杂的对象往往可以由若干个简单对象组合 而成的。
事件驱动应用程序的典型事件序列：
1.启动应用程序，装载和显示窗体；
2.窗体（或窗体上的控件）接收事件。事件可由 用户引发（如键盘操作），也可由系统引发（如定时 器事件），也可由代码间接引发（如当代码装载窗体 时的Load事件）。
Hale Waihona Puke 3.如果在相应的事件过程中存在代码，就执行代
码。 4.应用程序等待下一次事件。
所有的对象，除去它们都是现实世界中所存在 的事物之外，它们都还具有各自的特征，如一本书有 书号、作者、出版者、价格等属性；一辆车有型号、 颜色、功率等特征，又有启动、加速和停止等行为。 “对象”：是具有某些特征的具体事物的抽象。每 个对象都具有描述其特征的属性及附属于它的行为。 每个对象有自己的特征(属性)、行为(方法) 和发生在该对象上的活动(事件)。 例如人具有身高、体重等特征，具有行走、 说话等行为，外界作用在人对象上的各种活动，如下雨 等。
选中要删除的对象，按Del键即可。
对象的命名
每个对象都有自己的名字，有了它才能在程序代 码中引用该对象。 用户可在属性窗口通过设置Name（名称）来给对 象重新命名，名字必须以字母或汉字开头，由字母、 汉字、数字串及下划线组成，长度不超过255个字符。
第2章 对象及建立简单的VB应用程序(1)
2.窗体的事件 2.窗体的事件
简单划分 启动 卸载 鼠标操作 活动状态 焦点 其他 事 件 名 Initialize Load QueryUnload Unload Click DblClick Activate Deactivate GotFocus LostFocus Resize 功能说明 初始化事件 载入事件 卸载前触发 卸载时触发 单击事件 双击事件 激活事件 失去激活事件 获得焦点事件 失去焦点事件 改变窗体大小事件
MinButton 属性
为True时，窗体右上角有最小化按钮 为False时，窗体右上角无最小化按钮
结束
（3）BorderStyle 属性 ）
决定窗体边框式样及窗体是否能调整大小
注意： 只读属性，即只能在设计阶段设 注意：该属性是只读属性 只读属性
置，不能在运行阶段设置。
（4）BackColor属性和 属性和ForeColor 属性 ） 属性和
（13）Icon属性 ） 属性
设置窗体的图标 Icon的使用方法同Picture属性 通常把该属性的值设置为.ico格式的图标文件
结束
（14） Controlbox 属性 ）
设置窗体的控制菜单的显示 属性值为True时,窗体左上角有控制菜单和最大 化、最小化、关闭按钮； 属性值为False时，则只显示标题。 控制菜单以图标方式显示
Caption Label1 BorderStyle Alignment Font
空 1 2 楷体、粗体、 楷体、粗体、二号
结束
3、代码编写 Private Sub Form_Load() Label1.Caption = "欢迎你来学习VB！" End Sub Private Sub Command1_Click() Label1.Caption = "祝你成功！" End Sub
vb6.0高清教程系列 第02章 VB简单的程序设计(共九章)
5. Enabled属性（逻辑值） 决定控件是否可操作。 True ：允许用户进行操作，并对操作出响应（缺 省值） 。 False：呈暗淡色，禁止用户进行操作。 6. Visible属性（逻辑值） 决定控件是否可见 True ：运行时控件可见（缺省值） 。 False：运行时控件隐藏，用户看不到，但控件本 身是存在的。
例2.4 使用Move方法移动一个窗体。双击窗体，窗体移动 并定位在屏幕的左上角，同时窗体的长宽也缩小一倍。 为了实现这一功能，可以在窗体Forml的“代码”窗口中输 入下列代码：
四、方 法（Method）
在对象上可操作的过程，是VB系统提供的一种特殊的 过程和函数——方法。方法是面向对象的，所以对象的方法 调用一般要指明对象。 对象方法 调用形式：
[ 对象.]方法[ 参数列表 ]
如省略对象，表示在当对象，一般指窗体。 例如： Form1.print " VB程序设计"
五、VB应用程序的工作方式
工具箱的各种控件并不是对象，而是代表了各个不同的 类。通过类的实例化，可以得到真正的对象。当在窗体上画 一个控件时，就将类转换为对象，即创建了一个控件对象， 也简称为控件。
VB中的类与对象
3、对 象的建立和命名
（1）对象的建立 方法一： 单击工具箱控件对象 左键拖拉到所需要的大小后释放。 方法二： 双击工具箱控件对象，则立即在窗体出现一 个默认大小的对象框。 （2）编辑对象 先选中对象（单击对象）， 放大、缩小 删除对象 复制对象 在窗体上按住
7．BackColor属性和ForeColor属性 BackColor属性用于返回或设置对象的背景颜色， ForeColor属性用于返回或设置在对象里显示图片和 文本的前景颜色。它们是十六进制长整型数据 在程序代码中可用Windows 运行环境的红-绿-蓝 (RGB) 颜色方案，使用调色板或在代码中使用 RGB 或 QBColor 函数指定标准RGB颜色。 例如，将窗体Form1的背景色设置为红色，则可使用下 面三种情况： Form1.BackColor = RGB(255, 0, 0) Form1.BackColor = &HFF& Form1.BackColor = vbRed
VB第2&3章
FontSize字体大小
FontBold粗体
FontItalic斜体
FontStrikethru加删除线 FontUnderLine加下划线
例题
在窗体上建立一个标签，名称为 Label1，运行时单 Private Sub Form_Click() 击窗体界面如图所示 Label1.Caption = "欢迎您使用VB!" Label1.FontName = "隶书" Label1.FontSize = 24 Label1.FontBold = True Label1.FontItalic = True Label1.FontStrikethru = True Label1.FontUnderline = True End Sub
例2-1
Private Sub Form_Click() Print "紧凑格式"
Print "圆周率为"; 3.14
Print Print "标准格式" Print "Visual", "Basic" Picture1.Print "紧凑格式"
Picture1.Print "Visual"; "Basic"
文本控件
文本控件主要用于显示文本信息 标准控件
标签 文本框
标签(Label)
程序运行时不具有交互性，不能在运行时直接编辑
AutoSize(大小自适应属性)
缺省命名为Form1
Caption：窗体标题
缺省为Form1
Picture：用于设置窗体中显示的图片
Form1.Picture = LoadPicture("D:\Graphics\BEANY.bmp") Form2.Picture = Form1.Picture
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
5
说明：
界面设计目的就是使计算机能与用户 进行如下交流：①显示相关信息和程 序运行的结果；②接收用户输入的数 据和命令。在VB中，窗体是最基本 的对象，一个应用程序都包含有窗体 对象。控件也是VB的对象，它们和 窗体是应用程序的“积木块”，共同 构成用户界面。
6
本例中用到几个常用界面元素及其作用：
4
（2）编写事件过程代码如下：
Private Sub Command1_Click() Dim f$, c$ '使用变量 f = Text1.Text c = LCase(f) Text2.Text = c End Sub Private Sub Command2_Click() Text2.Text = UCase(Text1.Text) '不使用变量，直接使用文本框 End Sub Private Sub Command3_Click() End End Sub
（1）窗体Form：窗体是任何一个应用程序必不可少 的对象，因为窗体是其他对象的载体，各类控件对 象必须建立在窗体上；窗体就如一块“画布”，是 所有控件的容器，用户可以根据自己的需要利用工 具箱上的控件在“画布”上“画”界面。 （2）标签Label的作用是显示信息。在例2.1中分别 显示“原始字符串：”和“转换后的字符串：”的 提示信息，让用户对界面的操作更加明了。 （3）文本框Text用于显示和接收数据。如例2.1中 左边的文本框Text1用于接收用户输入要转化的字 符串，右边的文本框Text2显示转化后的字符串。 （4）命令按钮Command用于驱动相关命令（事件 过程代码）的执行。例如，在例2.1中单击“退出” 按钮时驱动事件过程代码End的执行，结束程序的 运行。
VB是采用事件驱动编程机制的语言。 传统编程使用的是面向过程、按顺序 进行的机制，这种编程方式的缺点是 写程序的人总是要关心什么时候发生 什么事情。而在事件驱动编程中，程 序员只要编写响应用户动作的程序， 如选择命令、移动鼠标等，而不必考 虑按精确次序执行的每个步骤。
11
1. 事件
对于对象而言，事件（Event）就是VB预先设置 好的能够被对象识别的动作。不同的对象能够识 别的事件不一样，同一事件，作用于不同的对象， 就会引发不同的响应，产生不同的结果。例如， 在学校，教学楼的铃声是一个事件，教师听到铃 声就要开始讲课，向学生传授知识；学生听到铃 声，就要准备上课，接受知识；若行政人员不受 影响，就可不予响应。 在VB中，系统已为每个对象预先定义好了一系列 的事件。例如Click（单击）、DbClick（双 击）、Load（装入）、MouseMove（移动鼠 标）、Change（改变）等。
9
对象属性的设置
除了用属性窗口设置对象属性外，也可以 在程序中用程序语句设置，一般格式如下： 对象名.属性名=属性值 例如，给一个对象名为Command1的命 令按钮的Caption属性赋值为“确定”， 其在程序代码中的书写形式为： Command1. Caption="确定"
10
2.2.3 事件、事件过程和事件驱动
12
2. 事件过程
对象响应某个事件后所执行的操作通过一 段程序代码来实现，这样的一段程序代码 叫做事件过程（Event Procudure）。 一个对象可以识别一个或多个事件，因此 可以使用一个或多个事件过程对用户或系 统的事件做出响应。虽然一个对象可以拥 有许多事件过程，但并不需要为每一个事 件都编写程序，仅当需要时才在相应的事 件过程中填写代码，在程序中使用多少事 件过程，要由设计者根据程序的具体要求 来确定 。
7
2.2 面向对象基本的概念
• 2.2.1 对象 对象是客观世界中的事物或人们头脑中的各种概念 在计算机程序中的抽象表示，或者说，是现实世界 中个体的数据抽象模型，是面向对象程序设计的基 本元素。 一本书、一家图书馆、一辆汽车等都是一个对象； 一份报表、一个账单也是一个对象。可见，世界上 的各个事物都是由各种“对象”组成的，任何事物 都是对象，是某一个对象类的一个实例。每个对象 都有自己的特征、行为和发生在该对象上的一切活 动。如以某个“学生”作为对象，该对象具有姓名、 学号、性别、身高、体重、年龄等特征。具有学习、 行走、睡觉等行为，以及外界作用在“学生”对象 上的各种活动，如上课铃响、放学等。
8
2.2.2 属性
属性是一个对象的特性，不同的对象有不同的 属性。VB程序中的对象都有许多属性，它们 是用来描述和反映对象特征的参数。例如，控 件名称（Name）、标题（Caption）、文本 （Text）、颜色（Color）、字体（Font）、 是否可见（Visible）等属性决定了对象展现 给用户的界面具有什么样的外观及功能。 同类对象的属性是一样的，也就是具有相同的 属性 。如人，具有相同的属性，区别不同的 人，也就是不同的对象，就在于属性值的不同。
【例2.1】编一个大小写转换的程序，单击“转换为 小写”按钮把左边文本框输入的字符串中的字母全 部转换为小写，单击“转换为大写”按钮把左边文 本框输入的字符串中的字母全部转换为大写，转换 结果在右边文本框中显示。运行界面如下图所示。
3
设计步骤如下：
（1）界面设计 第一步：改变窗口标题名。实现方法是把窗体 的Caption属性设置为“大小写转换”。 第二步：在窗体上画两个文本框，分别用于接 收用户输入的原始字符串和显示转换后的字 符串。 第三步：在窗体上画两个标签用于显示提示信 息，设置它们的Caption属性分别为“原始 字符串：”和“转换后的字符串：”。 第四步：在窗体上画三个命令按钮，设置它们 的Caption属性分别为“转换为小写”、 “转换为大写”和“退出”。
第2章 VB可视化界面设计
主讲：XXXX TEL：XXXX
воскресенье, 17 марта 2019 г.
Visual Basic 程序设计实例教程
第2章 VB可视化界ቤተ መጻሕፍቲ ባይዱ设计
2.1 导学案例 2.2 面向对象基本的概念 2.3 窗体和基本控件 2.4 综合应用 2.5 扩展与提高
2
2.1 导学案例