用VB设计聚焦框程序

　2006-02-27 21:13:17　来源：WEB开发网　闂傚倸鍊风欢姘缚瑜嶈灋闁圭虎鍠栫粻顖炴煥閻曞倹瀚�

闂傚倸鍊风粈渚€骞夐敓鐘插瀭闁汇垹鐏氬畷鏌ユ煙閹殿喖顣奸柛搴＄У閵囧嫰骞掗幋婵冨亾閻㈢ǹ纾婚柟鐐灱濡插牊绻涢崱妤冃℃繛宀婁簽缁辨捇宕掑鎵佹瀸闂佺懓鍤栭幏锟�

濠电姷鏁告慨顓㈠箯閸愵喖宸濇い鎾寸箘閹规洟姊绘笟鈧ḿ褍煤閵堝悿娲Ω閳轰胶鍔﹀銈嗗笂閼冲爼鍩婇弴銏＄厪闁搞儮鏅涙禒褏绱掓潏鈺佷槐闁轰焦鎹囬弫鎾绘晸閿燂拷闂傚倸鍊风欢姘缚瑜嶈灋闁圭虎鍠栫粻顖炴煥閻曞倹瀚�　　闂傚倸鍊烽懗鑸电仚缂備胶绮〃鍛村煝瀹ュ鍗抽柕蹇曞У閻庮剟姊虹紒妯哄闁圭⒈鍋嗛惀顏囶樄闁哄本娲樼换婵婄疀閺囩姷鐛ラ梻浣哄帶婢瑰﹥绂嶅⿰鍫氣偓鏃堝礃椤忎礁浜鹃柨婵嗛婢ь喖霉閻樻瑥瀚粻楣冩煕椤愩倕鏋庨柣蹇嬪劜閵囧嫰寮村Ο鍝勫Е濡炪們鍨洪悷鈺呭箖閳╁啯鍎熼柕鍥у簻閹凤拷

核心提示：什么是聚焦框？在Windows中是这样解释的：当某个按钮被按下或某个控件正在使用时，由一个长方形的虚线框聚焦在此按钮或控件上来提示用户它正起作用，用VB设计聚焦框程序，但是并非所有的控件在任何时候都能得到焦点（即得到聚焦框），有时我们在日常的编程中也许会用到它，按F5运行，通过单击按钮Command1就可以实现Pict

什么是聚焦框？在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:\BMP\1.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控件被聚焦！当然你也可以作适当调整，使它符合你个人的需要。->