急，计算机图形学相关，给100分

neowang 2003-01-03 05:47:29

小弟最近为此焦头烂额，下周一就要交差了，但至今没有什么头绪，主要是对vb不熟。
问题是：
1.在窗体上用鼠标画直线（要求有橡皮筋的效果）
2.在窗体上用鼠标画圆（要求有橡皮筋的效果）
3.多边形的裁剪
4.多边形的填充
顺便想问一下vb里面的开平方函数是不是sqrt（x）啊，怎么我的vb老是说找不到这个过程或是函数呢？
望各位大虾指教，感激不尽！！！

...全文

20 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

agua06 2003-01-04

打赏
举报

我来贴一个使用橡皮筋效果画任意多边形的例子把。不过这个程序是我3年前刚上班的时候写的，所以比较简陋

Public x1, y1, i, c As Integer 'i为绘画标志，c为绘画完成后的清屏标志
Public newX, newY, oldX, oldY As Integer 'oldX,oldY为最初的点坐标，newX,newY为最后一次的坐标定位

Private Sub Form_DblClick()
Form1.AutoRedraw = True
Line (oldX, oldY)-(newX, newY) '双击闭合曲线
i = 0
c = 1
End Sub

Private Sub Form_Load()
i = 0
c = 0
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If c = 1 Then
Form1.Cls
c = 0
End If
PSet (X, Y) '画初点
x1 = X
y1 = Y
i = i + 1 '设置初始标志

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 0 Then '如果无鼠标键按下，画线
If i >= 2 Then '过程画线
Form1.AutoRedraw = False
Form1.Refresh
Line (newX, newY)-(X, Y)
End If
If i = 1 Then '初次画线
Form1.AutoRedraw = False
Form1.Refresh
Line (x1, y1)-(X, Y)
oldX = x1
oldY = y1
i = i + 1
End If
End If
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
'画下最终确定的直线
If i = 1 Then '初次画线
Me.DrawMode = 13
Me.AutoRedraw = True
Line (x1, y1)-(X, Y)
newX = X
newY = Y
End If

If i >= 2 Then '过程画线
Me.DrawMode = 13
Me.AutoRedraw = True
Line (newX, newY)-(X, Y)
newX = X
newY = Y
End If
End Sub

wzn0521 2003-01-04