О приведении в свойство класса в VB.Net

Question

Можно ли наложить жало в свойство класса? то, что я хочу сделать, это то, что из класса «Мой» я могу получить свойства Text формы. но для каждой формы я должен указать имя формы статически. Я хочу сделать это дьянамически. То, что я попробовал, здесь

    Dim frmName As New Object
    frmName = Name.ToString()

    Dim frmProperty As String

    frmProperty = "My.Forms." & frmName & ".Text"

    frmNameLabelControl.Text = frmProperty  

, но на внешнем интерфейсе отображается «My.Forms.Form1.Text»

Answer 1

Я думаю, что все, что вам нужно, это следующий код. Но вам нужно создать эквивалент frmNameLabelControl в том же порядке в каждой форме. Например, чтобы быть последним ярлыком, который вы создали в каждой форме

    Dim FormsCount As Integer = My.Application.OpenForms.Count
    Dim frmProperty As String
    Dim lblContrIndex As Integer = 0 ' Number of label creation in descending order

    For i As Integer = 0 To FormsCount - 1

        frmProperty = My.Application.OpenForms.Item(i).Text
        My.Application.OpenForms.Item(i).Controls.OfType(Of Label).ElementAt(lblContrIndex).Text = frmProperty

    Next