vb.net中usercontrol向外抛出事件和属性



‘usercontrol部分
Public Class UserControls_SearchStaffAssignControl
    Inherits System.Web.UI.UserControl

   ‘定义

    Public Shared Event myEvent(ByVal StaffCode As String)

    Protected Sub btn_assign_Click(sender As Object, e As EventArgs)
       ’抛出

        RaiseEvent myEvent(hf_AssignBy.Value)
    End Sub

End Class

    ‘使用，使用时，继承定义的方法

    ’SearchStaffAssignControl 为usercontrol控件的id
    Private Sub aasa(staffCode As String) Handles SearchStaffAssignControl.myEvent

        Dim aa As String = staffCode

    End Sub

'''''''''''''************************在usercontrol中定义属性****************************************

          Public Property BB As String
        Get
            Return txt_aa.Text
        End Get
        Set(value As String)
            txt_aa.Text = value
        End Set
    End Property

在引用中的调用：

SearchStaffAssignControl.BB

特别提醒：有时候我们在usercontrol中添加新属性后，不能通过控件ID智能提示，解决方案：界面删除控件引用重新引入控件即可（原因暂时未知，请高手解答）