什麼是聚焦框？在Windows中是這樣解釋的：當某個按鈕被按下或某個控件正在使用時，由一個長方形的虛線框聚焦在此按鈕或控件上來提示用戶它正起作用。但是並非所有的控件在任何時候都能得到焦點（即得到聚焦框），有時我們在日常的編程中也許會用到它，用來提示用戶一些必要的信息。這時你可以這樣做：
說明:在以下程序中可以使Picture控件得到聚焦框，且程序調用API函數來完成。
首先，在FORM1上新建一個Picture1和一個Command1，然後輸入以下代碼：
PrivateDeclareFunctionDrawFocusRectLib"user32"_
(ByValhdcAsLong,lpRectAsRECT)AsLong
PrivateTypeRECT
X1AsLong
Y1AsLong
X2AsLong
Y2AsLong
EndType
DimlpRectAsRECT'在通用中聲明調用API函數
PrivateSubForm_Load()
Form1.WindowState=2'最大化窗口
Picture1.Picture=LoadPicture("C:BMP1.BMP")'請讀者根據自己選擇圖片
Command1.Caption="設置聚焦框"
EndSub
PrivateSubForm_Activate()
Picture1.Move(Form1.ScaleWidth-Picture1.ScaleWidth)／2,_
(Form1.ScaleHeight-Picture1.ScaleHeight)／2'使Picture1居中顯示
EndSub
PrivateSubCommand1_Click()
DimDENGAsLong
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)
EndSub
OK，大功告成，按F5運行，通過單擊按鈕Command1就可以實現Picture1控件被聚焦！當然你也可以作適當調整，使它符合你個人的需要。->
