vb课件ppt.pptVIP

上节课内容回顾 单选按钮的value 属性（True、False） 复选框的value属性(0未被选中，1选中，2灰色) 时钟：Enabled（默认）、Interval属性、Timer事件 滚动条：value（默认值0） 列表框：Multiselect(0,1,2)、Selected(i)、Style(0,1) 列表框组合框共有属性： List(i)、ListCount、ListIndex、Sorted、Text(默认) 列表框组合框共有方法： AddItem、RemoveItem、Clear 第8章 绘图控件 8.3 Shape和Line控件 8.4 Image和PictureBox控件 本章要求 知道常用控件的主要属性、方法和事件。 会用标准控件设计界面（掌握） 图形控件 Shape控件主要属性 Shape属性 FillStyle属性 注意 Shape控件不响应任何事件。 只用来显示和打印。 例8.2：编程在窗体上通过命令按钮让 Shape控件根据其不同的Shape属性值 显示不同的图形。 Private Sub Command1_Click() Shape1.Shape = vbShpapeRectangle 0 End Sub 设置为矩形 Private Sub Command2_Click() Shape1.Shape = vbShapeSquare 1 End Sub 设置为正方形 Private Sub Command3_Click() Shape1.Shape = 2 设置为椭圆 End Sub Private Sub Command4_Click() Shape1.Shape = 3 设置为圆 End Sub Private Sub Command5_Click() Shape1.Shape = 4 设置为圆角矩形 End Sub Private Sub Command6_Click() Shape1.Shape = 5 设置为圆角正方形 End Sub 思考： 用控件数组如何实现例8.2的功能？ Private Sub Command1_Click(Index As Integer) If Index = 0 Then Shape1.Shape = vbShpapeRectangle 0 ElseIf Index = 1 Then Shape1.Shape = 1 ElseIf Index = 2 Then Shape1.Shape = 2 ElseIf Index = 3 Then Shape1.Shape = 3 ElseIf Index = 4 Then Shape1.Shape = 4 ElseIf Index = 5 Then Shape1.Shape = 5 End If End Sub Line控件 功能： 仅用于画线，用在窗体、图片框、框架中 画各种直线段。 主要属性： BorderStyle属性：设置线条的类型。 BorderWidth属性：设置线条的宽度，即粗细。 BorderColor属性：指定线段的颜色。 x1、y1和x2、y2，控制线条的两个端点的位 置。 例8.3 用直线将窗体垂直分为两部分。 思考： 水平分割窗口如何做？ Private Sub Form_Resize() Line1.X1 = 0 Line1.Y1 = Me.ScaleHeight / 2 Line1.X2 = Me.ScaleWidth 水平分割窗口 Line1.Y2 = Line1.Y1 End Sub 例8.9：在窗体上画一条直线，宽度为1，画 一个命令按钮，标题为“变粗”。单击命令按 钮后，直线的宽度值变为8。Line形状，在图 片框中画出相应的图形。在窗体上再画一个 水平滚动条，要求根据水平滚动条的长度改 变Line1的长度（此时改变宽度为8的直 线）。界面如下： Private Sub Command1_Click() Line1.BorderWidth = 8 End Sub Private Sub HScroll1_Change() Line1.X2 = Line1.X1 + HS