VB.NET类不会更新我的变量

问题描述

我有两个课。

1-）NumberClass 2-）MessageClass

数字类;

Public Class NumberClass

Property Number As Byte
End 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