- 1
- 0
- 约1.52千字
- 约 37页
- 2018-06-03 发布于上海
- 举报
图形操作与多文档窗体
本章要点;;2、项目分析;3、项目实现;4、相关知识点;包括5个属性(ScaleLeft、ScaleTop、ScaleWidth、ScaleHeight、ScaleMode)
1个方法(Scale)
ScaleTop、ScaleLeft属性用于控制容器对象左边和顶端的坐标,根据这两个属性值可形成坐标原点。
;属性设置;二、自定义坐标系;1.用AutoRedraw创建持久的图形;2、使用CurrentX、CurrentY设置当前坐标
(1)窗体或图形框或打印机的CurrentX、CurrentY属性给出这些对象在绘图时的当前坐标。
(2)这两个属性在设计阶段不能使用。当坐标系确定后,坐标值(x,y)表示对象上的绝对坐标位置。
(3)如果坐标值前加上关键字Step,则坐标值(x,y)表示对象上的相对坐标位置,即从当前坐标分别平移x、y个单位,其绝对坐标值为(CurrentX+x,CurrentY+y)
(4)使用CLS方法后,CurrentX、CurrentY属性值为0。 ;3、用DrawWidth和DrawStyle属性设置 线宽与线型
窗体、图形框或打印机的DrawWidth属性给出这些对象上所画线的宽度或点的大小。DrawWidth属性以像素为单位来度量,最小值为1。
例6.2 用DrawWidth属性改变直线宽度。; 窗体或图形框或打印机的DrawStyle属性给出这些对象上所画线的形状。; 4、填充与色彩
由Fillstyle、Fillcolor这两个属性决定封闭图形的填充方式。
(1)Fillcolor指定填充图案的颜色,默认的颜色与Forecolor相同。
(2)FillStyle属性取值0~7,用来指定填充的图案,共有8种内部图案。;4、相关知识点;1、画点(Pset方法);2、项目实例实现 (演示);直线格式:
[对象.] Line[[Step](x1,y1)]-[Step](x2,y2)[,Color];举例:
Private Sub Command1_Click()
Line (1000, 1000)-(2000, 2000)
Line -(300, 3000)
Picture1.Line (100, 500)-Step(2000, 2000)
Picture1.Line (1500, 1500)-Step(200, 200), vbBlue
End Sub
;矩形格式:
[对象.] Line[[Step](x1,y1)]-[Step](x2,y2)[,Color],B[F]; 怎样在窗体上绘制一幅颜色、大小各不相同的彩环?;格式:
[对象.] Circle[Step](x,y),半径[,[,Color][,[起始角]
[,[终止角][,纵横比]]]]
;4、相关知识点;Private Sub Command1_Click()
X = Form1.Width
Y = Form1.Height
For I = 1 To 10
R = Rnd * Y * 0.1
Circle (X * Rnd, Y * Rnd), R, QBColor(I)
Next I
End Sub;4、相关知识点;4、相关知识点;4、相关知识点;6.2 电子相册;6.2 电子相册;6.2 电子相册;6.2 电子相册;6.2 电子相册;6.2 电子相册;6.2 电子相册;6.2 电子相册;6.2 电子相册;6.2 电子相册;6.2 电子相册
原创力文档

文档评论(0)