Facebook Sharer
选择您要替换的背景颜色:
【农历新年】背景图片:
个性化设定
 注册  找回密码
查看: 778|回复: 4
打印 上一主题 下一主题

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

[复制链接]

17

主题

0

好友

31

积分

初级会员

Rank: 1

跳转到指定楼层
1#
发表于 2013-5-28 10:32 PM |只看该作者 |倒序浏览
请问一下,我想把form1里的所有textbox相加起来数字,然后减去form2里的所有textbox相加起来数字,答案出现在form3里,应该如何让写出来?






收藏收藏0

13

主题

1

好友

62

积分

中级会员

Rank: 2Rank: 2

2#
发表于 2013-5-30 04:43 PM |只看该作者
你需要declare global var,按下一步的时候就把textbox的assign去global var,

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


我做C#也是这样的。


回复

使用道具 举报

0

主题

0

好友

48

积分

初级会员

Rank: 1

3#
发表于 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


回复

使用道具 举报

17

主题

0

好友

31

积分

初级会员

Rank: 1

4#
发表于 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


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


回复

使用道具 举报

6

主题

1

好友

1943

积分

白银长老

Rank: 9Rank: 9Rank: 9Rank: 9Rank: 9Rank: 9Rank: 9Rank: 9Rank: 9

5#
发表于 2013-10-16 12:49 PM |只看该作者
本帖最后由 htuomrev 于 2013-10-16 12:50 PM 编辑

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


回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

JBTALKS.CC |联系我们 |隐私政策 |Share

GMT+8, 2024-12-26 03:01 PM , Processed in 0.104487 second(s), 23 queries .

Powered by Discuz! X2.5

© 2001-2012 Comsenz Inc.

Ultra High-performance Dedicated Server powered by iCore Technology Sdn. Bhd.
Domain Registration | Web Hosting | Email Hosting | Forum Hosting | ECShop Hosting | Dedicated Server | Colocation Services
本论坛言论纯属发表者个人意见,与本论坛立场无关
Copyright © 2003-2012 JBTALKS.CC All Rights Reserved
合作联盟网站:
JBTALKS 马来西亚中文论坛 | JBTALKS我的空间 | ICORE TECHNOLOGY SDN. BHD.
回顶部