7.图形操作

　　自定义卓标系统举例

　　Private Sub Form_Load()

　　Scale (300, 200)-(3000, 4000)

　　End Sub

　　1' 画点

　　Private Sub Form_Click()

　　For i = 1 To 1000

　　Randomize

　　PSet (ScaleWidth * Rnd, ScaleHeight * Rnd), RGB(255 * Rnd, 255 * Rnd, 255 * Rnd)

　　Next i

　　End Sub

　　2,划线画矩形

　　Private Sub Picture1_Click()

　　Picture1.FillStyle = 0，不设置这个就不能填充

　　Picture1.AutoRedraw = True,制动从画

　　Picture1.ForeColor = vbRed '边框就是红的了啊

　　Picture1.FillColor = vbGreen

　　Picture1.DrawStyle = 3

　　Picture1.Line (100, 200)-(4000, 500) '划线

　　Picture1.Line -(4000, 5000) '从当前坐标来画

　　Picture1.Line (100, 200)-(4000, 500), , B '空架子的矩形

　　Picture1.Line (4400, 2600)-(4000, 500), , BF '填满的矩形

　　End Sub

　　3.画圆。椭圆，圆弧。扇形

　　对象，CIRCLE(X,Y),R【颜色】，【起始角】，【终止角】，【边比率】

　　Private Sub Picture1_Click()

　　Picture1.Circle (3000, 5000), 300, QBColor(6) ' 画圆

　　Picture1.Circle (3000, 5000), 300, QBColor(6), , , 3 椭圆

　　Picture1.Circle (3000, 5000), 300, QBColor(6), , 0, 3.14 / 2 圆弧

　　Picture1.Circle (3000, 5000), 300, QBColor(6), , -0.0001, -3.14 / 2 扇形

　　End Sub

　　A,画圆

　　Private Sub Picture1_Click()

　　With Picture1

　　.FillStyle = 0 '当他是1 时就是不填充，默认是1

　　.Width = Form1.Width

　　.Height = Form1.Height

　　.FillColor = RGB(Rnd(255), 88, Rnd(255))

　　.DrawWidth = 8

　　Picture1.Circle (3000, 6000), 6000, vbRed

　　End With

　　End Sub

　　B,画圆胡

　　Private Sub Picture1_Click()

　　With Picture1

　　Picture1.Circle (3000, 6000), 6000, vbRed, 1, 5 这儿最好把 Picture1写上，不然就要出错

　　End With

　　End Sub

　　C，画扇形

　　Private Sub Picture1_Click()

　　With Picture1

　　Picture1.Circle (3000, 6000), 6000, vbRed, -1, -5 '是符号就是画的扇形

　　End With

　　End Sub

　　D,画椭圆

　　Private Sub Picture1_Click()

　　With Picture1

　　Picture1.Circle (3000, 6000), 6000, vbRed, , , 0.3 '画的是椭圆。

　　End With

　　End Sub

　　注意with ，，，，END with 方法的利用不能省略对象

　　实例。。。

　　Private Sub CIRCLE_Click()

　　Picture1.Cls

　　Picture1.Circle (300, 400), 2000

　　Label1.Caption = "RIRCLE"

　　End Sub

　　Private Sub DS_Click()

　　Label1.FontSize = 23

　　End Sub

　　Private Sub F_Click()

　　End

　　End Sub

　　Private Sub GREEN_Click()

　　Picture1.ForeColor = vbGreen '这样写实为了，，如果没新点击GREEN 颜色就没用了

　　Picture1.Cls

　　Picture1.Circle (300, 400), 2000

　　Label1.Caption = "RIRCLE" '这样写实为了，，如果没新点击GREEN 颜色就没用了

　　End Sub

　　Private Sub LIND_Click()

　　Picture1.Cls

　　Picture1.Line (500, 500)-(1000, 1000)

　　Label1.Caption = "LINE"

　　End Sub

　　Private Sub RED_Click()

　　Picture1.ForeColor = vbRed

　　Picture1.Cls

　　Picture1.Line (500, 500)-(1000, 1000)

　　Label1.Caption = "LINE"

　　End Sub

　　Private Sub SFD_Click()

　　Label1.FontSize = 44

　　End Sub