VB.net 2010 视频教程 VB.net 2010 视频教程 VB.net 2010 视频教程
SQL Server 2008 视频教程 c#入门经典教程 Visual Basic从门到精通视频教程
  • vb教程之用VB设计聚焦框程序

  • 2017-09-21 15:17 来源:未知
 什么是聚焦框?在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控件被聚焦!当然你也可以作适当调整,使它符合你个人的需要。
相关教程
  • 天津通报5起违反中央八项规定精神典型问题 2019-05-24
  • 俄官员说俄韩领导人将讨论同朝鲜三方合作项目 2019-05-23
  • 【大家谈】干部轻装上阵有了“护身符” 2019-05-23
  • 机场高速收费之争 春城壹网 七彩云南 一网天下 2019-05-23
  • 有没有上城客在越南的踪迹? 2019-05-22
  • 海上洄游时 北海狗 连续两周深睡眠 2019-05-22
  • 2018高考志愿填报规则:五大误区家长需谨慎 2019-05-21
  • 罗超毅:中国棋牌发展新蓝图 2019-05-21
  • 他们是中国军人,他们2个月排除380万平方米雷场 2019-05-21
  • 今天明天后天 雷雨赶不走闷热天 2019-05-20
  • “中国城市互联网生活消费·成都指数”论坛 2019-05-20
  • 亚冠-埃神破门于海摆乌龙 上港1-3鹿岛晋级告急 2019-05-20
  • Facebook公关掌门离职 是应对隐私丑闻干将 2019-05-19
  • 匹夫有责之一百一十一 (原创首发) 2019-05-19
  • 小天视频这个六一 来个回忆杀 2019-05-19
  • 162| 669| 602| 80| 788| 924| 922| 552| 902| 943|