<rp id="wnpn7"><ruby id="wnpn7"></ruby></rp>
<progress id="wnpn7"><track id="wnpn7"><rt id="wnpn7"></rt></track></progress>
<ruby id="wnpn7"></ruby>
<ruby id="wnpn7"><blockquote id="wnpn7"><div id="wnpn7"></div></blockquote></ruby>

    1. <em id="wnpn7"><ruby id="wnpn7"><input id="wnpn7"></input></ruby></em>
      1. <button id="wnpn7"><acronym id="wnpn7"></acronym></button><button id="wnpn7"><acronym id="wnpn7"></acronym></button>

        <rp id="wnpn7"><acronym id="wnpn7"></acronym></rp>

        <li id="wnpn7"><object id="wnpn7"><u id="wnpn7"></u></object></li>
        VB.net 2010 視頻教程 VB.net 2010 視頻教程 python基礎視頻教程
        SQL Server 2008 視頻教程 c#入門經典教程 Visual Basic從門到精通視頻教程
        當前位置:
        首頁 > 編程開發 > vb >
        • vb教程之用VB設計聚焦框程序

          什么是聚焦框?在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控件被聚焦!當然你也可以作適當調整,使它符合你個人的需要。
        相關教程
                
        免费看成年人视频大全_免费看成年人视频在线观看