JBTALKS.CC

标题: 请问如何让在vb6里摆放计算好的数字答案？ [打印本页]

作者: mysinyics 时间: 2013-5-28 10:32 PM
标题: 请问如何让在vb6里摆放计算好的数字答案？
请问一下，我想把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 编辑

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

欢迎光临 JBTALKS.CC (https://www.jbtalks.cc/)