将文本框值转换为双精度值

Question

我有Textbox1.Lines

25.0
25.0
25.0
25.0
25.0
25.0
25.0
25.0
25.0
25.0
Dim value2 as double = 0.4
Dim lines As String() = Textbox1.Lines
lines = Val(lines(here is a line code loop)) + val(value2)
Textbox1.Lines = lines

如何使这段代码起作用？它只计算我的整数，例如如果它是 255.5，它只显示 255.

我如何转换此文本框以计算双精度数，例如 25.4 + 25.7 = 30.1

我要计算它有的那一行的值（即25.0）+新值，如果是0.4那么它会显示25.4，不幸的是，我的Textbox不知道怎么做，也不知道怎么改造才能正确读取值。

Answer 1

我建议 VB.NET 而不是 VisualBasic 方法。使用Double.Parse将每一行的字符串解析为一个Double，然后添加固定值value2并使用ToString将其转换回字符串：

Dim invalidLines = From line in Textbox1.Lines
                   Where Not Double.TryParse(line.Trim(), Nothing)
If invalidLines.Any() Then
    ' Inform user that he should enter numeric values only '
    Return
End If

Dim lineValues = From line in Textbox1.Lines
                 Select (Double.Parse(line.Trim()) + value2).ToString()
Textbox1.Lines = lineValues.ToArray()

您需要添加Imports System.Linq。

将文本框值转换为双精度值

Convert Textbox value to a double

vb.net

我有Textbox1.Lines