vb画线,点

End Sub
Public Function Cir1(x As Single)
Form1.Circle (Form1.ScaleWidth / 2, Form1.ScaleHeight / 2), x, vbRed
End Function
Private Sub cmdClear_Click()
把“Dim graph As Graphics = Me.CreateGraphics”挪到“Button1_Click”事件内，调试过成功！
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Line (X1, Y1)-(X2, Y2), , B
X1 = X2
Y1 = Y2
End Sub
（3）设计一个能分别输入边长和半径，并计算出正方形和圆面积的程序。程序界面自行设计，用二个命令按钮驱动正方形和圆面积的计算，二个文本框输入边长和半径。在界面上生成一个圆和一个正方形形状控件，实心，内填红色，在计算面积时其大小随参数同步变化。边长和半径的单位为缇。
Form1.Cls
End Sub
Private Sub cmdRectangle_Click()
x_rectangle = txtRectangle '接收正方形的边长
Rec1 (x_rectangle)
End Sub
Public Function Rec1(y As Single)
Dim g As Graphics = PictureBox1.CreateGraphics
g.DrawLine(Pens.Red, a, b, e.X, e.Y)
g.Dispose()
End Sub
End Class
点的画法
线的画法
a = e.X
b = e.Y
g.Dispose()
End Sub
Private Sub PictureBox1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp
End Function
Private Sub Form_Load()
End Sub
（4）画出矩形具体的要设置的属性主要是FILLSTLLE为0,FILLCOLOR为红色
Private Sub form_Click()
Line (600, 600)-(5000, 600)
Line (600, 600)-(600, 2000)
Y1 = Me.ScaleHeight / 2
End Sub
Private Sub Timer1_Timer()
Randomize
X2 = Int(101 * Rnd) * 10 '这里我乘了10,如果生成0-100的数,在坐标系上太小了,看不清
Y2 = Int(101 * Rnd) * 10
Dim g As Graphics = PictureBox1.CreateGraphics
g.DrawEllipse(Pens.Red, New RectangleF(e.X, e.Y, 2, 2))
g.FillEllipse(Brushes.Red, New RectangleF(e.X, e.Y, 2, 2))
End Class
（2）画点
Private Sub Picture1_Click()
Const PI As Single = 3.1415926
Picture1.ScaleMode = 3
Picture1.Scale (-2 * PI, 2)-(2 * PI, -2)‘为什么要乘个3.1415926啊。
Dim x_radius As Single, x_length 'x_radius标识圆的半径，x_length标识矩形的长度
Private Sub cmdCircle_Click()
x_radius = txtRadius '接收圆半径的值
Cir1 (x_radius)
PictureBox1.BackColor = Color.White
End Sub
Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
Dim graph As Graphics = Me.CreateGraphics
Dim pen2 As Pen = New Pen(Color.Green, 3)
graph.DrawLine(pen2, 400, 400, 500, 200)
End Sub
Picture1.PSet (0, 0), RGB(0, 0, 255) 'terval设置为800
Option Explicit
Dim X1, Y1, X2, Y2
Private Sub Form_Load()
X1 = Me.ScaleWidth / 2
Form1.Line (Form1.ScaleWidth / 2 + 1000, Form1.ScaleHeight / 2 + 1000)-(Form1.ScaleWidth / 2 + 1000 + y, Form1.ScaleHeight / 2 + 1000 + y), vbRed, B
在vb中画线和点的集合
（1）vb画线
Public Class Form1
Dim a As Single
Dim b As Single
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Picture1.ForeColor = RGB(255, 255, 0)
Picture1.DrawWidth = 3
Picture1.Line (0, -2)-(0, 2)
Picture1.Line (-2 * PI, 0)-(2 * PI, 0) '绘制X轴和Y轴
Picture1.DrawWidth = 8
Line (600, 2000)-(5000, 2000)
Line (5000, 600)-(5000, 2000)
End Su
（5）VB用LINE画直线
line(x1.y1,x2.y2)