【VB】窗体的调用与返回

[RexfieldVon]

我用窗体成员show调用了另一个窗体，但我希望这个窗体返回一个值。我用的是定义全局变量的方法。
然后我又想让原窗体等待被调用的窗体返回一个值，如果用循环的办法就会死机。
请问有什么方法可以使原窗体变成阻塞状态？

[舉杯邀明月]

没理解楼主的意思 ..................

应该是你逻辑上的问题吧！

[cbm6666]

定义全局变量 你要把变量放进 .bas 模块里 使用 Public 或 Global

例 Public Rtn as long 或 Global Rtn as long

[chinaboyzyq]

原窗体中用定时器（timer控件）去处理

'原窗体
Private Sub Form_Load()
    Timer1.Interval = 500
    
End Sub

Private Sub Timer1_Timer()
    If Form2.Text1 = 3 Then
       MsgBox Form2.Text1
       Timer1.Enabled = False
    End If
    
End Sub

'show显示的窗体（这只是一个返回值例子程序）
Private Sub Form_Load()
    Timer1.Interval = 2000
    Text1 = 0
End Sub

Private Sub Timer1_Timer()
    Text1 = Text1 + 1
    If Text1 > 5 Then Text1 = 0
    
End Sub

[帝企鹅已被占用]

hide

[king06]

怎么用到循环了?
代码?

[SYSSZ]

Private Sub Command1_Click()
Line:
d = Form2.fun '调用Form2中的函数,获得返回值
If d = 0 Then
GoTo Line '如果没得到返回值,再调用Form2中的函数,直到获得返回值
End If
End Sub