第十章用户定义类型与枚举类型概要

《第十章用户定义类型与枚举类型概要》由会员分享，可在线阅读，更多相关《第十章用户定义类型与枚举类型概要（29页珍藏版）》请在金锄头文库上搜索。

1、测绘程序设计,2,第十章 用户定义类型与枚举类型,一、用户定义类型 二、枚举类型 三、滚动条控件 四、图像控件、图片框控件,3,一、用户定义类型 1、建立用户定义类型 Public|Private:可选的。用于声明可在工程的所有模块的任何过程中使用的用户定义类型|只能在包含该声明的模块中使用的用户自定义的类型。 用户类型名:必需的。用户自定义类型的名称。 字段名:必需的。用户自定义类型的元素名称。 数据类型名:必需的。元素的数据类型；可以是任何基本数据类型、其它的用户自定义的类型或对象类型。,Private | Public Type 用户类型名 字段名1 As 数据类型名 字段名2 As 数

2、据类型名 . . . 字段名n As 数据类型名 End Type,遵循标准的变量命名约定,注:只能是定长的字符串,第十章 用户定义类型与枚举类型,注:不能为数组,4,一、用户定义类型 1、建立用户定义类型 Type 语句只能在模块级使用。使用 Type 语句声明了一个用户自定义类型后，就可以在该声明范围内的任何位置声明该类型的变量。 在标准模块中，用户自定义类型按缺省设置是公用的。可以使用Private关键字来改变其可见性。而在类模块中，用户自定义类型只能是私有的，且使用Public 关键字也不能改变其可见性。 在 Type.End Type 块中不允许使用行号和行标签(标号)。 用户自定义

3、类型经常用来表示数据记录，记录一般由多个不同数据类型的元素组成。,第十章 用户定义类型与枚举类型,5,一、用户定义类型 1、建立用户定义类型,Type st xh as string*7 学号 xm as string* 8 姓名 xb as string* 2 性别 pjf as single 平均成绩 End Type,第十章 用户定义类型与枚举类型,6,一、用户定义类型 2、建立和使用用户定义类型的变量 建立用户定义类型的变量 可以使用 Dim、Private、Public、ReDim 或 Static 来声明用户自定义类型的变量。 对同一种用户定义类型，可以声明为局部的、私有的或公用的

4、模块级变量，定义格式：,第十章 用户定义类型与枚举类型,Dim变量名 As 用户定义类型名,Dim 数组名(维数及下标范围) As 用户定义类型名,Dim stu1 As st,Dim stud(1 To 10) As st,7,一、用户定义类型 2、建立和使用用户定义类型的变量 建立用户定义类型的变量 假如声明使用Dim关键字，标准模块中的用户自定义类型将缺省为公有的。假如希望自定义类型为私有的，确保用Private关键字将其声明为私有。,第十章 用户定义类型与枚举类型,8,一、用户定义类型 2、建立和使用用户定义类型的变量 使用用户定义类型变量 引用用户定义类型变量中字段的格式:,第十章

5、用户定义类型与枚举类型,用户定义类型变量名.字段名,9,一、用户定义类型,第十章 用户定义类型与枚举类型,例10-2 利用用户定义类型变量对各项赋值 Private Type Studentrec Stunum As String * 10 Names As String * 8 Sex As String * 2 Avg As Single End Type Private Sub Command1_Click() Dim Stu As Studentrec Stu.Stunum = “20010001“ Stu.Names = “王 平“ Stu.Sex = “女“ Stu.Avg = 8

6、8 Text1(0).Text = Stu.Stunum Text1(1).Text = Stu.Names Text1(2).Text = Stu.Sex Text1(3).Text = Stu.Avg End Sub,例 10-2,10,一、用户定义类型 2、建立和使用用户定义类型的变量 用户定义类型数组 用户定义数据类型常称为记录类型，用户定义数据类型的变量称为记录变量，数组则称为记录数组，引用记录数组中某个元素的字段格式:,第十章 用户定义类型与枚举类型,记录数组名(索引号).字段,11,一、用户定义类型,第十章 用户定义类型与枚举类型,例10-3 建立含40位学生信息的记录数组。 P

7、rivate Type Studentrec Stunum As String * 10 Names As String * 8 Sex As String * 2 Avg As Single End Type Private Sub Command1_Click() Dim Stu(1 To 50) As Studentrec Stu(32).Stunum = “20010001“ Stu(32).Names = “王 平“ Stu(32).Sex = “女“ Stu(32).Avg = 88 Text1(0).Text = Stu(32).Stunum Text1(1).Text = St

8、u(32).Names Text1(2).Text = Stu(32).Sex Text1(3).Text = Stu(32).Avg End Sub,12,二、枚举类型 枚举: 是指将变量的值一 一列出来，且变量的值只限于列举出来的值的范围内。 当一个变量只有几种可能的值时，可以定义为枚举类型。,第十章 用户定义类型与枚举类型,13,二、枚举类型 1、定义枚举类型 定义枚举类型语法格式 枚举类型放在窗体模块、标准模块的通用段，定义格式: Public|Private:可选的。用于声明可在工程的所有模块的任何过程中使用的用户定义类型|只能在包含该声明的模块中使用的用户自定义的类型。 类型名称:

9、 所定义的Enum类型名称 成员名: 所定义的Enum类型元素名称,第十章 用户定义类型与枚举类型,Public|Private Enum = = End Enum,14,二、枚举类型 1、定义枚举类型 枚举类型中的常数值 可选项: 默认第一个常数项初始化为0，之后依次加1 用赋值语句给枚举常量赋值，可为任何长整数 可使用另一个枚举常量为枚举常量赋值，应在常数名前加枚举名,第十章 用户定义类型与枚举类型,浮点数转为最接近的整数,15,二、枚举类型 1、定义枚举类型,第十章 用户定义类型与枚举类型,例10-4利用枚举类型编写程序，要求输入一个数字表示星期，判断输出是否为工作日。 标准模块中 Pu

10、blic Enum Workdays Sunday Monday Tuesday Wednesday Thursday Friday Saturday Invalid = -1 End Enum,16,二、枚举类型 1、定义枚举类型,第十章 用户定义类型与枚举类型,Private Sub Command1_Click() Dim Myday As Workdays 定义Myday为枚举类型Workdays Text1.SetFocus Myday = Val(Text1.Text) If Myday = 0 Or Myday = 6 Then 星期日或星期六 Label3.Caption =

11、“休息吧！非工作日！“ Else Label3.Caption = “工作日！请咬紧牙关，努力工作！“ End If End Sub,17,三、滚动条控件 无论何时，只要应用程序或控件所包含的信息超过当前窗口(或者在ScrollBars属性被设置成True时的文本框和MDI窗体)所能显示的信息，滚动条就会自动出现。 滚动条(ScrollBar)通常用来附在窗体上协助观察数据或确定位置，也可用来作为数据输入的工具。,第十章 用户定义类型与枚举类型,18,三、滚动条控件 1、滚动条控件类型 滚动条有水平滚动条(HScrollBars)和垂直滚动条(VScrollBars)两种 滚动条控件为不能自动

12、支持滚动的程序和控件提供的滚动功能,第十章 用户定义类型与枚举类型,19,三、滚动条控件 2、滚动条控件的常用属性 Min、Max属性:返回或设置滚动条所能代表的最小、最大值，其取值范围为-32768-32767。Min属性的默认值为0，Max属性的默认值为32767。 Value属性:返回或设置滚动条的当前位置，其返回值始终介于Max和Min属性值之间，包括这两个值。 LargeChange属性:返回和设置当用户单击滚动箭头之间的区域时，滚动条控件Value属性值的改变量。 SmallChange属性:返回和设置当用户单击滚动箭头时，滚动条控件Value属性值的改变量。,第十章 用户定义类型

13、与枚举类型,20,三、滚动条控件 3、滚动条控件的常用事件 Change事件: 在程序运行过程中，每当滚动条的Value属性发生变化时发生。单击滚动条两端的箭头或空白处将、沿着滚动条拖动滑块动作结束时引发Change事件。 Scroll事件: 跟踪活动滑块的动态变化，拖动滑块时会触发Scroll事件。单击滚动条两端的箭头或单击滑杆不会触发此事件。 Scroll事件与Change事件的区别在于：当滚动条控件滚动时Scroll事件一直发生，而Change事件只是在滚动结束之后才发生一次。,第十章 用户定义类型与枚举类型,21,三、滚动条控件,第十章 用户定义类型与枚举类型,例10-6 滚动条应用示

14、例。 Private Sub Form_Load() Picture1.BackColor = RGB(255, 255, 255) Text1.Text = “RGB(255,255,255)“ Label1.BackColor = RGB(255, 0, 0) Label2.BackColor = RGB(0, 255, 0) Label3.BackColor = RGB(0, 0, 255) For i = 0 To 2 HScroll1(i).Max = 255 HScroll1(i).Min = 0 Next i End Sub,22,第十章 用户定义类型与枚举类型,Private

15、Sub HScroll1_Change(Index As Integer) Picture1.BackColor = RGB(HScroll1(0).Value, HScroll1(1).Value, HScroll1(2).Value) r = LTrim(Str(HScroll1(0).Value) g = LTrim(Str(HScroll1(1).Value) b = LTrim(Str(HScroll1(2).Value) Text1.Text = “RGB(“ & r & “,“ & g & “,“ & b & “)“ End Sub Private Sub HScroll1_sc

16、roll(Index As Integer) Picture1.BackColor = RGB(HScroll1(0).Value, HScroll1(1).Value, HScroll1(2).Value) r = LTrim(Str(HScroll1(0).Value) g = LTrim(Str(HScroll1(1).Value) b = LTrim(Str(HScroll1(2).Value) Text1.Text = “RGB(“ & r & “,“ & g & “,“ & b & “)“ End Sub,23,第十章 用户定义类型与枚举类型,Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then a = InStr(4, Text1.Text, “, “) b = InStr(a +