從頭建立 Visual Basic .NET 控制項 (七)

來源:互聯網
上載者:User
visual|建立|控制項 第 6 步:清理
為了使控制項順利地運作,我們還需要執行一些其他動作。例如,大小改變時需要重新繪製控制項。而且,為了不改變控制項的比例,我們需要檢測影響大小的屬性發生更改的時間,然後強制寬度等於高度的三分之一。下面是完成這兩項任務的事件處理常式:

Private Sub TrafficLight_Resize(ByVal sender As Object, _
                 ByVal e As System.EventArgs) Handles MyBase.Resize
    Me.Invalidate()
End Sub

Private Sub TrafficLight_Layout(ByVal sender As Object, _
             ByVal e As System.Windows.Forms.LayoutEventArgs) _
             Handles MyBase.Layout
    Select Case e.AffectedProperty
        Case "Bounds"
            Me.Width = CInt(Me.Height * 0.3333)
        Case Else
            ' 不執行任何操作
    End Select
End Sub

最後,設定控制項在工具箱中使用的表徵圖。控制項已經有一個看似齒輪的預設表徵圖,但是我們要使用 Visual Studio .NET 附帶的紅綠燈表徵圖。

控制項的工具箱表徵圖是由名為 ToolboxBitmap 的類中的特性設定的。在以 Public Class 開始的行上面插入以下行:

<ToolboxBitmap("C:\Program Files\Microsoft Visual Studio
.NET\Common7\Graphics\icons\Traffic\TRFFC09.ICO")> _

注意:所有內容都應在一行中。為了便於閱讀,我們在 Studio 後放置了一個斷行符號。粘貼該代碼時,要確保它們位於一行中,Studio 和 .NET 之間只需一個空格,並刪除斷行符號。如果您已經將 Visual Studio .NET 安裝到其預設位置,那麼上述代碼將用 Visual Studio 目錄中的表徵圖設定該特性。如果您沒有將 Visual Studio .NET 安裝到其預設位置,則需要相應地更改表徵圖的路徑名。


相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。