文章类别：VB 来源： 作者： 发表日期：2006-2-28 字体：[大 中 小]

小游戏 | 在线影院 | 幽默笑话 | 源码下载 | Flash MTV | 音乐试听 | 书屋 | 美女写真

---

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

上一篇:用VisualBasic5.0设计E-mail程序(MAPI)

下一篇:把Outlook信箱中的附件另存为