VB.net 2010 視頻教程 VB.net 2010 視頻教程 VB.net 2010 視頻教程
SQL Server 2008 視頻教程 c#入門經典教程 Visual Basic從門到精通視頻教程
當前位置:
魔兽世界wow > 編程開發 > 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控件被聚焦!當然你也可以作適當調整,使它符合你個人的需要。
相關教程