Vb.net &引用；“复制”；将公共对象属性转换为本地对象

本地对象如何采用公开声明的对象（例如DropDownList）属性？我将使用此方法，因为我将在

部分类

中有许多本地

dropdownlist

对象

Public Class connection

    Inherits System.Web.UI.Page

    'Connections
    Public cn As New SqlConnection
    Public cmd As SqlCommand
    Public rs As SqlDataReader
    Public dt As DataTable = New DataTable()
    Public ds As DataSet = New DataSet()

       'Public Objects
    Public ddlAcadyr As DropDownList = New DropDownList()

 Public Sub AcadYr()
        Dim adp As SqlDataAdapter = New SqlDataAdapter("SELECT DISTINCT AcadYr FROM TermSchedule", cn)
        Dim ds As DataSet = New DataSet()
        adp.Fill(ds)
        ddlAcadyr.DataSource = ds
        ddlAcadyr.DataTextField = "AcadYr"
        ddlAcadyr.DataBind()
        ddlAcadyr.Items.Insert(0, New ListItem(String.Empty, String.Empty))
        ddlAcadyr.SelectedIndex = 0
    End Sub

End Class

Partial Class Home
    Inherits connection

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Call AcadYr()
        ddlPrivateAcadyr = ddlAcadyr '*NOTE: ddlPrivateAcadyr is a private object dropdownlist in class home
    End Sub

End Class

---

在

连接类中

可以使用

共享子类

，如下所示：

Public Sub SetAcadYrProperties(ByVal ddlAcadYrToCustomize as DropDownList)

    Dim adp As SqlDataAdapter = New SqlDataAdapter("SELECT DISTINCT AcadYr FROM TermSchedule", cn)
    Dim ds As DataSet = New DataSet()
    adp.Fill(ds)
    ddlAcadYrToCustomize.DataSource = ds
    ddlAcadYrToCustomize.DataTextField = "AcadYr"
    ddlAcadYrToCustomize.DataBind()
    ddlAcadYrToCustomize.Items.Insert(0, New ListItem(String.Empty, String.Empty))
    ddlAcadYrToCustomize.SelectedIndex = 0

End Sub

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    SetAcadYrProperties(ddlPrivateAcadyr)
End Sub

然后从

家庭课程中调用它，如下所示：

Public Sub SetAcadYrProperties(ByVal ddlAcadYrToCustomize as DropDownList)

    Dim adp As SqlDataAdapter = New SqlDataAdapter("SELECT DISTINCT AcadYr FROM TermSchedule", cn)
    Dim ds As DataSet = New DataSet()
    adp.Fill(ds)
    ddlAcadYrToCustomize.DataSource = ds
    ddlAcadYrToCustomize.DataTextField = "AcadYr"
    ddlAcadYrToCustomize.DataBind()
    ddlAcadYrToCustomize.Items.Insert(0, New ListItem(String.Empty, String.Empty))
    ddlAcadYrToCustomize.SelectedIndex = 0

End Sub

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    SetAcadYrProperties(ddlPrivateAcadyr)
End Sub

如果此解决方案有效，您可以在
连接类中删除
ddlAcadyr
和
AcadYr（）

Public Class connection

    Inherits System.Web.UI.Page

    'Connections
    Public cn As New SqlConnection
    Public cmd As SqlCommand
    Public rs As SqlDataReader
    Public dt As DataTable = New DataTable()
    Public ds As DataSet = New DataSet()

       'Public Objects
    Public ddlAcadyr As DropDownList = New DropDownList()

 Public Sub AcadYr()
        Dim adp As SqlDataAdapter = New SqlDataAdapter("SELECT DISTINCT AcadYr FROM TermSchedule", cn)
        Dim ds As DataSet = New DataSet()
        adp.Fill(ds)
        ddlAcadyr.DataSource = ds
        ddlAcadyr.DataTextField = "AcadYr"
        ddlAcadyr.DataBind()
        ddlAcadyr.Items.Insert(0, New ListItem(String.Empty, String.Empty))
        ddlAcadyr.SelectedIndex = 0
    End Sub

End Class

Partial Class Home
    Inherits connection

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Call AcadYr()
        ddlPrivateAcadyr = ddlAcadyr '*NOTE: ddlPrivateAcadyr is a private object dropdownlist in class home
    End Sub

End Class