16,555
社区成员
发帖
与我相关
我的任务
分享vb.net中如何在Picture控件中画线
在vb中可以根据实时数据在Picture控件中绘制实时曲线,但是在vb.net中picture控件不再提供line和pset方法.请问在vb.net中,该如何在Picture控件中实现原来的曲线绘制功能?
...全文
请发表友善的回复…
发表回复
lgh21cn 2003-10-14
- 打赏
- 举报
在benlee(寂寞成双) 提供的网页上,我并没有看到代码.
lgh21cn 2003-10-14
- 打赏
- 举报
lz305理解错误了我的意思,该实时曲线是通过Timer事件实现的,没有鼠标动作. 不过通过你的代码,我已经找到实现的方法,谢谢!
benlee 2003-10-11
- 打赏
- 举报
http://yang.dl2004.com/702922/bbs/dispbbs.asp?boardID=9&ID=42
上面是.net画图的源代码，希望对你有帮助
上面是.net画图的源代码，希望对你有帮助
lz305 2003-10-11
- 打赏
- 举报
Private oldx,oldy as int16
Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
oldx = e.X
oldy = e.Y
End Sub
Private Sub PictureBox1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp
Dim pen As System.Drawing.Pen
pen = System.Drawing.Pens.Black
PictureBox1.CreateGraphics.DrawLine(pen, oldx, oldy, e.X, e.Y)
End Sub
Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
oldx = e.X
oldy = e.Y
End Sub
Private Sub PictureBox1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp
Dim pen As System.Drawing.Pen
pen = System.Drawing.Pens.Black
PictureBox1.CreateGraphics.DrawLine(pen, oldx, oldy, e.X, e.Y)
End Sub
NoReady 2003-10-11
- 打赏
- 举报
lz305(vincoer)对了
