2.在“項目”菜單上,選擇“向現有項目添加新模塊”“添加模塊”。
3.將兩個圖片框Pic_Edit (target)和其他名稱Pic_Dest (target)添加到表單中。
4.將Pic_Edit Picture屬性設置為要選擇的區域的位圖。
5.將Pic _ Dest AutoRedraw屬性設置為True。
6.將以下代碼添加到模塊1: public const inverse = 6。
公共常數點= 2
公共Const SOLID = 0
公共原始長度
公共起源壹樣長
公共DestX壹樣長
只要是公開的
public Sub Draw _ Selection _ Rectangle()
將繪圖模式設置為反向,因為該程序也用於擦除
通過簡單地在當前的
顯示的矩形
帶編輯器。圖片_編輯
。DrawMode =反向
。DrawStyle =點
編輯。Pic_Edit。Line (OrigX,OrigY)-(DestX,DestY),B
。DrawStyle =實心
以…結尾
末端接頭
Public Sub Copy_Rectangle()
帶編輯器。圖片_目的地
。Cls
。可見=真
。高度= DestY - OrigY
。Width = DestX - OrigX
。繪畫圖片編輯器。圖片_編輯,0,0,(DestX - OrigX),_
(DestY - OrigY),OrigX,OrigY,(DestX - OrigX),_
(DestY - OrigY),vbSrcCopy
以…結尾
確保剪貼板是幹凈的,然後復制圖像:
剪貼板。清楚的
剪貼板。SetData編輯器。Pic_Dest。圖像
末端接頭
7.在表單1中添加以下代碼:private sub pic _ edit _ mousedown(button為整數,shift為整數,x為single,y為single)。
如果Button = 1,那麽Pic_Edit。恢復精神
Pic_Dest。可見=假
OrigX = X
OrigY = Y
DestX = OrigX
DestY = OrigY
呼叫模塊1。繪制選擇矩形
末端接頭
Private Sub Pic_Edit_MouseMove(按鈕為整數,Shift為整數,X為單個,Y為單個)
如果Button = 1,則
DestX = X
DestY = Y
Pic_Edit。恢復精神
呼叫模塊1。繪制選擇矩形
如果…就會結束
末端接頭
Private Sub Pic_Edit_MouseUp(按鈕為整數,Shift為整數,X為單個,Y為單個)
檢查鼠標是否移動或走錯了方向:
如果DestX & lt= OrigX或DestY & lt= OrigY Then
Pic_Edit。恢復精神
出口接頭
如果…就會結束
如果Button = 1,則調用Copy_Rectangle
末端接頭
8.啟動應用程序,用鼠標和位圖選擇區域。當您釋放鼠標按鈕時,Pic_Dest會顯示壹條提示:如果備份MS Paint、MSWord或任何其他應用程序可能需要粘貼位圖,請將其打開並粘貼到應用程序圖像的選定部分。您也可以通過剪貼板查看器查看剪貼板的內容。