信息管理系统要求VB编

答案:4 悬赏:70 手机版

解决时间 2021-05-11 09:10

提问者网友：眉目添风霜
2021-05-11 04:04

Dim a As Integer
Dim b As Single
a = (Text1.Text)
b = (Text2.Text)
Text3.Text = a * b*10

我的意思是要在窗体2修改C保存后隐藏在窗体1的C跟着窗体2里的C改变

我的想法

Private Sub Command1_Click()
Dim a As Integer
Dim b As Single
Dim c As Single
a = (Text1.Text)
b = (Text2.Text)
c = Form2(Text1.Text)
Text3.Text = a * b * c
End Sub
运行失败求高手帮弄下

问题二、窗体3想列个表格能一键打印机打印会的加QQ492562626一个问题50分谢谢高手帮忙第二个问题一起回答的我追分

最佳答案

五星知识达人网友：洒脱疯子
2021-05-11 04:48

你把form2的窗体中定义的c去掉(如果定义了的话)，然后换成这句定义

Puclic c as Single并把它放在窗体的最上边

并在Form2中加上这一句

Private Sub Text1_Change()
c = Val(Text1.Text)
End Sub

这样c就可以随时记录text1中的数据了，然后你在form1中什么时候获取这个c都行，你刚刚的代码可以改成这样

Private Sub Command1_Click()
Dim a As Integer
Dim b As Single
Dim c As Single
a = (Text1.Text)
b = (Text2.Text)
c = Form2.c

Text3.Text = a * b * c
End Sub

就行了

全部回答

1楼网友：你可爱的野爹
2021-05-11 07:35

Public tags As Single Private Sub Command2_Click() Form2.Show End Sub

Private Sub Command1_Click() Dim a As Integer Dim b As Single Dim c As Single a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Form2.Label1) Text3.Text = a * b * c End Sub

Private Sub Command1_Click() Label1.Caption = Val(Text1.Text)

Form1.tags = Val(Label1.Caption) End Sub

Private Sub Form_Load() If Form1.tags = 0 Then Form1.tags = 10 Label1.Caption = Form1.tags End Sub

2楼网友：酒醒三更
2021-05-11 07:26

如果是按FORM2的command1按钮保存就要这样

方法一：将C定义为公用函数及plblic的

直接c=form2.text1.text

3楼网友：往事埋风中
2021-05-11 06:06

Private Sub Command1_Click() Dim a As Integer Dim b As Single Dim c As Single a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Form1.Text1.Text) Text3.Text = a * b * c End Sub

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息