Question

vb里面怎么自动画出直线

例如此图先在text1里面输入几个角点，比如是7个，然后依次按坐标画出这个图形的形状（闭合）不一定是7个点，至少有3个点以上，输入左边画图，坐标也有大有小，小的是个位数，大的上千万
Private Sub Command1_Click()
Dim b()
Dim c()
Dim s
Dim i As Integer
If Int(Val(Text1)) >= 3 Then
ReDim b(1 To Int(Val(Text1)))
ReDim c(1 To Int(Val(Text1)))
For i = 1 To Val(Text1)
b(i) = InputBox("请输入第" & i & "个坐标X", "shuru", "235")
c(i) = InputBox("请输入第" & i & "个坐标y", "shuru", "667")
Next
For i = 1 To UBound(b) - 1
s = s + b(i) * c(i + 1) - c(i) * b(i + 1)
Next i
s = s + b(i) * c(1) - c(i) * b(1)
Text2.Text = Abs(s) / 2
Line1.X1 = b(i)
Line1.Y1 = c(i)
Else
MsgBox "请输入大于等于3的数"
End If
End Sub
这是读取坐标计算的代码 怎么把这些坐标自动画图形呢 因为没积分 所以抱歉了 谢谢

Answer 1

Private Sub Form_Load()
Me.Height = 9000
Me.Width = 9000
Me.AutoRedraw = True
End Sub
Private Sub Command1_Click()
Dim b()
Dim c()
Dim s
Dim i As Integer
If Int(Val(Text1)) >= 3 Then
ReDim b(1 To Int(Val(Text1)))
ReDim c(1 To Int(Val(Text1)))
For i = 1 To Val(Text1)
b(i) = InputBox("请输入第" & i & "个坐标X", "shuru", "235")
c(i) = InputBox("请输入第" & i & "个坐标y", "shuru", "667")
Next
For i = 1 To UBound(b) - 1
s = s + b(i) * c(i + 1) - c(i) * b(i + 1)
Me.Line (b(i), c(i))-(b(i + 1), c(i + 1))
Next i
Me.Line (b(1), c(1))-(b(i), c(i))
s = s + b(i) * c(1) - c(i) * b(1)
Text2.Text = Abs(s) / 2
Else
MsgBox "请输入大于等于3的数"
End If
End Sub

Answer 2

将坐标按以下方式放入Me.Line （起点坐标）-（终点坐标）
Private Sub Form_Load()
Me.Show
Me.Line (100, 100)-(500, 500), vbRed
End Sub

追问

不知道怎么放啊

追答

Private Sub Command1_Click()
me.AutoRedraw=True
...................你原来的代码

For i = 1 To Val(Text1)-1
Me.Line (b(i), c(i))-(b(i+1), (c(i+1)), vbRed
Next

End Sub

追问

Me.Line (b(i), c(i))-(b(i+1), (c(i+1)), vbRed 这句提示错误 怎么回事啊 谢谢啊

追答

已测试
Private Sub Command4_Click() Dim b()
Dim c()
Dim s
Dim i As Integer
Me.AutoRedraw = True
If Int(Val(Text1)) >= 3 Then
ReDim b(1 To Int(Val(Text1)))
ReDim c(1 To Int(Val(Text1)))
For i = 1 To Val(Text1)
b(i) = InputBox("请输入第" & i & "个坐标X", "shuru", "235")
c(i) = InputBox("请输入第" & i & "个坐标y", "shuru", "667")
Next
For i = 1 To UBound(b) - 1
s = s + b(i) * c(i + 1) - c(i) * b(i + 1)
Next i
s = s + b(i) * c(1) - c(i) * b(1)
' Text2.Text = Abs(s) / 2
'Line1.x1 = b(i)
'Line1.y1 = c(i)
Else
MsgBox "请输入大于等于3的数"
End If
For i = 1 To Val(Text1) - 1
Me.Line (b(i), c(i))-(b(i + 1), c(i + 1)), vbRed
Next
End Sub

追问

最后问一下啊 这个画出来的图形太小了 看不清 怎么让他输入的坐标值 无论大小能绘出图形啊
并且看的清除 大小一致 谢谢了

追答

通过设置坐标单位： Me.ScaleMode = 1 缇 ，2 点，3 像素 ，4 字符，5 英寸 6 mil 7 厘米；

Answer 3

请看我在另一位的回答，或许对你有用。
http://zhidao.baidu.com/question/509011800.html?oldq=1