Question

vb2010中怎样调用e.Graphics.DrawLine，急急急！

子程序：
Sub DrawLineInt(ByVal e As PaintEventArgs)

' Create pen.
Dim blackPen As New Pen(Color.Black, 3)

' Create coordinates of points that define line.
Dim x1 As Integer = 100
Dim y1 As Integer = 100
Dim x2 As Integer = 500
Dim y2 As Integer = 100

' Draw line to screen.
e.Graphics.DrawLine(blackPen, x1, y1, x2, y2)
End Sub

程序中怎样调用DrawLineInt
不在下列子程序状态下
Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
PictureDmht(e)
End Sub

函数e.Graphics.DrawLine怎样声明才能使用

Answer 1

调用的时候，在picturebox的paint事件中，

 Call DrawLineInt(e)

这样就没问题啊。你的子程序写的很对啊。效果如下：

但是 PictureDmht(e)，你的这个调用的子程序，是什么？

Answer 2

用PictureBox
Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
Call DrawLineInt(e)
End Sub