关于模式窗体的触发关闭

[清海扬波]

我想在父窗体中处理数据，在这个过程中显示模式窗体，父窗体处理完之后关闭模式窗体，怎么写呢

[CamelFang]

是在线程中处理数据吗?
否则显示模式窗体的时候,父窗体应该就没有干活了.

[清海扬波]

我就是想在模式窗体显示的时候让父窗体工作，但是不知道怎么做

[CamelFang]

如果数据处理的部分非常耗时,那最好把它放到单独的线程中处理.
线程结束后通过发送消息来通知主窗体.

[vbman2003]

form2.show,me

[清海扬波]

Vbman，你这个。。。
我是要模式查自动关闭的(在父窗体处理完成之后)
CamelFang：
可以给个实例么？

[vbman2003]

我想在父窗体中处理数据，在这个过程中显示模式窗体，父窗体处理完之后关闭模式窗体，怎么写呢
------------------------------------------------------
我是根据你的描述采用的变通方法：

Private Sub Command10_Click()
   
    Form2.Show , Me  '在父窗体上显示一个子窗体
    Dim l As Integer
    For l = 1 To 10000
        DoEvents
        Form2.Text1 = l   '父窗体继续处理
    Next
    '处理完毕关闭form2
    Unload Form2
    
End Sub

如果一定要是模式窗体，我坐下来学习了

[clear_zero]

你可以换一个思路,你的模式窗体是不是就是现实进度条呢,或者等待信息等等

如果是的话,那么你可以做一个frame里面装着progressbar,lable等等，长时间处理数据的时候就显示出来。处理以后再visible=false

[vbman2003]

To:clear_zero 进度条也可以用子窗体的方法，子窗体是始终显示在父窗体之上的。用子窗体的方法你可以在父窗体上继续你的工作，几乎所有正常的操作都可以，比如向文本框中输入，执行其它按钮命令等等。如果我没理解错的话，楼主就是要的这个......

[jwh2004]

将父窗体FormMain中处理数据的代码放到一个定时器Timer1中，在FormMain中设置
Timer1.Interval = 1000
Timer1.Enable=True
然后显示子窗体如：form2.Show 1
Timer1_Timer()事件的最后调用"Unload form2"即可。
这样在执行模式窗体form2时，父窗体的Timer1_Timer()事件仍会执行。