實現橡皮筋技術構造直線段的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.kjueaiud.com/