谁懂得用vb来描点画图

显示全部楼层 · 2009-6-11 12:54:46

可以scale建立坐标系自定义离散点 windows API函数Line方法

千问 · 2009-6-11 12:54:46

Scale (-300, -300)-(300, 300)DrawWidth = 3PSet (c(1), d(1)), vbGreenFor xx = 2 To 300Line -(c(xx), d(xx)), vbGreenNext xx加这几行程序就可以画出来了

千问 · 2009-6-11 12:54:46

Private Sub Form_Click()Scale (-100, 100)-(100, -100) '定义坐标系'以上四个参数分别为窗体左上角的x值，左上角的y值，右下角的x值，右下角的y值Line (-100, 0)-(100, 0) '画出横坐标轴 [点 (-100,0) 到点 (100,0) ]Line (0, 100)-(0, -100) '画出纵坐标轴 [点 (0,100) 到点 (0,-100) ]Line (-12, 10)-(26, 90) '连接任意两点[(假设是(-12,10)和(26,90)]End Sub