VB程序设计第六章说课材料.ppt

Visual Basic 程序设计教程

内蒙古科技大学实践训练中心
第六章 常用控件
图形控件
图片框和图像框
1、图片框 (PictureBox)
ape属性值
形状
0
矩形(默认)
1
正方形
2
椭圆
3
圆
4
圆角矩形
5
圆角正方形
另：BorderColor：设置形状的边框颜色；
FillStyle：填充类别，取值范围：0-7，分别表示不同的填充方式
FillColor：形状的填充颜色
图形控件
形状(Shape)和直线(Line)
2、直线(Line)
功能：用来画水平线、垂直线或对角线。
通过设置该控件的位置、长度、颜色、宽度、线型等属性可产生不同风
格的、不同颜色的直线。
⑴BorderStyle：用于设置线条的类型；
BorderStyle属性值
形状
0
透明线
1
实线(默认值)
2
虚线(BorderWidth＝1时有效)
3
点线(BorderWidth＝1时有效)
4
点划线(BorderWidth＝1时有效)
5
双点划线(BorderWidth＝1时有效)
6
内收实线，边框的外边界就是形状的外边缘
图形控件
形状(Shape)和直线(Line)
2、直线(Line)
⑵BorderWidth：用于设置线条的宽度，即线条的粗细；
⑶BorderColor：由于设置线条的颜色；
例[6-1_3] 形状控件实例。在窗体上利用形状控件画一个矩形，名称为
Shape1，高和宽分别为1000、1700；再画两个命令按钮，名称分别为
command1、command2，标题分别为“绿色椭圆”，“红色圆”。
解题思路：形状的属性shape＝2为椭圆；形状的属性shape＝3为圆；
Private Sub Command1_Click()
= 2 'shape＝2为椭圆
= vbGreen '边框为绿色
End Sub
Private Sub Command2_Click()
= vbRed '边框颜色为红色
= 3 'shape＝3为圆
End Sub
图形控件
形状(Shape)和直线(Line)
例[6-1_4] 用形状控件和直线控件绘制直方图。
解题思路：首先画出x轴(line1)和y轴(line2)，根据输入的四个值；
首先确定四个标签（显示输入值）的位置；
用输入的四个值来代替四个形状的高度(Height)；
再根据其代表的值确定形状的顶部坐标（TOP）；
label1
label2
label3
label4
(x1,y1)
(x1,y2)
(x2,y1)
height
top
Line1
Line2
图形控件
图形方法
使用绘图方法，首先确定所画图形的位置，这就需要先确定坐标系。
当新建一个窗体时，新窗体采用缺省坐标系，坐标原点在窗体左上角，
Height＝3600，Width＝4800，
Scale Height＝3195，Scale Width＝4680。
其中：Scale Height 和Scale Width为窗体的实际可用的高度和宽度。
自定义坐标系的方法：
[对象名].Scale[(xLeft，yTop)－(xRight，yBottom)]
其中：(xLeft，yTop)、(xRight，yBottom)为对象左上角和右下角坐标
窗体
xleft,ytop
左上角坐标
右下角坐标
xright,ybottom
图形控件
图形方法
1、画点方法(Pset)
用于在指定的位置以指定的颜色画点。
格式： [对象名].Pset [step] (x,y) [,