VB中使用line语句绘制直线为什么看不见效果？

显示全部楼层 · 2010-8-13 23:28:02

我的程序是这样的：
Private Sub Form_Load()
Dim x As Integer
For x = 1 To 10 Step 2
Form1.DrawWidth = x
Form1.Line (20, 20 * x)-(200, 20 * x), RGB(255, 0, 0)
Next x
End Sub
但是在运行的时候FORM上没有任何东西出现

千问 · 2010-8-13 23:28:02

可能要先设置Form1的AutoRedraw属性为True然后把这段代码改到Form1_Click()或者其他事件里面，总之等窗体加载完再绘制

千问 · 2010-8-13 23:28:02

form load使用误区应该是这样的Private Sub Form_Activate()Dim x As IntegerFor x = 1 To 10 Step 2Form1.DrawWidth = xForm1.Line (20, 20 * x)-(200, 20 * x), RGB(255, 0, 0)Next x

千问 · 2010-8-13 23:28:02

不能放在Form_Load()事件中这时FORM 还未生成呢！放在其他事件（如click）中就不会出现你的问题了！你试试看

千问 · 2010-8-13 23:28:02

是没有看到画出来的曲线还是别的什么问题?如果是看不到画出来的曲线的话，有可能是因为你没有把窗体的AutoRedraw属性设为true，你让Form1.autoredra=true试试，不行的话Hi我讨论