VB.net 2010 视频教程 VB.net 2010 视频教程 VB.net 2010 视频教程
  • 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控件被聚焦!当然你也可以作适当调整,使它符合你个人的需要。
相关教程
  • 2018 E3:女主持人展位探访 被吓的花容失色 2019-02-24
  • 5月末商品房库存继续减少 三、四线城市开启库存短缺时代 2019-02-24
  • 中国公民出入境排队将不超半小时 2019-02-24
  • 鹰潭高新区思想解放添发展动力 2019-02-23
  • 践行新发展理念 全面建成小康社会 2019-02-23
  • 端午节期间 全省道路安全畅通形势平稳 2019-02-23
  • 观众对三观不正影视剧不买账 76.7%受访者拒看 2019-02-23
  • 为峰会喝彩 为市民点赞 为青岛自豪 2019-02-22
  • 宜居中国厕所革命论坛举办 成立首个专业厕所革命研究所--旅游频道 2019-02-22
  • 6集电视文献纪录片《风范——老一辈革命家的故事》 2019-02-21
  • 端午节,跟随习近平找寻中华民族“精气神” 2019-02-21
  • 女排一主攻提前出局!进攻曾不输朱婷 今彻底沦为边缘人 2019-02-21
  • 开放的青岛期待“上合之声” 2019-02-20
  • 工商总局将针对“双11”等网络促销出管理规定 2019-02-20
  • 以法之名 捍卫英烈名誉 2019-02-20
  • 294| 275| 101| 841| 529| 613| 519| 650| 354| 754|