UC知道vb.net 问题
来源：百度知道 编辑：UC知道 时间：2024/05/28 05:06:14
在窗体的load事件中添加以下代码，
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim g As Graphics = Me.CreateGraphics
Dim p As Pen = New Pen(Color.Red, 1)
Label1.Text = CStr(DateTime.Now)
Timer1.Enabled = True
g.DrawLine(p, 125, 125, 125 + CInt(100 * Math.Cos(3.14 / 4)), 125 + CInt(100 * Math.Sin(3.14 / 4)))
End Sub
为什么看不到那条直线？？
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim g As Graphics = Me.CreateGraphics
Dim p As Pen = New Pen(Color.Red, 1)
Label1.Text = CStr(DateTime.Now)
Timer1.Enabled = True
g.DrawLine(p, 125, 125, 125 + CInt(100 * Math.Cos(3.14 / 4)), 125 + CInt(100 * Math.Sin(3.14 / 4)))
End Sub
为什么看不到那条直线？？
你的代码不要放在窗体的LOAD事件中，而要放在PAINT事件中，因为窗体在LOAD事件后要进行背景重绘，把你画的线檫掉了，而放在PAINT事件中就可以看到了。
同意楼上说法
我试了一下就是那原因