实现橡皮筋技术构造直线段的VB程序

　　文/小毅

　　橡皮筋技术是计算机图形系统经常应用的构造技术，通过动态来显示几何图形，最终确定几何图形的基本尺寸。橡皮筋技术常常用来构造直线段。按下定位器(如鼠标器)的键，得到一线段的起点位置。当光标移动时，线段的终点也在移动。松开按键，这条线段就确定下来了。

　　下面是实现橡皮筋技术构造直线段的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运行通过。

原文转自：http://www.ltesting.net