用VB繪制矩形虛線框

　　在WIN95的桌面上，我們按下鼠標的左鍵并且拖動它，就可以看見一個可大可小的矩形虛線框，通過它我們同時能夠選定幾個圖標。在VB編程中，我們有時候需要在表單或圖片框中選擇特定的范圍，那么就可以通過調用WIN95中的API 過程來實現。

　　DrawFocusRect過程的功能就是在指定的矩形周圍繪制虛框，我們先在標準模塊的聲明部分聲明一個自定義的矩形結構：

　　 Type RECT

　　Left As Long

　　Top As Long

　　Right As Long

　　Bottom As Long

　　 End Type

　　然后再聲明這個過程：

　　Declare Function DrawFocusRect Lib "User32" Alias _

　　"DrawFocusRect" (ByVal hdc As Long, _

　　lpRect As RECT) As Long

　　最后，在程序中調用這個過程就行了。這個過程有兩個特點：1. 在調用的時候，圖片框的坐標的度量單位為像素，即 Picture1.ScaleMode = 3；2. 這個函數用XOR（異或）畫圖，即第二次以同樣的參數調用它，就會將第一次畫的虛線框擦掉。下面是一個簡單的例子，我們將在一個表單上的圖片框中實現這個功能：

　　首先，在表單的公共聲明部分聲明三個變量：Dim MouseRect As RECT，Dim x1,y1 As Integer。(其中x1，y1 用來記錄鼠標按下時的坐標值)

　　 Private Sub Form_Load ()

　　MouseRect.Left = 0 '初始化虛線框

　　MouseRect.Top = 0

　　MouseRect.Right = 0

　　MouseRect.Bottom = 0

　　 End Sub

　　然后，編寫Picture.MouseDown, Picture.MouseMove子程序。

　　Private Sub Picture1_ MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

　　 If Button And 1 Then '按下的是鼠標左鍵

　　 Picture1.ScaleMode = 3

　　 DrawFocusRect Picture1.hdc, MouseRec '清除上次畫的虛線框t

　　 MouseRect.Left = X

　　 MouseRect.Top = Y

　　 MouseRect.Right = X

　　 MouseRect.Bottom = Y

　　 X1=X

　　 Y1=Y

　　 End If

　　End Sub

　　Private Sub Picture1_ MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

　　 Picture1.ScaleMode = 3

　　 If Button And 1 Then

　　 DrawFocusRect Picture1.hdc, MouseRect '清除上次畫的虛線框

　　 If X > x1 Then

　　 MouseRect.Left = x1

　　 MouseRect.Right = X

　　 Else

　　 MouseRect.Left = X

　　 MouseRect.Right = x1

　　 End If

　　 If Y > y1 Then

　　 MouseRect.Top = y1

　　 MouseRect.Bottom = Y

　　 Else

　　 MouseRect.Top = Y

　　 MouseRect.Bottom = y1

　　 End If

　　 DrawFocusRect Picture1.hdc, MouseRect

　　'畫虛線框

　　 End IfEnd Sub

　　我們還可以設定x2, y2作為公共變量，在Picture.MouseUP子程序中記錄矩形框另一個角的位置，這樣就能夠對選中的范圍進行各種操作了。

　　此程序在586機器，Visual Basic 5.0環境下通過。

　　 (上海 裘鍵)

原文轉自：http://www.anti-gravitydesign.com