计算机VB课程详细讲解

1、VB程序设计,主讲：陈秀敏,第1章 VB程序设计开发环境 1.1 VB的特点和版本 1.1.1 VB的特点 1、可视化编程 传统程序设计是通过编写程序代码设计用户界面，VB提供可视化设计工具，界面不用编写代码设计。 2、面向对象的程序设计 把程序和数据封装起来作为一个对象，并为每个对象赋予应有的属性，使对象成为实在的东西。每个对象是以图形方式显示在界面上，都是可视的。 3、结构化程序设计语言 VB是在basic语言基础上发展起来，具有高级语言的语句结构，VB是解释语言，在输入时解释系统将高级语言翻译成机器指令。,4、事件驱动编程机制 通过事件来执行对象的操作，一个对象可产生多个操作。 5、访问

2、数据库 1.1.2 VB的版本 1991年推出1.0版本，98年推出6.0。分三种版本 (1)学习版。(2)专业版。 (3)企业版。 1.2 VB的启动与退出 1.3主窗口 1.3.1 标题栏和菜单栏 1.3.2 工具栏 1.4 其它窗口 1.4.1 窗体设计器和工程资源管理器,1、窗体设计器窗口 简称form。 2、工程资源管理器 (1)工程文件和工程组文件 工程文件的扩展名为.vbp，每个工程对应一个工程文件，当一个程序有2个以上工程时构成工程组，工程组文件扩展名为.vbg，用文件菜单下的新建工程命令可以建立一个新的工程。 (2)窗体文件 扩展名为.frm，每个窗体对应一个文件，执行工程菜

3、单中添加窗体或移除窗体对窗体进行操作。 (3)标准模块文件 扩展名为.bas，不属于任何一个窗体，通过工程菜单中的添加模块建立。,(4)类模块文件 扩展名为.cls。VB中有预定义的类，用户根据需要可定义自己的类。 (5)资源文件 扩展名为.res，同时存放文本，图片，声音等多种资源，是纯文本文件。 1.4.2属性窗口和工具箱窗口 1、属性窗口 2、工具箱窗口 分内部控件(标准控件)和activex控件。启动VB后，只有内部控件。,第二章对象及其操作,2.1对象 2.1.1 VB的对象 1、什么是对象 对象是系统运行中的实体。 2、对象属性 对象的特性，不同对象有不同的属性，如对象常见的标题(

4、caption)、名称(name)、颜色(color)、字体大小(fontsize)是否可见(visible)等。 对象属性可以设置，格式如下： 对象名.属性名称=新设置属性值。,例：有一对象，名称为FORM1，它有一属性caption，现把它的属性改为VB程序设计。 FORM1.caption=“VB程序设计” 3、对象事件 所谓事件(EVENT)，是由VB预先设置好的、能够被对象识别的动作，如CLICK(单击)，DBLCLICK(双击)、(LOAD)装入等。不同对象能够被 识别的事件不一样。 事件过程的一般格式如下： Private sub 对象名称_事件名称( ) 事件响应程序代码 En

5、d sub 例：在窗体上建立一命令按钮，单击后把窗体的标题改为第一个VB代码。 Private Sub Command1_Click() Form1.Caption = “第一个VB代码 End Sub,4、对象方法 格式：对象名称.方法名称 如：FORM1.print “good morning” 含义：在窗体上打印good morning。 有时如果对象是窗体，此时对象名称可省略。 2.1.2、对象属性设置 一、操作过程： 用鼠标左键单击对象，则属性窗口中显示该对象的属性，如果属性窗口没出现则按右键选属性窗口。 二、属性值的修改 1、直接键入值 2、通过下拉列表 3、利用对话框(有三个)

6、4、也可以在程序中修改,2.2 窗体 2.2.1 窗体的结构与属性 结构： 属性： 1、Autoredraw自动重画 对象.Autoredraw=BOOLEAN，BOOLEAN取值为TRUE或FALSE，为真时则当一个窗体被其它窗体覆盖、又回到该窗体时，将自动刷新或重画该窗体上的所有图形。为假时必须通过事件来设置这一操作。默认值为假。 2、BACKCOLOR背景颜色 3、Borderstyle边框类型 4、caption 标题,5、Controlbox控制框 设定标题栏状态。为真假两种状态，决定是否显示窗体系统菜单的右边按钮。 6、Enabled允许框 用于激活或禁止对象，每个对象都有，属性值

7、为真假两个值。 7、字形属性设置 有字号、粗细、下划线等。 8、forecolor前景色 9、Height、Width(对象的高，宽) 10、Icon(图标)设置最小化时的图标(就是窗体的图标)，一般对应扩展名为.ico的图标文件。 11、Maxbutton、Minbutton最大、最小化按钮,单位是twip，具体换算是： 1像素=15twip 12磅=20twip 1英寸=1440twip,12、name名称 对象的名称，用在对象代码中，一般不改动，如果改动代码中的名称也要做相应改动。 13、Picture图形 用来在对象中显示一个图形，该属性适应于窗体图像框等。 14、Top、Left 格

8、式：对象.TOP=y 对象.left=x，设置对象距窗体顶边和左边的距离，如果对象为窗体，则设置窗体与屏幕的距离。 15、Visible 控制对象的可见性。 16、Windowstate窗口状态 取值0，1，2，决定窗口运行时正常状态，最小化，最大化。,2.2.2窗体事件 1、click事件 单击窗体时触发的事件，当程序执行时，单击窗体时执行窗体事件过程Form_click。 2、Dblclick事件 双击窗体时执行窗体事件过程Form_dblclick。双击实际触发单击和双击两个事件。 3、Load事件 把窗体装入工作区的事件，自动执行。一般用来对属性或变量初始化。 4、Unload事件 关

9、闭窗体或执行unload语句时触发的事件。Debug.Print fdsf 5、Activate(活动)、Deactivate(非活动)事件 当窗体变为活动窗口时触发Activate事件，而在另一个窗体变为活动窗口前触发Deactivate事件。 6、Paint(绘画)事件(在autoredraw为FALSE时有效) 窗体被移动或放大时，或窗口移动覆盖一个窗体时触发。,2.3 控件 2.3.1 标准控件(内部控件) 启动VB后，工具栏中列出的是标准控件。另外VB还有Activate控件(扩展名为.ocx的文件)和可插入对象，如插入WORD对象的控件等。 2.3.2 控件的命名和控件值 1、控件

10、的命名 窗体或控件的名字就是name值，一般情况下是默认值，如form1,command1,text1等。 2、控件值 一般情况下，通过控件.属性的格式设置一个控件的属性值。如：text1.text=“VB程序设计”。每个控件都有一个默认值，在书写代码时可省略，如：text1=“计算机”,2.4 控件的画法和基本操作 2.4.1 控件的画法 1、单击工具箱中的工具按钮，该图标反相显示。 2、把光标移到窗体上，按往鼠标左键拖动。 2.4.2控件的基本操作 1、控件的缩放和移动 2、控件的复制和删除 控件的复制：复制控件后形成控件数组，如复制三个命令按钮，表示第2个如下：Command1(1).C

11、aption = “复制练习 3、通过属性窗口改变对象的位置和大小 4、选择控件,下标，从0开始,第3章 简单程序设计 3.1 VB中的语句 语句不分大小写，输入后系统会命令或函数中的第1个字母变为大写，其它为小写。 一般一行一条语句，如果一行多条语句，语句之间用：隔开，如果本行后是下划线(_)，表示下一行接本行。 1、赋值语句 格式：let 目标操作符=源操作符 如：let total=99+1 把100给total Re$=“string” 把“string”给Re 说明： （1）赋值语句兼有计算功能,（2）“”不是等号，如A1：AA3。 （3）目标操作符和源操作符类型必须一致。 （4）L

12、ET可省略。 2、注释语句 格式：REM注释内容 注释内容 不执行，起解释作用。 3、暂停语句 格式：STOP 暂停程序执行，一般在程序调试过程中使用。,4、结束语句 格式：END 功能：结束程序的运行。 3.2编写简单的VB应用程序 3.2.1用VB开发应用程序的一般步骤 1、建立用户界面 用户界面由窗体和控件组成。启动VB后屏幕上将显示一个窗体，名称为form1。 2、设置窗体和控件的属性 3、编写代码 如何编写代码，每个窗体和控件都可以编写代码。方法：双击窗体或控件，选对象和方法。,3.2.2 编写VB应用程序 要求：在屏幕上开辟一个窗口，窗口的上有一个文本框，三个命令按钮，三个命令按钮

13、的标题分别是：请单击此按钮，清屏，结束程序。设置合适的字体，字号。当程序运行单击第一个命令按钮时文本框的内容变为“欢迎使用VB中文版”，当单击第二个命令按钮时清空文本框，单击第三个命令按钮结束程序。 设计过程： 1、添加窗体及控件：新建一标准工程，在工程的form1窗体中添加一个文本框，三个命令按钮。 2、修改属性：修改文本框的字体中的font属性，选择适当的字体、字号。分别设置三个命令按钮的caption的值分别改为：请单击此按钮，清屏，结束程序，并适当修改字体、字号。 3、添加代码：双击第一个命令按钮，选单击过程（click）,添加命令代码： TEXT1.FONTSIZE=20 TEXT1

14、.TEXT=“欢迎使用VB中文版” 对每二个命令按钮的单击事件添加代码： Private Sub Command2_Click() Text1.Text = “此行由用户添加 End Sub 每三个命令按钮的单击事件代码： Private Sub Command3_Click() End此行由用户添加 End Sub,3.2.3代码编辑器 从工具菜单中选“选项”。 3.3 程序的保存、装入和运行 3.3.1 保存程序 一个工程中可以包括多个窗体，保存时系统要提示保存的窗体名字和工程名字。 3.3.2程序的装入（打开） 从文件菜单中选打开工程。或双击工程文件。 3.3.3 程序的运行 1、解释运

15、行 通过“运行”菜单中的“启动”命令或工具栏中启动或F5。,2、生成可执行文件 过程如下： （1）执行“文件”菜单中的生成工程名.exe文件。 （2）找到此文件运行。,第四章VB程序设计基础 4.1数据类型 4.1.1基本数据类型 字符串，数值型，字节，货币，对象，日期，布尔型和变体类型。 1、字符串（String） 用双引号括起来的字符序列，其中长度为0的字符串为空串。 例：“计算机”，“AFFFDS1231”，”。 2、数值 分为整型和浮点型。整型分为整数和长整数，浮点型分为单精度和双精度。 （1）整型数,整型数是不带小数点和指数符号的数。 。整数：integer，整数占两个字节，范围为3

16、276832767。 。长整数：long，占4个字节 （2）浮点数 实数，由三部分组成：符号，指数及尾数，单精度(single)和双精度(double)的指数形式分别用“E”,”e”和“D”,”d”表示。如： 123.45e3相当于123.45乘以10的3次幂。 。单精度型：占4个字节，符号位占1位，指数占8位，尾数23位，一个附加的隐含位，精度7位，如：2.123456e12。 。双精度：占8个字节，精度1516位。 3、货币（currency） 用来表示货币，占8个字节，小数点后4位，小数点固定。,4、变体（variant） 可变，可以表示任何值。 5、其他数据类型 （1）字节（byte）

17、 占一个字节，值0255。 （2）布尔型（boolean） 逻辑值，占2个字节，只取两个值true或false。 （3）日期型（date） 占8个字节，格式mm/dd/yy或mm-dd-yy，日期文字必须用括起来，如：january 1,2002#。 Print #10/20/1998 1:20:30 PM# （4）对象型（object） 占4个字节，表示图形或其他对象。,（5）decimal数据类型 占12个字节，无符号整型，只能给变体类型赋值，不能定义成此类型的变量。 4.1.2用户定义的数据类型 格式： TYPE数据类型名 数据类型元素AS类型名 . END TYPE 数据类型名是要定义

18、的数据类型的名字，定义后可用此类型定义变量。 此方法是定义含多个元素的一种类型。,例： TYPEDA RYEARASINTEGER RMONTHASSTRING3字符型，由3个字符组成。 RDAYASINTEGER ENDTYPE 说明： （1）记录类型中的元素可以是字符串，但必须是定长度。 （2）记录类型的定义必须放在模块（包括标准模块和窗体模块）的声明部分，当在标准模块中定义时，关键字前可以有public(默认)（全局）或PRIVATE（局部），如果在窗体模块中定义，则必须在前面加关键字PRIVATE。,标准模块：扩展名为BAS的文件，从工程菜单的添加模块中添加。 （3）记录类型中不能含有

19、数组。 4.1.3枚举类型 处理有关常数，将变量值一一列举出来，变量值只限于列举出来的范围内。 格式： public|privateEnum 类型名称 成员名=常数表达式 成员名=常数表达式 . END ENUM,说明： （1）public和private可选，用public定义的在整个工程中都可见，默认。用private定义的只在模块中可见。 （2）ENUM语句格式中的常数表达式可以省略，常数初始化为0，其后依次加1。 例：public enum days Sunday Monday Tuesday Wednesday Thursday Friday,Saturday End enum 定义

20、了一个枚举类型days，有7个成员，Sunday的值为0，依次加1。 （3）可以用赋值语句改变值。如： public enum days Sunday Monday Tuesday=3 Wednesday . End enum,(4)VB中的常数数值看成长整数如果将一个浮点数给一个枚举中的常数，VB会将该数值取整为最接近的长整数。如： public enum days Sunday Monday Tuesday=3.8 则为4 Wednesday End enum (5)可用一个枚举类型中的常数给另一个常数赋值 如public enum weeks Sunday Monday=days.Mon

21、day:end enum,(6)声明枚举类型后，就可以声明变量，变量取值可用枚举类型中的元素值(也可赋其它值)，如： public enum DA Sunday Monday Tuesday=3 Wednesday . End enum 下面是声明变量 Dim mm As DA mm = Wednesday 4.2.1常量 分文字常量和符号常量。,1、文字常量 （1）字符串常量 由字符组成，可以是除双引号和回车符之外的任何ASCII字符，如：“AS34”，”65。765”。 （2）数值常量 4种形式，即整型，长整型，货币型，浮点型。 。整型：有3种形式，即十进制，八进制，十六进制。 A：十进制

22、，范围：3276832767。 B：十六进制整型，以H或b$ 结果为AAA和dd 5、空格函数 格式：space(n)产生n个空格。 6、字符串匹配函数 格式：instr(n1,字符串1，字符串2,n2） 功能：查找字符串2在字符串1中的起始位置，找到返回起始位置，找不到返回0。N1表示从第几个位置开始查，省略从开始位置，n2可以是0，1，2，为0以二进制比较，为1忽略字母大小写，为2在数据库中比较。默认0,有n2时不能省略n1。,a$ = asdfghsd Print InStr(3, a, sd) 返回值为7。 7、字母大小写转换 格式：ucase$(字符串)小写变大写 lcase$(字符

23、串)大写变小写 8、插入字符串语句 格式：mid$(字符串，p,L)=子字符串 用右边的子字符串换字符串中的内容，p是起始位置，l是换几个，若l省略则有几个换几个。如：注意不要在立即窗口中使用 a$ = asdfghsd“：Mid(a, 3) = 11“：Print a 结果为as11ghsd。,a$ = asdfghsd Mid(a, 3, 2) = 12345 Print a 结果为as12ghsd。 4.6运算符与表达式 4.6.1算术运算符 幂，乘，/浮点除，整除，MOD取模， 说明： （1）对象名称可以是窗体，图片框（picturebox）或打印机。也可以是立即窗口（debug），如

24、省略在窗体上输出。 4种形式：form1.print 45或Print 45 在窗体上输出 Debug.print 45 在立即窗口输出 Picture1.print 45 在图片上输出 printer.print 45在打印机输出,（2）当输出多个表达式时，表达式之间用逗号，分号或空格隔开，若用逗号每个数据占一个区(14个字符)，若用分号或空格，采用紧凑格式输出，数值型前面有一符号位，后面有一空格，字符型前后都没有空格。 如： Print 12, 34; -45; 12; abc; 34 结果为：12 34 45 12 abc 34 (3)一般情况，每执行一个print语句都要换一次行，但如

25、果末尾加分号或逗号，则下一个输出语句接上一行输出。如： Print 1+2=, Print 3 Print 4+5=; Print 9,结果为： 1+2= 3 4+5= 9 5.1.2 与print方法有关的函数 1、tab函数 格式：tab(n) 功能：把光标移动由参数n指定的位置。最左边边界为1。如： Print tab(10);123;tab(20);456 2、spc函数 格式：spc(n)函数，跳过n个空格。 如：print “abc”;spc(8);”def” 结果为abc def 3、空格函数,格式：space$(n) A$=“123”+space(4)+”b” Print a$

26、 结果为123 b 5.1.3 格式输出 格式：format$(数值表达式，格式字符) 功能：按格式字符指定的格式输出数值表达式的值。 格式字符：规定数据的输出形式。 #：数字，不在前后补0。0：数字，在前后补0。 .：小数点。 ，：千分符。 %：百分比符号。 $：美元符号。 -、+：负、正号。 E+、E-：指数符号。,(1)#：表示一个数字位，个数决定长度，若显示的数值位数小于格式字符串指定的区段长度，则该数值靠左端显示，多余位不补0，如果要显示的数值的位数大于指定的区段长度，则按原样显示。 (2)0：与#功能一样，只是靠右面显示，多余位补0。 Print format$(123,”#”)

27、123 Print format$(123,”00000”) 00123 Print format$(12345,”#”) 12345,(3).：显示小数点与0或#结合 Print Format$(123.567, #.#) 123.6 Print Format$(123.457, 000.0000) 123.4570 (4)，：起分位的作用，从小数点左边一位开始每3位用一个逗号分开，逗号可以放在小数点左边的任何位置，但不要放在头部，也不要放在小数点左边。 Print Format$(12345678.567, #,#.#) 12,345,678.567 Print Format$(12345

28、.457, 0,00.0000) 12,345.4570,Print Format$(12345678.567, “#,.#”) 错 12345.7 Print Format$(12345.457, “,000.0000”) 错 ,12345.4570 (5)%：放在后面，输出百分号 Print format$(.345,”00.0%”) 34.5% (6)$：在显示数值前加$ (7)+：显示数值前加上+。 (8)-：显示数值前加上-。 Print format$(-23.56,”+000.00”) -+023.56,Print format$(348.52,”-#0.00”) -348.52

29、 Print Format$(348.52, -0#0.00) -0348.52 (9)E+(E-)：用指数形式显示数值 Print Format(3485.52, 0.00e+00) 3.49E+03 5.1.4 其他方法和属性 1、cls方法 格式：对象.cls 功能：清除由print产生的文本或图片框中产生的图形。 如：picture1.cls,Cls 清楚窗体内显示的内容 2、move方法 格式：对象.move 左边距离,上边距离,宽度,高度 用来移动窗体或控件，并可改变其大小。其中对象可以是除计时器，菜单之外的所有控件。如果省略对象，则表示要移动的是窗体。例：在窗体上画一个文本框和一

30、个图片框，编程移动窗全和文本框。 Move 800,800,5000,6000 Text1.move 200,200,1500,1000 picture1.move 1800,200,1500,1000 Picture1.print “picture1” 后三项省略移动后不变。,3、textheight和textwidth方法 格式： 对象.textheight(字符串) 对象.textwidth(字符串) 用来辅助设计坐标，其中textheight方法返回一个文本字符串的高度值，而textwidth返回宽度值，它们与字号有关。对象包括窗体和图片框，省略对象则用来测试当前窗体中的字符串。 如：

31、编写程序，试验textheight方法 CurrentY = TextHeight(12345) * 3 下一个输出位置的y坐标 CurrentX = 0:fontsize=9 Print 123456 Print TextHeight(fdsf), TextWidth(fds) FontSize = 18,Print 123456 Print TextHeight(fdsf), TextWidth(fds) 注：chr$(13)和chr$(10)分别是回车和换行。它们可使currenty增加。 属性scalewidth和scaleheight分别用来表示对象的宽度和高度值。 例：编写程序，使

32、字符串居中显示。 FontSize = 20 te = 程序设计 CurrentX = (ScaleWidth - TextWidth(te) / 2 CurrentY = (ScaleHeight - TextHeight(te) / 2 Print te 此处的scaleheight和scalewidth是窗体的高度和宽度,几个属性： Screen.height 返回屏幕的高度 Screen.width 返回屏幕的宽度 .left 返回窗体或对象距左边的距离 .top 返回窗体或对象距顶边的距离 例：设置一命令按钮，单击后改变位置。 5.2 数据输入-inputbox函数 格式：input

33、box(prompt,title,default,xpos,ypos,helpfile,context) 功能：出现提示对话，等待用户输入数据。 说明：prompt是提示字符串，title是对话框的标题。 Default是默认信息，若无此项则对话框输入区为空白，等待用户输入信息。,Command1.top=20 Command1.left=30,Xpos,ypos 分别用来确定对话框与屏幕左边和上边的距离。同时存在或同时省略。 Helpfile，帮助文件的名字，以字符串的形式出现，context与helpfile同时存在，context是数值变量或表达式，用来表示相关帮助主题的帮助目录号。 注

34、：如果后面项不省略，而中间项省略，中间的逗号不能省略。 a = InputBox(“input” + Chr(10) + “data”, “输数”, “张三”) Print a,Prompt部分,Title部分,Default部分,此函数输入数据将为字符型，但当默认值为数值型时，返回值也可以是数值型。 a = InputBox(“input” + Chr(10) + “data”, “输数”, 10) Print a+1 若输入1，则结果是2，第1行也可换成如下形式： a% = InputBox(“input” + Chr(10) + “data”, “输数”) 5.3 msgbox函数和ms

35、gbox语句 Msgbox函数格式： Msgbox(msg,type,title,helpfile,context) 除第1个参数外，其余都是可选的。 Msg为字符串，在对话框内显示，用于提示。 Type是一个整数或符号常量，用来控制在对话框内显示的按钮,图标的种类和数量。该参数的值由4类数值相加产生： 第1类：规定显示的按钮： 0：显示确定按钮 1：显示确定及取消按钮 2：显示终止，重试，及忽略按钮 3：显示是，否，取消按钮 4：显示是及否按钮 5：显示重试及取消按钮 第2类：规定显示的图标： 16：显示 x号图标 32：显示问号图标 48：显示惊叹号图标 64：显示 information

36、 message图标,第3类：指定默认活动按钮 0：第1个按钮是默认值。 256：第2个按钮是默认值 512：第3个按钮是默认值。 768：第4个按钮是默认值 第四类：有2个 0：应用程序强制返回，应用程序被挂起，直到用户对消息框作出响应才继续工作。 4096：系统强制返回，全部应用程序被挂起，直到用户对消息框作出响应才继续工作。 以上参数中前3类可以组合，如： 16等价于0+16+0 35等价于3+32+0 Title：对话框的标题 Helpfile,context同inputbox函数。,该函数有返回值，类型为整 型，返回值的大小由按键决定： 1：按确定按钮 2：按取消按钮 3：按终止按钮

37、 4：按重试按钮 5：按忽略按钮 6：按是按钮 7：按否按钮 例： x = MsgBox(请单击按钮, 52) If x = 6 Then Print 是按钮 Else Print 其它按钮 End If,5.3.2 msgbox语句 格式：msgbox msg$,type%,title$,helpfile,context 与msgbox函数相同，但没有返回值，常用于简单的提示。 5.4 字形 5.4.1 字体类型和大小 1、字体类型 格式：窗体.控件.printer.fontname=“字体类型” 如：fontname=“system” Fontname=“宋体” 2、字体大小 格式：fon

38、tsize=点数,设置字体类型,例： FontName = 黑体: FontSize = 20 x = MsgBox(请单击按钮, 52) If x = 6 Then Print 是按钮 Print FontName Else FontName = 宋体 Print “其它按钮” End if,5.4.2 其它属性 1、粗字体 格式：fontbold=booleam 2、斜字体 格式：fontitalic=boolean 3、加删除线 格式：fontstrikethru=boolean 4、加下划线 格式：fontunderline=boolean 5、重叠显示 格式：fonttranspar

39、ent=boolean 只适应于窗体和图片框。,例：设置一文本框，5个命令按钮用来完成这些功能。 按钮事件： Fontbold=true 其它24一样，第5个,5.5 打印机输出 5.5.1 直接输出 格式：printer.print 表达式表 例：printer.fontname=“黑体“ printer.fontsize=20 Printer.print “1234” 在打印机对象中还有其它一些对象和属性。 1、page属性 格式：printer.page 功能：在打印时设置当前页。刚开始page的属性为1，打印完一页后自动加1。如： Print printer.page 打印当前页号,2

40、、newpage方法 Printer.newpage 强制打印机换页。 3、enddoc方法 Printer.enddoc 结束打印，未打印的信息送出去，page的值变为1。 5.5.2 窗体输出 格式：窗体.printform 功能：把窗体的信息打印出来，包括执行的print的结果，窗体省略则指当前窗体。 如：,Fontsize=20 Currentx=800 Currenty=500 Form1.WindowState = 1 Print “vb6.0” Fontname=“宋体” Currentx=800 Currenty=1000 Print “program design” Prin

41、tform 注意：保存窗体信息，窗体的autoredraw属性必须为为true，窗体的此属性默认为false。,Autoredraw为false返回结果,Autoredraw为true返回结果,第六章 常用标准控件 6.1 文本控件 6.1.1 标签 1、标签的属性、事件和方法 标签的部分属性与窗体及其它控件相同，包括： Fontbold fontitalic fontname fontsize fontunderline Height left name top visible width 其它属性： (1)alignment 规定标签中的文字靠左，靠右，居中显示值为0，1，2 (2)aut

42、osize 值为true或false，规定是否根据文字的多少自动调整标签的大小。,标签 文本框,(3)borderstyle 用来设置标签是凹陷(值为1)还是平面(0)。 (4)caption 在标签中显示的文本。 (5)enabled 确定窗体或控件是否可用，不可用变成灰色。值为布尔型。 (6)backstyle 为1或0，决定是覆盖背景还是透明。 (7)wordwrap 只适用于标签，用来决定标签的标题显示方式，为true，标签文字减小时标签大小不变，为false，则大小变化。 要使此属性起作用，autosize属性设置为true。,标签有单击，双击事件。 6.1.2 文本框 1、文本框属

43、性 (1)maxlength 用来在文本框中输入的最大字符数。默认值0，可输入32K，多行文本，若为n，则可输入n个字符。 (2) Multiline 值为true或false，决定输入多行或单行文本。 (3)passwordchar 一般用于口令输入，如该属性设为*则在输入内容时显示*。 (4)scrollbars 用来确定文本框中没有滚动条，值为0，1，2，3分别表示无，,只有水平，只有垂直，都有。注意只有在Multiline设为true时有郊。 (5)sellength 表示文本框中选中文本的个数。若都没选值为0。 (6)selstart 表示选中文本的起始位置。第1个字符位置为0。 (

44、7)seltext 表示选定的文本，若没选为空串。 (8)text 表示文本框中的内容，如text1.text=“12345”。 (9)locked 指定文本框是否可被编辑。假可真不可。,Text1.SelStart = 3 Text1.SelLength = 4 Text1.SelText = 11,2、文本框事件和方法 (1)change 当用户向文本框中输入新信息或把text属性设置为新值时触发。 (2)gotfocus 当文本框具有输入焦点时触发其中事件。 如： Private Sub Text1_GotFocus() Text1.BackColor = picture1 10 Pri

45、nt Tab(10); form10 Picture1.CurrentX = 100 Picture1.CurrentY = 200 Picture1.Print 1000,2000“ 3、picture属性 用于在窗体，图片框，图像框显示图片。 4、stretch属性（只有 image 控件有）对应Autosize(只有Picture控件有) 用来自动调整图像框中大小可选true或false，用于自动调整图片大小是否与图像框大小一致，选true为一致。,6.2.2 图形文件的装入 1、图片框与图像框的区别 (1)图片框是容器，可以作为父控件，其它控件可包含在其中，而图像框不能作为父控件。 (

46、2)图片框可以用print方法接收文本，也可以接收由像素组成的图形，图像框不行，图片框都有一个内部光标，用来指示下一个被绘制的位置，通过currentx和currenty属性记录。 (3)图像框占用内存少，显示速度快。 2、在设计阶段装入图形文件 从picture属性中修改。 3、在运行期间装入图形文件 对象.picture=loadpicture(“文件名”) Picture1.picture=loadpicture( )是清除,6.2.3 直线和形状 属图形控件，利用直线和形状控件可以使窗体上显示的内容更丰富。 属性：形状有height,left,top,width等标准属性，直线还有两个

47、端点的坐标，即(x1,y1) 和(x2,y2)，此外还有以下属性。 (1)bordercolor 用来设置颜色。 (2)borderstyle 边界线型。0-6分别表示不同线，。为0不可见。 (3)borderwidth 用来指定直线的宽度或形状边界的宽度，默认以像素为单位。属性不能为0。对于形状控件向外扩展，只有当borderstyle为6时向内扩展。,(4)backstyle 该属性用于形状控件，其设置值为0或1，用来指定颜色填充，属性为0(默认)，边界内的区域是透明的，而当为1时，该区域由backcolor属性指定。 (5)fillcolor 用于设定形状的内部颜色。 (6)fillst

48、yle 决定形状控件的填充图案，值0-8。 (7)shape 确定形状的几何特性，0-5六种形状。程序：建6个形状控件。 For I=0 to 5 Shape1(I).shape=I Next i,6.3命令按钮控件 6.3.1属性和事件 1、cancel属性 当一个命令按钮的cancel设为true时，当按ESC键时相当于单击该按钮，只有1个命令按钮的此属性可设为true。 2、default属性 此属性设为true时，按回车键与单击作用相同，只有1个命令按钮的此属性可设为true 。 3、style属性 值为0或1，为0标准样式，为1图形格式。 4、picture属性 可以给命令按钮指定一

49、个图形，但style属性为1才行。,5、downpicture属性 按钮按下时显示的图形，style属性设置1。 6、disabledpicture属性 当命令按钮禁止使用时按钮上显示的图形， style属性设置1。 命令按钮无双击事件。 6.3.2 应用举例 不举。 6.4 选择控件-复选框和单选按钮 6.4.1 复选框和单按钮的属性和事件 属性 (1)VALUE属性 对单选按钮，值为true和false，为true时是打开，为false为关闭,复选,单选,对于复选框，可为0、1、2，为0表示没有选，1选，2禁止。 (2)alignment属性 用来设置它们的对齐方式，格式： 对象.alig

50、nment=值 对象可以是单选框或复选框，也可以是标签和文本框。值可为0(控件居左，标题在控件右侧)，为1相反。 (3)style属性 用来指定复选框或单选按钮的显示方式，以改善视觉效果。为0是标准方式，为1图形方式，可以用picture等属性设定图形。,6.4.2 应用举例 界面如右图 设计界面,单选按钮单击事件如下： Private Sub OptHeiTi_Click() Text1.FontName = 黑体 End Sub Private Sub OptSongTi_Click() Text1.FontName = 宋体,复选框单击事件如下： Private Sub ChkBold_

51、Click() If (ChkBold.Value = 1) Then Text1.FontBold = True Else Text1.FontBold = False End If End Sub Private Sub ChkItalic_Click() If (ChkItalic.Value = 1) Then Text1.FontItalic = True Else Text1.FontItalic = False End If End Sub,6.5 选择控件-列表框和组合框 6.5.1 列表框(list)和组合框(combo) 1.属性 (1)columns 用来确定列表框的列数

52、，当该属性为0时，所有项目呈单列显示，如果该属性为1，则列表框每次显示1列；如果大于1且小于列表框的项目数，则列表框每次显示columns列。 如果设的列数多，则列表中应该有足够多的项才能看出效果。,组合框,列表框,(2)list 该属性用来列出表项的内容，如：list1.list(i)表示列表框1第i+1项的值(字符串)，下标从0开始。 也可改变某列表框的值，如：list1.list(3)=“AAAA”，第四项内容改为AAAA。,(3)listcount 该属性列出列表框中的项目数。 (4)listindex 设置值是已选中表项的位置。第1项为0,没被选中值为-1。 (5)multisele

53、ct 用来设置一次可以选择项目数。0：每次只能选择一项，1：可同时选多项可用鼠标或空格，2：可以选择指定范围，可用shift和ctrl。 (6)selected 格式：列表框.selected(索引值) 值为true(表示此项被选中)或false。 也可用列表框.selected(索引值)=true|false指定或取消选则项。,(7)selcount 如果multiselect为1或2，则该属性用来指定选中的项目数。 (8)sorted 为true，则项目按字母或数字升序排列。 (9)style 确定外观，设计时用，为0标准，为1复选。 (10)text 该属性值为最后一次选中的文本，不能直

54、接修改text属性。 2、列表框事件 可接收单击和双击事件，但一般单击或双击时用来读取text值。 3、列表框方法 (1)additem,在列表框中插入一行文本。格式： 列表框.additem 字符串,索引值 索引值表示插入到某个位置，为0表示放到最后。索引值不能大于项目数-1， (2)clear 清除列表框内容，格式：列表框.clear (3)removeitem 该方法用来删除指定项目，格式：列表框.removeitem 索引值 例：两个列表框，一个按字母 排序，另一个按输入先后，当双击某项时，该项消失，而在另一个中出现。 过程：建立两个列表框，list1的sorted属性改为true，窗

55、体的load事件如下：,List1.additem “111111111” List1.additem “222222222” List1.additem “333333333” List1.additem “444444444” List1.additem “555555555” List1.additem “666666666” List1.additem “777777777” List1.additem “888888888” List1和list2的双击事件如下：,List1.additem list2.text List2.removeitem list2.listindex,Li

56、st2.additem list1.text List1.removeitem list1.listindex,6.5.2 组合框 1、组合框属性 (1)style 其值可以是0，1，2。它决定了组合框3种不同类型。 A：为0时，组合 框被称为下拉组合框，可输入文本(输入的文本加不进去)或从下拉组合框中选择表项。 B：为1时，称为简单组合框，可输入文本，不能从下拉组合框中选择表项。 C：为2时，称为下拉式列表框，不允许输入文本。,(2)text 所选项目的文本或从编辑区输入的文本。 2、组合框事件 可接收单击事件和dropdown(单击组合框中向下箭头),Private Sub Command

57、1_Click() Dim name As String Dim sex As String Dim age As String Dim major As String name = Text1.Text If Option1.Value = True Then sex = 男 Else sex = 女 End If age = Text2.Text major = Combo3.Text MsgBox 姓名： + name + Chr(10) + 性别： + sex + _ Chr(10) + 年龄： + age + Chr(10) + 专业： + major End Sub,3、组合框方法

58、 有additem,clear,removeitem。 6.6 滚动条 有水平滚动条和垂直滚动条。 1、滚动条属性 (1)max,min 允许最大值和最小值。 (2)largechange(滚动框前后)，smallchange（动两端箭头） 单击滚动条中滚动框前面或后面时value属性增加或减小的值。 (3)value 当前位置。,例：用一文本框输入文字， 单击一命令按钮后加 入至组合框中开始。命令 按钮程序： Combo1.additem text1,0,2、滚动条事件 主要是scroll(当在滚动条内拖动滚动框时会触发scroll事件，单击滚动箭头或滚动条时不发生)和change(改变滚动

59、条位置后触发) 例：建立一个滚动条，一文本框，当移动滚动条时，文本框文字大小变化，当直接拖动滚动框时打印1。 操作：滚动条max和min值改为60和8。 滚动条change事件为： Text1.FontSize = HScroll1.Value Scroll事件为： Print 1,6.7 计时器 用于内部计时，当计时器工作时(enabled为true)，每隔一定时间(由interval值决定，1000相当于1秒)触发一次timer事件，程序运行时计时器不显示。每秒钟最多产生18个事件。 例：设计一窗体，含有一标签，一命令按钮，一计时器，当单击命令按钮时标签显示系统时间 Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Timer1_Timer() Label1.Caption = Time End Sub,6.8 框架 框架(frame)是一个容器，即框架中可包含其它控件，当几个单选按钮包含在一个框架中时，某