查看: 897|回复: 4

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

[复制链接]

mysinyics

2013-5-28 10:32 PM

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

chakhua

2013-5-30 04:43 PM

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

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

我做C#也是这样的。

tanjiunnya

2013-6-13 12:27 PM

本帖最后由 tanjiunnya 于 2013-6-13 12:30 PM 编辑

以下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

2013-9-6 03:57 PM

本帖最后由 mysinyics 于 2013-9-26 04:58 AM 编辑

这个是我用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

2013-10-16 12:49 PM

本帖最后由 htuomrev 于 2013-10-16 12:50 PM 编辑

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

返回列表

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

浏览过的版块