如何应用VB的Picturebox画三角形，多边形

用鼠标控制，进行选点

用PictureBox.Line方法就可以画直线了。直线的起点终点由PictureBox的MouseDown事件获取，就可以绘制任意多边形了。

是不是要这种形式的？ 画一个picture1，在picture1里再画一条line1（控件） Dim X0 As Integer, Y0 As Integer Dim flag As Boolean Private Sub Form_Load() Line1.Visible = False Picture1.AutoRedraw = True Line1.BorderColor = vbRed End Sub Private Sub Picture1_DblClick() '双击清除 Picture1.Cls End Sub Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then flag = True X0 = X: Y0 = Y Line1.X1 = X Line1.Y1 = Y End If End Sub Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If flag = True Then Line1.Visible = True Line1.X2 = X Line1.Y2 = Y End If End Sub Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then flag = False Line1.Visible = False Picture1.Line (X0, Y0)-(X, Y), vbRed End If End Sub

Dim X0 As Integer, Y0 As Integer Dim flag As Boolean Private Sub Form_Load() Line1.Visible = False Picture1.AutoRedraw = True Line1.BorderColor = vbRed End Sub Private Sub Picture1_DblClick() 双击清除 Picture1.Cls End Sub Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then flag = True X0 = X: Y0 = Y Line1.X1 = X Line1.Y1 = Y End If End Sub Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If flag = True Then Line1.Visible = True Line1.X2 = X Line1.Y2 = Y End If End Sub 后面的我懒得写了自己慢慢算吧。 再看看别人怎么说的。