除了可以用Shape控件和Line控件绘图外,还可以用绘图方法画图,最有用的绘图方法包括:Line方法——它可以创建直线、矩形、或实心方框;Circle方法——可以生成圆、椭圆、或“饼图扇面”;Pset——可在屏幕上为单独象素设置颜色。 Circle方法、Line方法画图的语法结构为: 画圆:对象.Circle(x,y),r[,颜色]; 画直线:对象.Line(起点坐标)-(终点坐标)[,颜色] 画矩形:对象.Line(左上角坐标)-(右下角坐标)[,颜色],B[F]——F表示实心,B和F之间没有标点。 例:画正方形。 代码: Option Explicit Dim i As Integer Private Sub Command1_Click() For i = 1 To 6 Picture1.Line (500 * i, 500 * i)-(500 * (i 1), 500 * (i 1)), QBColor(i), BF Next i End Sub
Private Sub Command2_Click() End End Sub
[程序演示] [程序下载] |