请问如何让在vb6里摆放计算好的数字答案？

mysinyics

请问一下，我想把form1里的所有textbox相加起来数字，然后减去form2里的所有textbox相加起来数字，答案出现在form3里，应该如何让写出来？

chakhua

你需要declare global var，按下一步的时候就把textbox的assign去global var，

做第三form就拿global var 来加，不懂还有没有更加好的方法。


我做C#也是这样的。

tanjiunnya

以下coding直接放在 form3 运行。还有一点就是 你的 form1 &  2 的“下一步” 按钮内的coding不可以把form1 和 form2 close掉。但是可以hide。不然以下coding算不出的。


dim x as integer, y as integer, z as integer

x= form1.text1.text+form1.text2.text+form1.text3.text (form1的所有textbox名称)
y=form2.text1.text + form2.text2.text + form2.text3.text ....(自己看一下应该明白)
z = x-y
form3.caption=z

mysinyics

这个是我用MS VISUAL STUDIO 2012制作的VB程式

第一个form1
Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.Hide()
        form2_load()
    End Sub

    Private Sub form2_load()
        Form2.Show()
    End Sub

End Class

第二个form2
Public Class Form2

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.Hide()
        form3_load()

    End Sub

    Private Sub form3_load()
        Form3.Show()
    End Sub

End Class

第三3个form3
Public Class Form3
    Dim x, y, z As String
    Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        x = Val(Form1.TextBox1.Text) + Val(Form1.TextBox2.Text)
        y = Val(Form2.TextBox1.Text) + Val(Form2.TextBox2.Text)
        z = x - y
        Label1.Text = z

    End Sub
End Class

我的程式可以执行了，非常谢谢大家的帮忙

htuomrev

没看到你已经解决了，当我多话吧，原方法删了。