如何将值从文本框传递到 class 中的 public 属性?
How do you pass values from a textbox to a public property in a class?
我需要将用户输入文本框的代码传递给 class 中的 Public 属性。这是我的代码。
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
我收到一条错误消息 "Reference to a non-shared member requires an object reference." 如何将文本框的值传递给 public 属性 值?
谢谢!
您需要先创建一个 class 的实例,然后才能访问它的成员:
Dim objpart2Class as part2Class = new part2Class()
objpart2Class._Num1 = a
objpart2Class._Num2 = b
我需要将用户输入文本框的代码传递给 class 中的 Public 属性。这是我的代码。
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
我收到一条错误消息 "Reference to a non-shared member requires an object reference." 如何将文本框的值传递给 public 属性 值?
谢谢!
您需要先创建一个 class 的实例,然后才能访问它的成员:
Dim objpart2Class as part2Class = new part2Class()
objpart2Class._Num1 = a
objpart2Class._Num2 = b