首页 > 解决方案 > 如何将变量的值从VB中的类写入文本框?

问题描述

所以我创建了一个名为“order”的类,当我在主窗体中实例化一个对象时,文本框的值作为参数传递。这是我要写入的文本框-“txttotal.text”。

  Dim order1 As New order
    order1.AddItem(menuItem)
    order1.OrderTotal(txttotal.Text)

然后我在类方法中使用该参数将“fullamount”的值写入文本框。但是当我运行它并计算出fullamount后,文本框中什么也没有出现。我不确定我做错了什么。我应该使用函数吗?

Public Sub OrderTotal(total)

Dim fullamount As Decimal = 0

For Each item As MenuItem In Items

    fullamount += CDec(item.Cost)
    total = fullamount

Next

End Sub

标签: vb.netformsclassooptextbox

解决方案


也许你应该这样做。首先从 中获取total值作为文本,然后用新的计算值txttotal.text填充。txttotal.text

Dim order1 As New order
order1.AddItem(menuItem)

dim total = txttotal.Text
txttotal.Text = order1.OrderTotal(total)

将您的转换Sub为 a Function,它返回将填充txttotal.Text.

Public Function OrderTotal(Byval total)

   Dim fullamount As Decimal = 0

   For Each item As MenuItem In Items
      fullamount += CDec(item.Cost)
      total = fullamount
   Next

   Return total

End Sub

推荐阅读