從創建一類組合框 - 在VB.net

Question

進出口新的vb.net，和我的查詢是：

文件： read.vb

Friend Function Nav() 
    Dim NavBox As New ComboBox() 
    NavBox.Size = New System.Drawing.Size(44, 21) 
    NavBox.Location = New System.Drawing.Point(135, 305) 
    NavBox.DropDownStyle = ComboBoxStyle.DropDownList 
    NavBox.Items.Add("1") 
    NavBox.Items.Add("2") 
    NavBox.Items.Add("3") 
    NavBox.Items.Add("4") 
    NavBox.Items.Add("5") 
    NavBox.Items.Add("6") 
    NavBox.Items.Add("7") 
    NavBox.Items.Add("8") 
    NavBox.Items.Add("9") 
    NavBox.Items.Add("10") 
    NavBox.Items.Add("11") 
    AddHandler (NavBox.SelectionChangeCommitted), AddressOf MSGB 
    NavBox.Show() 
    Return NavBox 
End Function 
Public Sub MSGB(ByVal sender As Object, ByVal e As System.EventArgs) 
    Dim cb As ComboBox = DirectCast(sender, ComboBox) 
    MsgBox(cb.SelectedItem) 

End Sub 

和IM調用這個函數或 mainFrom.vb

Dim l As New read 
    Me.Controls.Add(CType(l.Nav(), Control)) 

：在mainFrom.vb

文件顯示此組合框

現在，我需要的是，它控制訪問，所以我可以從mainFrom.vb到read.vb來操縱SelectionChangeCommitted活動parss值。

我希望我的問題是明確....

Answer 1

既然你控制是一個簡單的組合框，我看不出有共同的代碼來創建這個控制點。你可以有一個通用的函數來填充它的內容。

如果您想爲ComboBox添加功能，只需創建您自己的組合框類，例如從ComboBox繼承的ExtendedComboBox，然後在窗體中使用它。

如果你不想改變現有的代碼，你可以將你的組合框從導航返回到一個變量，然後掛接到事件從ComboBox的：

Public Class MainForm 

'Declare NavBox as a form member 
Private NavBox As ComboBox 

Public Sub MainForm_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load 
    'Create NavBox 
    Dim read As New read 
    NavBox = read.Nav() 

    'Hook NavBox event so MainForm knows when selection is changed 
    AddHandler NavBox.SelectionChangeCommitted, AddressOf NavBox_SelectionChangedCommited 

    'Add NavBox to MainForm 
    Me.Controls.Add(NavBox) 
End Sub 

Public Sub NavBox_SelectionChangedCommited(ByVal sender As Object, ByVal e As System.EventArgs) 
    Dim cb As ComboBox = DirectCast(sender, ComboBox) 
    'Do something when selection changes. 
End Sub 

End Class 

你也應該刪除無用Nav函數中的AddHandler行。