vb.net - 如何将变量的值从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
解决方案
也许你应该这样做。首先从 中获取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
推荐阅读
- laravel - 使用 Spatie 在 Laravel 中自动备份不起作用
- regex - 如何删除第二个管道字符“|”之后的其余行 用python的每一行?
- sql - 打开 Trace Flag 460 并没有给出更好的错误信息
- windows - 无法在 Visual Studio Code 中打开终端
- github-actions - github操作未收到秘密
- c++ - Boost asio 得到“错误代码:125 操作已取消”
- c - 在C函数中输入int值时如何返回char?
- java - 限制在 Android Studio 中选择大于一定大小的文件
- android - Flutter 找不到名为“-”的命令和异常:Gradle task assemble Debug failed with exit code 64
- jquery - 如何使用 jQuery.submit() 传递额外参数?