82形状控件和直线控件 武职北技术学 1.填充方式— Fill Sty|e属性 下图是形状控件的 FillSty le属性设置为08时的填充效果 .Fi1 IStyle属性 0 2 5 6 说明: (1) FillStyle为0是实填充,1为透明方式。填充图案的颜 色由 FillCoor属性来决定。 (2)对于窗体和图片框对象, Fillstyle属性设置后,并不 能看到其填充效果,而只能在使用 Circle和Line图形方法 生成的圆和方框时,在圆和方框中显示其填充效果
8.2 形状控件和直线控件 1．填充方式 ——FillStyle属性 下图是形状控件的FillStyle属性设置为0~8时的填充效果 说明： （1）FillStyle为0是实填充，1为透明方式。填充图案的颜 色由FillColor属性来决定。 （2）对于窗体和图片框对象，Fillstyle属性设置后，并不 能看到其填充效果，而只能在使用Circle 和 Line 图形方法 生成的圆和方框时，在圆和方框中显示其填充效果
82形状控件和直线控件 武汉职北技术学恍 例8.2编写一个程序显示 Shape控件的6种形状,并设置不同的填充 样式。 i Form1 口 图8.3 Shape控件的形状 Private Sub Form Cl ick o Shape1(0 Shape 0 Shape1(0). Fi l IStyle=2 Print 0:
8.2 形状控件和直线控件 例8.2 编写一个程序显示Shape控件的6种形状，并设置不同的填充 样式。 Private Sub Form_Click() Shape1(0).Shape = 0 Shape1(0).FillStyle = 2 Print 0;
8,2形状控件和直线控件 武汉职业技术学碗 For i= 1 To 5 Shape1 (i). Left Shape1(i-1). Left 1000 Shape1(i). Shape Shape1 (i). Fi l IStyle =i+2 Cur rent Currentx 850 Print i Next End sub
Shape1(i).Shape = i Shape1(i).FillStyle = i + 2 CurrentX = CurrentX + 850 Print i; Next End Sub For i = 1 To 5 Shape1(i).Left = Shape1(i - 1).Left + 1000 8.2 形状控件和直线控件
82形状控件和直线控件 武职北技术学 8.2.2线控件Line 对于线控件来说,程序运行时最重要的属性是“X1 Y1”“X2”、“Y2”属性,这些属性决定着线显示时的位 置坐标,“X1”属性设置(或返回)了线的最左端水平位置 坐标,“Y1”属性设置(或返回)了最左端垂直坐标, “X2”、“Y2”则表示右端的坐标。 利用线与形状控件,用户可以迅速地显示简单的线与 形状或将之打印输出,与其他大部分控件不同的是,这 两种控件不会响应任何事件,它们只用来显示或打印
8.2 形状控件和直线控件 8.2.2 线控件Line 对于线控件来说，程序运行时最重要的属性是“X1” 、 “Y1” 、 “X2” 、 “Y2”属性，这些属性决定着线显示时的位 置坐标， “X1”属性设置（或返回）了线的最左端水平位置 坐标， “Y1”属性设置（或返回）了最左端垂直坐标， “X2” 、 “Y2”则表示右端的坐标。 利用线与形状控件，用户可以迅速地显示简单的线与 形状或将之打印输出，与其他大部分控件不同的是，这 两种控件不会响应任何事件，它们只用来显示或打印