用VB設計聚焦框程序

領測軟件測試網 　　什么是聚焦框？在Windows中是這樣解釋的：當某個按鈕被按下或某個控件正在使用時，由一個長方形的虛線框聚焦在此按鈕或控件上來提示用戶它正起作用。但是并非所有的控件在任何時候都能得到焦點（即得到聚焦框），有時我們在日常的編程中也許會用到它，用來提示用戶一些必要的信息。這時你可以這樣做：
　　說明:在以下程序中可以使Picture控件得到聚焦框，且程序調用API函數來完成。
　　首先，在FORM1上新建一個Picture1和一個Command1，然后輸入以下代碼：
　　Private Declare Function DrawFocusRect Lib″user32″(ByVal hdc As Long, lpRect As RECT) As Long
　　Private Type RECT
　　X1 As Long
　　Y1 As Long
　　X2 As Long
　　Y2 As Long
　　End Type
　　Dim lpRect As RECT′在通用中聲明調用API函數
　　Private Sub Form_Load()
　　Form1.WindowState = 2′最大化窗口
　　Picture1.Picture = LoadPicture(″C:\BMP\1.BMP″)′請讀者根據自己選擇圖片
　　Command1.Caption =″設置聚焦框″
　　End Sub
　　Private Sub Form_Activate()
　　Picture1.Move (Form1.ScaleWidth－Picture1.ScaleWidth)／2, (Form1.ScaleHeight－Picture1.ScaleHeight)／2′使Picture1居中顯示
　　End Sub
　　Private Sub Command1_Click()
　　Dim DENG As Long
　　lpRect.X1 = Picture1.Left－10
　　lpRect.Y1 = Picture1.Top－10
　　lpRect.X2 = lpRect.X1＋Picture1.Width＋20
　　lpRect.Y2 = lpRect.Y1＋Picture1.Height＋20
　　DENG = DrawFocusRect(hdc, lpRect)
　　End Sub
　　OK，大功告成，按F5運行，通過單擊按鈕Command1就可以實現Picture1控件被聚焦！當然你也可以作適當調整，使它符合你個人的需要。

文章來源于領測軟件測試網 http://www.kjueaiud.com/