一章常用标准控件
合集下载
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
为True时，不可以编辑，但可以选择、复制文本；当为False时(默认) ， 可以编辑文本。
文本框事件和方法：
Change事件：改变文本框的内容时发生。该事件当用户 改变正文或通过代码改变 Text 属性的设置时发生。
GotFocus事件：当对象获得焦点时产生该事件；获得焦 点可以通过诸如 TAB 切换，或单击对象之类的用户动 作，或在代码中用 SetFocus 方法改变焦点来实现。
End Sub
Private Sub Option3_Click() Text1.FontSize = 18 Text1.FontName = "Courier"
End Sub
框架
框架用来对控件进行分组，即把指定的控件放到 框架中。必须先画出框架，然后在框架内画出 需要成为一组的控件，这样才能使框架内的控 件成为一个整体，和框架一起移动。
End Sub
5 画圆方法
[对象名.]Circle[Step](x,y),r,[color],[start],[end][, 纵横比]
例如 Private Sub Form_Click()
Const pi = 3.1415926 Scale (0, 0)-(100, 100) Circle (50, 50), 30, vbRed, -0.25 * pi, -0.75 * pi
End Sub
Private Sub Command2_Click() End
End Sub
Private Sub Form_Load() Image2.Visible = False Image3.Visible = False
End Sub
6.4 选择控件
6.4.1 复选框和单选按钮的属性和事件
Listcount 返回列表框中表项的个数。 例：下面的过程可以显示列表框中的所有表项。
Private Sub Command1_Click() For i = 0 To List1.ListCount - 1 Print List1.List(i) Next i
End Sub
ListIndex 返回或设置控件中当前选择项目的索引，在设计时不可用。
End Sub
6.2.4 图形方法
1 缺省窗体的大小
Height=3600 (Twip) Width=4800 ScaleHeight=3195 ScaleWidth=4680
2 自定义坐标系
[对象名.]Scale[(xLeft,yTop)-(xRight,yBottom)]
3 画点方法
[对象名.]Pset[Step](x,y)[,颜色]
Private Sub Command1_Click() If Image1.Visible = True Then Image1.Visible = False Image2.Visible = True ElseIf Image2.Visible = True Then Image2.Visible = False Image3.Visible = True Else Image3.Visible = False Image1.Visible = True End If
CurrentX和CurrentY：用来设置下一个输出的水平 和垂直坐标。用于窗体、图片框和打印机，不能用 于图像框。
Picture返回或设置控件中要显示的图片。可用于窗 体、图片框和图像框。
Stretch图像调整属性：用于图像框，图片框无此属 性。设置其值为True时，可以自动调整图形内容的
大小来适应图像框大小的变化。
对窗体上已有的控件，要把它们放到框架中，可 使用“剪切—粘贴”的方法。
6.4.2 列表框和组合框
1 列表框
主要属性：
Columns 确定列表框的列数。如果为0，则为单列显示（内容 大于显示区域增加垂直滚动条）；如果大于等于1，则为多 列显示（内容大于显示区域将增加水平滚动条）。
List 可以列出列表项的内容。可以通过下标访问或改变其值： 格式：对象名称.List(下标) [= 字符串]
Style属性 返回或设置一个值，该值用来指示控件的显示 类型和操作。 值为0：标准样式；值为1：图形格式。
Picture、DownPicture、DisabledPicture属性 单击（Click）事件 命令按钮最常用的事件是单击事件。
（注意命令按钮不支持双击事件。 ）
6.3.2 应用举例
例6.6 模拟交通信号灯切换。
AutoSize属性：用于图片框，返回或设置一个值，以 决定控件是否自动改变大小以显示其全部内容。
可以在图片框中使用的主要方法：
Cls
Print
6.2.2 图形文件的装入
图片框与图像框的区别
图片框是“容器”控件，可作为父控件，图像框不能。 图片框可接收Print方法输出的信息，图像框不能。 图像框比图片框占用的内存少，显示速度快。
6.1.2 文本框
主要属性：
MaxLength（最大字符数）：允许输入的最大字符数 MultiLine（多行属性）：True-可以多行；False-单行（默认） PasswordChar（口令字符属性）：按指定字符显示输入内容，显示的字符
个数和输入的字符个数相同
ScrollBars（滚动条属性）：0-无（默认）；1-水平滚动条；2-垂直；3-水 平和垂直
LostFocus事件：此事件是在一个对象失去焦点时发生， 焦点的丢失或者是由于制表键移动或单击另一个对象 操作的结果，或者是代码中使用 SetFocus 方法改变 焦点的结果。
SetFocus方法：
格式:对象名称.SetFocus
让指定的对象获得焦点。
6.2 图形控件
6.2.1 图片框和图像框
主要属性：
End Sub
6.2.3 直线和形状
主要属性：
BorderColor 返回或设置对象的边框颜色。 BoderStyle 返回或设置对象的边框样式。 BoderWidth 返回或设置控件边框的宽度。 BackStyle 返回或设置控件是否被指定的颜
色填充。 FillStyle 返回或设置填充图案的样式。 FillColor 返回或设置填充图案的颜色。 Shape 形状属性。
SelLength（选中的字符长度）：返回或设置所选择的字符数。 SelStart（起始位置）：返回或设置所选择的文本的起始点；如果没有文本
被选中，则指出插入点的位置。
SelTextБайду номын сангаас选中的文本）：返回或设置包含当前所选择文本的字符串；如果没 有字符被选中，则为空字符串 (“”)。
Text（文本属性）：返回或设置编辑区域中的文本。 Locked（是否锁定）：返回或设置一个值，以指定控件是否被锁定。此属性
例 6-7
Private Sub Form_Click()
Scale (0, 0)-(100, 100) DrawWidth = 5 Line (10, 30)-(10, 80), vbRed Line -(40, 80), vbGreen Line -(10, 30), vbBlue Line (50, 30)-(80, 80), vbRed, BF
End Sub
Private Sub Check2_Click() If Check2.Value = 1 Then Text1.FontItalic = True Else Text1.FontItalic = False End If
End Sub
Private Sub Form_Load() Text1.FontSize = 20
例
Private Sub Command1_Click()
Scale (0, 0)-(200, 200) DrawWidth = 10 PSet (100, 100), vbRed CurrentX = 30 CurrentY = 30 PSet Step(50, 50), vbBlue
End Sub
Step可选的。关键字，指定相对于线的起点的终点坐标。 (x2, y2)必需的。Single （单精度浮点数），直线或矩形的终点坐标。 B可选的。如果包括，则利用对角坐标画出矩形。 F可选的。如果使用了 B 选项，则 F 选项规定矩形以矩形边框的颜色填充。
不能不用 B 而用 F。如果不用 F 光用 B，则矩形用当前的 FillColor 和 FillStyle 填充。FillStyle 的缺省值为 transparent。
End Sub
6.3 按钮控件
6.3.1 属性和事件
Cancel属性 当一个命令按钮的 Cancel 属性设置为 True 而且该窗体是活动窗体时，按ESC键与单击该命令按钮 的作用相同。
Default属性 当一个命令按钮的 Default属性设置为 True 而且其所在窗体是活动的，按 ENTER 键与单击该命令 按钮的作用相同。
例 通过程序改变形状属性。
Private Sub Form_Click() FontSize = 12 CurrentX = 350 Print "0"; For i = 1 To 5 Shape1(i).Left = Shape1(i - 1).Left + 1050 Shape1(i).Shape = i shape1(i).visible=true CurrentX = CurrentX + 750 Print i; Next i
End Sub
例6.11 用单选按钮控制显示不同字体。
Private Sub Option1_Click() Text1.FontSize = 24 Text1.FontName = "Times New Roman"
End Sub
Private Sub Option2_Click() Text1.FontSize = 20 Text1.FontName = "Modern"
4 画直线、矩形方法
[对象名.]Line[[Step](x1,y1)]- [Step](x2,y2)[,颜 色][,B[F]]
Step可选的。关键字，指定起点坐标，它们相对于由 CurrentX 和 CurrentY 属性提供的当前图形位置。
(x1, y1)可选的。Single （单精度浮点数），直线或矩形的起点坐标。 ScaleMode 属性决定了使用的度量单位。如果省略，线起始于由 CurrentX 和 CurrentY 指示的位置。
List1.List(List1.ListIndex)返回当前选择项目的字符串。
Multiselect 指示能否进行复选以及如何进行复选。在运行时是只读的。 0 （缺省值）不允许复选。 1 简单复选。 2 扩展复选。可以使用Shift、Ctrl键。
Selected 返回或设置一个项的选择状态。在设计时是不可用的。格式：
Style属性 指定复选框或单选按钮的显示方式。0:标准;1:图形 单击(Click)事件 复选框和单选按钮都可以接收Click事件。
例6.10 用复选框控制文本显示方式。
Private Sub Check1_Click() If Check1.Value = 1 Then Text1.FontUnderline = True Else Text1.FontUnderline = False End If
Value属性 复选框的Value属性：
0——未选定 1——选定 2——禁止状态
单选钮的Value属性：
True ——选定 False ——未选定
Alignment属性 设置或返回一个值，决定复选框和单选钮控 件中的文本的对齐方式。
0 —— （缺省值）控件居左，标题在控件右侧。 1 ——控件居右，标题在控件左侧。
在设计阶段装入图形文件
用属性窗口中的Picture属性装入 利用剪贴板把图形粘贴到窗体、图片框或图像框
中
在运行期间装入图形文件
[对象.]Picture=LoadPicture("文件名")
例6.2 交换两个图片框中的图形。
Private Sub Form_Click() Picture3.Picture = Picture1.Picture Picture1.Picture = Picture2.Picture Picture2.Picture = Picture3.Picture Picture3.Picture = LoadPicture()
文本框事件和方法：
Change事件：改变文本框的内容时发生。该事件当用户 改变正文或通过代码改变 Text 属性的设置时发生。
GotFocus事件：当对象获得焦点时产生该事件；获得焦 点可以通过诸如 TAB 切换，或单击对象之类的用户动 作，或在代码中用 SetFocus 方法改变焦点来实现。
End Sub
Private Sub Option3_Click() Text1.FontSize = 18 Text1.FontName = "Courier"
End Sub
框架
框架用来对控件进行分组，即把指定的控件放到 框架中。必须先画出框架，然后在框架内画出 需要成为一组的控件，这样才能使框架内的控 件成为一个整体，和框架一起移动。
End Sub
5 画圆方法
[对象名.]Circle[Step](x,y),r,[color],[start],[end][, 纵横比]
例如 Private Sub Form_Click()
Const pi = 3.1415926 Scale (0, 0)-(100, 100) Circle (50, 50), 30, vbRed, -0.25 * pi, -0.75 * pi
End Sub
Private Sub Command2_Click() End
End Sub
Private Sub Form_Load() Image2.Visible = False Image3.Visible = False
End Sub
6.4 选择控件
6.4.1 复选框和单选按钮的属性和事件
Listcount 返回列表框中表项的个数。 例：下面的过程可以显示列表框中的所有表项。
Private Sub Command1_Click() For i = 0 To List1.ListCount - 1 Print List1.List(i) Next i
End Sub
ListIndex 返回或设置控件中当前选择项目的索引，在设计时不可用。
End Sub
6.2.4 图形方法
1 缺省窗体的大小
Height=3600 (Twip) Width=4800 ScaleHeight=3195 ScaleWidth=4680
2 自定义坐标系
[对象名.]Scale[(xLeft,yTop)-(xRight,yBottom)]
3 画点方法
[对象名.]Pset[Step](x,y)[,颜色]
Private Sub Command1_Click() If Image1.Visible = True Then Image1.Visible = False Image2.Visible = True ElseIf Image2.Visible = True Then Image2.Visible = False Image3.Visible = True Else Image3.Visible = False Image1.Visible = True End If
CurrentX和CurrentY：用来设置下一个输出的水平 和垂直坐标。用于窗体、图片框和打印机，不能用 于图像框。
Picture返回或设置控件中要显示的图片。可用于窗 体、图片框和图像框。
Stretch图像调整属性：用于图像框，图片框无此属 性。设置其值为True时，可以自动调整图形内容的
大小来适应图像框大小的变化。
对窗体上已有的控件，要把它们放到框架中，可 使用“剪切—粘贴”的方法。
6.4.2 列表框和组合框
1 列表框
主要属性：
Columns 确定列表框的列数。如果为0，则为单列显示（内容 大于显示区域增加垂直滚动条）；如果大于等于1，则为多 列显示（内容大于显示区域将增加水平滚动条）。
List 可以列出列表项的内容。可以通过下标访问或改变其值： 格式：对象名称.List(下标) [= 字符串]
Style属性 返回或设置一个值，该值用来指示控件的显示 类型和操作。 值为0：标准样式；值为1：图形格式。
Picture、DownPicture、DisabledPicture属性 单击（Click）事件 命令按钮最常用的事件是单击事件。
（注意命令按钮不支持双击事件。 ）
6.3.2 应用举例
例6.6 模拟交通信号灯切换。
AutoSize属性：用于图片框，返回或设置一个值，以 决定控件是否自动改变大小以显示其全部内容。
可以在图片框中使用的主要方法：
Cls
6.2.2 图形文件的装入
图片框与图像框的区别
图片框是“容器”控件，可作为父控件，图像框不能。 图片框可接收Print方法输出的信息，图像框不能。 图像框比图片框占用的内存少，显示速度快。
6.1.2 文本框
主要属性：
MaxLength（最大字符数）：允许输入的最大字符数 MultiLine（多行属性）：True-可以多行；False-单行（默认） PasswordChar（口令字符属性）：按指定字符显示输入内容，显示的字符
个数和输入的字符个数相同
ScrollBars（滚动条属性）：0-无（默认）；1-水平滚动条；2-垂直；3-水 平和垂直
LostFocus事件：此事件是在一个对象失去焦点时发生， 焦点的丢失或者是由于制表键移动或单击另一个对象 操作的结果，或者是代码中使用 SetFocus 方法改变 焦点的结果。
SetFocus方法：
格式:对象名称.SetFocus
让指定的对象获得焦点。
6.2 图形控件
6.2.1 图片框和图像框
主要属性：
End Sub
6.2.3 直线和形状
主要属性：
BorderColor 返回或设置对象的边框颜色。 BoderStyle 返回或设置对象的边框样式。 BoderWidth 返回或设置控件边框的宽度。 BackStyle 返回或设置控件是否被指定的颜
色填充。 FillStyle 返回或设置填充图案的样式。 FillColor 返回或设置填充图案的颜色。 Shape 形状属性。
SelLength（选中的字符长度）：返回或设置所选择的字符数。 SelStart（起始位置）：返回或设置所选择的文本的起始点；如果没有文本
被选中，则指出插入点的位置。
SelTextБайду номын сангаас选中的文本）：返回或设置包含当前所选择文本的字符串；如果没 有字符被选中，则为空字符串 (“”)。
Text（文本属性）：返回或设置编辑区域中的文本。 Locked（是否锁定）：返回或设置一个值，以指定控件是否被锁定。此属性
例 6-7
Private Sub Form_Click()
Scale (0, 0)-(100, 100) DrawWidth = 5 Line (10, 30)-(10, 80), vbRed Line -(40, 80), vbGreen Line -(10, 30), vbBlue Line (50, 30)-(80, 80), vbRed, BF
End Sub
Private Sub Check2_Click() If Check2.Value = 1 Then Text1.FontItalic = True Else Text1.FontItalic = False End If
End Sub
Private Sub Form_Load() Text1.FontSize = 20
例
Private Sub Command1_Click()
Scale (0, 0)-(200, 200) DrawWidth = 10 PSet (100, 100), vbRed CurrentX = 30 CurrentY = 30 PSet Step(50, 50), vbBlue
End Sub
Step可选的。关键字，指定相对于线的起点的终点坐标。 (x2, y2)必需的。Single （单精度浮点数），直线或矩形的终点坐标。 B可选的。如果包括，则利用对角坐标画出矩形。 F可选的。如果使用了 B 选项，则 F 选项规定矩形以矩形边框的颜色填充。
不能不用 B 而用 F。如果不用 F 光用 B，则矩形用当前的 FillColor 和 FillStyle 填充。FillStyle 的缺省值为 transparent。
End Sub
6.3 按钮控件
6.3.1 属性和事件
Cancel属性 当一个命令按钮的 Cancel 属性设置为 True 而且该窗体是活动窗体时，按ESC键与单击该命令按钮 的作用相同。
Default属性 当一个命令按钮的 Default属性设置为 True 而且其所在窗体是活动的，按 ENTER 键与单击该命令 按钮的作用相同。
例 通过程序改变形状属性。
Private Sub Form_Click() FontSize = 12 CurrentX = 350 Print "0"; For i = 1 To 5 Shape1(i).Left = Shape1(i - 1).Left + 1050 Shape1(i).Shape = i shape1(i).visible=true CurrentX = CurrentX + 750 Print i; Next i
End Sub
例6.11 用单选按钮控制显示不同字体。
Private Sub Option1_Click() Text1.FontSize = 24 Text1.FontName = "Times New Roman"
End Sub
Private Sub Option2_Click() Text1.FontSize = 20 Text1.FontName = "Modern"
4 画直线、矩形方法
[对象名.]Line[[Step](x1,y1)]- [Step](x2,y2)[,颜 色][,B[F]]
Step可选的。关键字，指定起点坐标，它们相对于由 CurrentX 和 CurrentY 属性提供的当前图形位置。
(x1, y1)可选的。Single （单精度浮点数），直线或矩形的起点坐标。 ScaleMode 属性决定了使用的度量单位。如果省略，线起始于由 CurrentX 和 CurrentY 指示的位置。
List1.List(List1.ListIndex)返回当前选择项目的字符串。
Multiselect 指示能否进行复选以及如何进行复选。在运行时是只读的。 0 （缺省值）不允许复选。 1 简单复选。 2 扩展复选。可以使用Shift、Ctrl键。
Selected 返回或设置一个项的选择状态。在设计时是不可用的。格式：
Style属性 指定复选框或单选按钮的显示方式。0:标准;1:图形 单击(Click)事件 复选框和单选按钮都可以接收Click事件。
例6.10 用复选框控制文本显示方式。
Private Sub Check1_Click() If Check1.Value = 1 Then Text1.FontUnderline = True Else Text1.FontUnderline = False End If
Value属性 复选框的Value属性：
0——未选定 1——选定 2——禁止状态
单选钮的Value属性：
True ——选定 False ——未选定
Alignment属性 设置或返回一个值，决定复选框和单选钮控 件中的文本的对齐方式。
0 —— （缺省值）控件居左，标题在控件右侧。 1 ——控件居右，标题在控件左侧。
在设计阶段装入图形文件
用属性窗口中的Picture属性装入 利用剪贴板把图形粘贴到窗体、图片框或图像框
中
在运行期间装入图形文件
[对象.]Picture=LoadPicture("文件名")
例6.2 交换两个图片框中的图形。
Private Sub Form_Click() Picture3.Picture = Picture1.Picture Picture1.Picture = Picture2.Picture Picture2.Picture = Picture3.Picture Picture3.Picture = LoadPicture()