ImagXpress可以讓用戶選擇正在瀏覽的圖像的一部分，這個部分中，稱為Rubberband，可以用很多種方式使用：比如，復制到另一個控制或緩沖區，或被選擇作為一個區域來處理。下面來看一下在Activex & COM版本中Rubberband的使用。

Rubberband使用

 1、調用RubberBand方法，設置state = true，在一個指定的位置啟動一個rubberband。

2、調用RubberbandUpdate方法更新rubberband矩形的結束坐標，RubberBandH 、RubberBandW、RubberBandL和RubberBandT屬性真是可讀，會返回rubberband矩形坐標的的高度、寬度和坐標，當調用RubberBand方法的時候，就會更新這些屬性。

3、調用 CopyRubberbandDIB 方法，復制rubberband構建的內容到一個DIB中。

Activate the rubberband when the user first clicks the mouse
Private Sub ImagXpress1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
     ' CLEAR ANY EXISTING RUBBER BANDING REGION
     ImagXpress1.RubberBand False, X, Y, False
     ' CONVERT X & Y TO PIXELS
     X = X / Screen.TwipsPerPixelX
     Y = Y / Screen.TwipsPerPixelY
 
     ' TURN THE RUBBER BANDING ON, SET THE STARTING POINT
     ImagXpress1.RubberBand True, X, Y, False
End Sub
 
' Track the user's changes whenever they move the mouse
Private Sub ImagXpress1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
' UPDATE THE RUBBER BAND
X = X / Screen.TwipsPerPixelX
Y = Y / Screen.TwipsPerPixelY
ImagXpress1.RubberbandUpdate X, Y
End Sub
 
' Do something with the region when the user lifts off the mouse
Private Sub ImagXpress1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim xpos, ypos, w, h As Integer
' YOU CAN DO ANYTHING WITH, OR TO, THE REGION THE USER HAS SELECTED. IN THIS EXAMPLE, WE WILL
' COPY THE AREA TO ANOTHER CONTROL.
ImagXpress2.hDib = ImagXpress1.CopyRubberbandDib
ImagXpress2.ZoomToFit ZOOMFIT_BEST
' TURN THE RUBBER BAND OFF
ImagXpress1.RubberBand False, X, Y, False
End Sub

>>>ImagXpress 下載