最稳的pk10计划iphone 北京pk10计划手机软件 北京pk10数字的规律 超神手机版pk10软件 pk10北京赛车9码技巧 pk10四期倍投计划表 pk10极速赛车论坛 北京赛车冠军怎样选5码 北京赛车系统下载安装 pk10教程视频 北京pk10选号公式 北京赛车pk10赚钱技巧 北京赛车怎么提升概率 pk10技巧北京快三 北京pk10大小计划
VB.net 2010 視頻教程 VB.net 2010 視頻教程 VB.net 2010 視頻教程
SQL Server 2008 視頻教程 c#入門經典教程 Visual Basic從門到精通視頻教程
當前位置:
首頁 > 編程開發 > vb >
  • 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控件被聚焦!當然你也可以作適當調整,使它符合你個人的需要。
pk10赛车冠军技巧
最稳的pk10计划iphone 北京pk10计划手机软件 北京pk10数字的规律 超神手机版pk10软件 pk10北京赛车9码技巧 pk10四期倍投计划表 pk10极速赛车论坛 北京赛车冠军怎样选5码 北京赛车系统下载安装 pk10教程视频 北京pk10选号公式 北京赛车pk10赚钱技巧 北京赛车怎么提升概率 pk10技巧北京快三 北京pk10大小计划
杰克棋牌的app 体彩5码遗漏 老版街机捕鱼单机版 河南11选52018070422 重庆时时彩的开奖现场 怎样在头条网上写东西发表赚钱 那些证考下来压在单位可以赚钱 港货批发赚钱吗 广东快乐十分计划