Как передать значения из текстового поля в общедоступное свойство класса?

Question

Мне нужно передать код, который пользователь вводит в текстовое поле в общедоступное свойство внутри класса. Вот мой код.

Form2.vb Код

Public Class Form2 
Dim class2A As part2Class = New part2Class() 
Dim class2B As part2BClass = New part2BClass() 

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 

    Dim a As Integer = CType(TextBox1.Text, Integer) 
    Dim b As Integer = CType(TextBox1.Text, Integer) 

    part2Class._Num1 = a 
    part2Class._Num2 = b 


End Sub 

Вот мой код в part2Class.vb

Public Class part2Class 

    Public Property _Num1 
    Public Property _Num2 
    Public Overridable Function Calculate() As Integer 
     Return _Num1 + _Num2 
    End Function 

End Class 

Я получаю сообщение об ошибке сказав «Ссылка на неразделяемую члена требуется объект Справка." Как передать значения из текстовых полей в значения общедоступного свойства?

Спасибо!

Answer 1

Вам нужно создать экземпляр класса первого перед доступом пользователей это:

Dim objpart2Class as part2Class = new part2Class() 
objpart2Class._Num1 = a 
objpart2Class._Num2 = b