vb基本文本不是double的成员

Question

我有转换问题。当我写 txta1 = txta1.Text 时，它显示 "text is not a member of double." 我不确定为什么，有人可以向我解释一下吗？

Private Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.Click
        Dim treatments As String
        Dim ssb, ssw, msb, msw, sigmaA, sigmaB, sigmaC, sigmaabc, squaresigmaA, squaresigmaB, squaresigmaC, squaresigmaabc, f As Double
        Dim txta1, txta2, txta3, txta4, txta5, txtb1, txtb2, txtb3, txtb4, txtb5, txtc1, txtc2, txtc3, txtc4, txtc5 As Double

        'Data Input
        txta1 = txta1.Text



        treatments = lblTreatments.Text


        'Calaculation
        sigmaA = txta1 + txta2 + txta3 + txta4 + txta5
        sigmaB = txtb1 + txtb2 + txtb3 + txtb4 + txtb5
        sigmaC = txtc1 + txtc2 + txtc3 + txtc4 + txtc5
        sigmaabc = sigmaA + sigmaB + sigmaC



        squaresigmaA = txta1 ^ 2 + txtb2 ^ 2 + txtb3 ^ 2 + txtb4 ^ 2 + txtb5 ^ 2
        squaresigmaB = txtb1 ^ 2 + txtb2 ^ 2 + txtb3 ^ 2 + txtb4 ^ 2 + txtb5 ^ 2
        squaresigmaC = txtc1 ^ 2 + txtc2 ^ 2 + txtc3 ^ 2 + txtc4 ^ 2 + txtc5 ^ 2
        squaresigmaabc = squaresigmaA + squaresigmaB + squaresigmaC
        ssb = ((sigmaA) ^ 2 / 5 + (sigmab) ^ 2 / 5 + (sigmac) ^ 2 / 5) - (sigmaabc) ^ 2 / 15
        ssw = squaresigmaabc - ((sigmaA) ^ 2 / 5 + (sigmab) ^ 2 / 5 + (sigmac) ^ 2 / 5)
        msb = ssb / (3 - 1)
        msw = ssw / (15 - 1)
        f = msb / msw

        'Data output
        lblSSB.Text = ssw
        lblSSW.Text = ssw
        lblMSB.Text = msb
        lblMSW.Text = msw
        lblF.Text = f
    End Sub

Answer 1

正如编译器试图告诉您的那样，您将 txta1 声明为 Double，其中没有 Text 属性.

您应该为控件和局部变量选择不同的名称。

Answer 2

您在第 4 行中将 txta1 声明为 Double。我假设您的表单上还有一个名为 txta1 的文本框。为 Double 使用不同的名称，如 txta1Value，这样它就不会与 TextBox 的名称冲突。然后你可以说

txta1Value = Double.Parse(txta1.Text)

（如果有人输入的内容不是有效的 Double，这将会崩溃；你想如何处理这取决于你。）

vb基本文本不是double的成员

vb basic text is not a member of double

vb.net

double

vba

casting