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

2024-12-22 22:38:13

推荐回答（4个）

回答1：

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

回答2：

form load使用误区
应该是这样的

Private Sub Form_Activate()
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
用active事件

回答3：

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

回答4：

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