文/小毅

　　橡皮筋技術(shù)是計(jì)算機(jī)圖形系統(tǒng)經(jīng)常應(yīng)用的構(gòu)造技術(shù)，通過(guò)動(dòng)態(tài)來(lái)顯示幾何圖形，最終確定幾何圖形的基本尺寸。橡皮筋技術(shù)常常用來(lái)構(gòu)造直線段。按下定位器(如鼠標(biāo)器)的鍵，得到一線段的起點(diǎn)位置。當(dāng)光標(biāo)移動(dòng)時(shí)，線段的終點(diǎn)也在移動(dòng)。松開(kāi)按鍵，這條線段就確定下來(lái)了。

　　下面是實(shí)現(xiàn)橡皮筋技術(shù)構(gòu)造直線段的VB程序：


　　Option Explicit

　　'顯式聲明模塊中的所有變量

　　Dim mx As Single, my As Single, flag As Integer

　　'mx,my為線段的起點(diǎn)位置(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

　　'定義鼠標(biāo)指針為十字型指針

　　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為線段的移動(dòng)光標(biāo)位置(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

　　橡皮筋技術(shù)還可以應(yīng)用于橡皮筋矩形、橡皮筋圓等交互技術(shù)。要實(shí)現(xiàn)橡皮筋技術(shù)構(gòu)造矩形，只需將畫(huà)線的部分改為“Line (mx, my)-(X, Y), , B”即可；要實(shí)現(xiàn)橡皮筋技術(shù)構(gòu)造圓，只需將畫(huà)線的部分改為“r = Sqr((X - mx) ^ 2 + (Y - my) ^ 2)：Circle (mx, my), r”即可。

　　以上程序在VB 6.0運(yùn)行通過(guò)。