文/小毅
橡皮筋技术是计算机图形系统经常应用的构造技术，通过动态来显示几何图形，最终确定几何图形的基本尺寸。橡皮筋技术常常用来构造直线段。按下定位器(如鼠标器)的键，得到一线段的起点位置。当光标移动时，线段的终点也在移动。松开按键，这条线段就确定下来了。
下面是实现橡皮筋技术构造直线段的VB程序：
Option Explicit
'显式声明模块中的所有变量
Dim mx As Single, my As Single, flag As Integer
'mx,my为线段的起点位置(x,y)
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
mx = X
my = Y
flag = 1
Form1.MousePointer = 2
'定义鼠标指针为十字型指针
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If flag = 1 Then
Form1.Cls
Line (mx, my)-(X, Y)
'X,Y为线段的移动光标位置(X,Y)
End If
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
flag = 0
Form1.MousePointer = 0
End Sub
橡皮筋技术还可以应用于橡皮筋矩形、橡皮筋圆等交互技术。要实现橡皮筋技术构造矩形，只需将画线的部分改为“Line (mx, my)-(X, Y), , B”即可；要实现橡皮筋技术构造圆，只需将画线的部分改为“r = Sqr((X - mx) ^ 2 + (Y - my) ^ 2)：Circle (mx, my), r”即可。
以上程序在VB 6.0运行通过。 |