VB.NET Class 不更新我的变量

VB.NET Class Does Not Update my Variables

我有两个class。

1-) 数量Class 2-) 消息Class

人数Class;

Public Class NumberClass

Property Number As Byte
End Class

留言Class;

Public Class MessageManager
Inherits NumberClass

Public Sub sendMessage()
    MsgBox(Number)
End Sub
End Class
Public Class Form1

这是我的按钮代码:

Private Sub ShowNumberBtn_Click(sender As Object, e As EventArgs) Handles ShowNumberBtn.Click
    Dim messageManager As New MessageManager
    messageManager.sendMessage()
End Sub

Private Sub ChangeNumberBtn_Click(sender As Object, e As EventArgs) Handles ChangeNumberBtn.Click
    Dim numberClass As New NumberClass
    numberClass.Number = 50
    MsgBox("Number Changed to : " & numberClass.Number)
End Sub

首先我点击更改号码按钮。它将数字变量值更改为 50。 到这里为止一切正常,但是当我单击发送消息按钮时消息显示 Number 变量的旧值,它没有反映在 sendMessage 方法中。

对我来说非常好...不确定您尝试了什么,因为您从未更新代码来显示您的尝试:

Public Class Form1

    Private messageManager As New MessageManager

    Private Sub ShowNumberBtn_Click(sender As Object, e As EventArgs) Handles ShowNumberBtn.Click
        messageManager.sendMessage()
    End Sub

    Private Sub ChangeNumberBtn_Click(sender As Object, e As EventArgs) Handles ChangeNumberBtn.Click
        messageManager.Number = 50
        MsgBox("Number Changed to : " & messageManager.Number)
    End Sub

End Class

Public Class NumberClass

    Property Number As Byte

End Class

Public Class MessageManager
    Inherits NumberClass

    Public Sub sendMessage()
        MessageBox.Show("Number = " & Number)
    End Sub

End Class