Question

VB.net如何在图片picturebox上画直线，我这个代码任何线都画不出来；

Public Sub Form1_Load() Handles MyBase.Load, PictureBox1.Paint
Dim g As Graphics = PictureBox1.CreateGraphics()
g.DrawLine(Pens.Blue, 0, 150, 400, 150)
g.DrawLine(Pens.Blue, 200, 0, 200, 300)
End Sub

而当我把Dim g As Graphics = PictureBox1.CreateGraphics()改为Dim g As Graphics = Me.CreateGraphics()他就能在form窗体上画出来线
我最终的目的是想写一个在picturebox上绘制曲线，而且又可以在其他函数里调用该绘制函数的VB.net代码。求大神完整例程

Answer 1

Dim g As Graphics = e.Graphics

追问

Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As PaintEventArgs) Handles PictureBox1.Paint
e.Graphics.DrawCurve(Pens.Red, Points)
这样定义函数是可以的 ，但是这样怎么在其他sub里面调用？我不会，于是我就写了上面没有参数的函数

追答

其他sub里你可以用graphics g做形参，然后用e.Graphics做实参。

追问

初学者 。。。。。还是没看懂 e 和g怎么定义怎么调用

追答

具体想做什么。

追问

终极的目的是想画一个不断移动的曲线，就像示波器一样，波形在左移。
细一点，我想通过定时器里面调用在picturebox里绘制曲线，来实现波形更新
对于这种含参的函数，如何调用我一直没搞清楚，现在我在尝试不含参的函数，但是就遇到了我提问时的问题

追答

你说的这个功能用你最开始的代码有什么问题？

追问

我的标题写得有歧义吗？
直接一点！！！！如何在其他sub调用下面的sub

如何调用这个链接回答里的sub
http://zhidao.baidu.com/question/711476608991688805.html

追答

可以在一个按钮里放所有语句，统一用PictureBox1.CreateGraphics()，这样适合你这种初学者。e.Graphics有点不好理解。