Доступ к переменным другого класса.

[Ноябрь]

Код: Выделить всё


Partial Class Class1

    Public Sub New()
        My.Forms.Form1.Label1.Text = "aaa"
    End Sub

End Class

хочу получить доступ к тексту лейбла на форме..
как это сделать?

[Viper]

Как то так:

Код: Выделить всё

Dim f As New Form1
MessageBox.Show(f.lblWithText.Text)

при условии, что lblWithText является либо Public, либо Friend (по умолчанию Friend).

[Ноябрь]

чет не понял..
типа так?

Код: Выделить всё

Partial Class Class1

    Public Sub New()
        Dim f As New Form1
        MessageBox.Show(f.Label1.Text)
        f.Label1.Text = "aaa"
    End Sub

End Class

[Viper]

Именно так!