急求！VB6里实现多窗体的“上一步”和数值的传递

Question

本帖最后由 liuyou221 于 2010-04-08 12:45:29 编辑

Answer 1

因为你的 Text1 是在　Form_Load()　中初始化的。

Answer 2

FORM2中：
Public Sub Command1_Click()
a = a这个a = a 有意义吗？

Answer 3

Form1.Hide 改为 Unload Form1
Form2.Hide 改为 Unload Form2
否则再次显示窗体不触发 Form_Load() 事件。

Answer 4

form1.hide并不是卸载form1,仅仅是隐藏.
所以下次再次form1.show的时候,并不执行form_load过程
如果unload就不一样了,下面的程序能达到你说的效果.
'标注模块:Public a As Integer
'form1:包括text1和command1
Private Sub Command1_Click()
    Dim x As New Form2
    a = a + 1
    x.Show
    Unload Me
    
End Sub
Private Sub Form_Load()
Text1.Text = a
End Sub
'form2 包括text1和command1
Private Sub Command1_Click()
    Dim x As New Form1
    a = a + 1
    x.Show
    Unload Me
    
End SubPrivate Sub Form_Load()
Text1.Text = a
End Sub

Answer 5

两个show的地方都unload一下
Unload Form1
Form1.Show