半岛权威十大直营(官方)网站

    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 下载