Vb.net VB 2008-运行时问题

这是我的程序代码

Public Class Form1
    Dim adult As Decimal
    Public Function getadult(ByRef adult As Decimal) As Decimal
        Return adult
    End Function
    Public Function setadult(ByVal value As Decimal) As Decimal
        value = adult
    End Function
    Public Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Call setadult(adult)
        TextBox1.Text = adult

    End Sub


    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim adult As Decimal
        Call getadult(adult)
        MsgBox("the rate for adults is " & adult)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class

当我在文本框中输入一个值并按下“设置”按钮时，它将重置为0。请帮帮我

Public Function setadult(ByVal value As Decimal) As Decimal
        **value = adult**
    End Function

应该是

Public Function setadult(ByVal value As Decimal) As Decimal
        **adult = value**
    End Function

及

这将只返回传递给函数O.O的值

也许这就是你想要实现的目标：

Public Class Form1

    Dim adult As Decimal

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        adult = CDec(TextBox1.Text)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        MsgBox("the rate for adults is " & adult.toString())
    End Sub

End Class

---

成人没有收据价值。测试编辑按钮1单击呼叫设置成人（textBox1.text）

---

这里面有问题吗这就是问题。。如何更正此运行时问题。？。。。。你需要更多的细节吗？我没有看到任何运行时问题。你没有描述出哪里出了问题。。我在文本栏中输入值。。。我点击设置。。。然后文本栏中的值重置为0。。这是一张照片。。。我是新来的。。我在试东西。。。所以原谅我，如果我有点白痴。你的程序实际上什么都不做，只是显示一个未设置的var（成人）这是一个票务软件。。。。我需要存储在文本框中输入的值，并将其用于将来的表单。我希望用户设置会话门票的价格。因为您知道价格是可变的。。这就是为什么我使用了两种不同的get和set函数，这不是一个需要解决的问题。您当前的问题是，为什么总是得到0的回答？如果是，请接受答案a并发布一个新的具体问题，如果不是，则您需要扩展您的问题。。好的，我将创建另一个线程谢谢你。。。你的评论解决了我的问题。。

Public Function getadult(ByRef adult As Decimal) As Decimal
        Return adult
    End Function

Public Class Form1

    Dim adult As Decimal

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        adult = CDec(TextBox1.Text)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        MsgBox("the rate for adults is " & adult.toString())
    End Sub

End Class

Public Class Form1
    Dim adult As Decimal
    Public Function getadult(ByRef adult As Decimal) As Decimal
        Return adult
    End Function
    Public Function setadult(ByVal value As Decimal) As Decimal
        value = adult
    End Function
    Public Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Call setadult(textBox1.text)

    End Sub


    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim adult As Decimal
        Call getadult(adult)
        MsgBox("the rate for adults is " & adult)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class