用VB设计聚焦框程序

原作者:kuku 添加时间:2007-06-02 原文发表:2007-06-02 人气:8 来源：互联网

-----------------------------------------------------------------------------------------------------------------------------------------------

本文提示：《用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控件被聚焦！当然你也可以作适当调整，使它符合你个人的需要。
（上海　季昭君）

本页地址