最近开始学习VB,想编个界面与单片机通信,在收到单片机的数据后,弹出一窗体绘制波形,怎么也不能成功. 弹出的窗体不会自动画图,非要点击一个Command后才会开始绘图.要怎样才能让它在窗体一弹出来就开始画图呢?
我现在只是做个测试,测试成功了才会去弄要用的程序.我是在form1中写form2.show,以下为form2中代码
Private Type Point
X As Double
Y As Double
End Type
Dim cPoint(360) As Point
Private Function Draw(ByVal XLen As Long, ByVal YLen As Long)
For i = 0 To 360
cPoint(i).X = XLen / 360 * i + 1000
cPoint(i).Y = YLen * Sin(i * 3.1415926 / 180) + 1200
Next
End Function
Private Sub Form_Load()
Draw 5000, 1000
For i = 1 To 360
Me.Line (cPoint(i - 1).X, cPoint(i - 1).Y)-(cPoint(i).X, cPoint(i).Y)
Next
End Sub
资料表明在程序运行的最初,form2就已经运行了,所以不能再用load了,但是我只是让它画一条正弦波而已,当form2.show的时候正弦波应该会显示才对吧?
|