对话框延迟关闭的问题

河伯

对话框Dialog1，上有一个确定按钮：

2. 
   
3.     Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
   
4.         Me.DialogResult = System.Windows.Forms.DialogResult.OK
   
5.         Me.Close()
   
6.     End Sub
   

<br />     Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click<br />         Me.DialogResult = System.Windows.Forms.DialogResult.OK<br />         Me.Close()<br />     End Sub<br />

命令函数调用对话框，点击确定后执行一个比较耗时的操作：

2. 
   
3. <CommandMethod("TTT")> Public Sub TTT()
   
4.         Dim doc As Document = Application.DocumentManager.MdiActiveDocument
   
5.         Dim ed As Editor = doc.Editor
   
6.         Dim Dlg As New Dialog1
   
7.         Application.ShowModalDialog(Dlg)
   
8.         If Dlg.DialogResult = Windows.Forms.DialogResult.OK Then
   
9.             For i = 0 To 30000
   
10.                 ed.WriteMessage(vbLf & "i={0}", i)
    
11.             Next
    
12.         End If
    
13.     End Sub

<br /> <CommandMethod("TTT")> Public Sub TTT()<br />         Dim doc As Document = Application.DocumentManager.MdiActiveDocument<br />         Dim ed As Editor = doc.Editor<br />         Dim Dlg As New Dialog1<br />         Application.ShowModalDialog(Dlg)<br />         If Dlg.DialogResult = Windows.Forms.DialogResult.OK Then<br />             For i = 0 To 30000<br />                 ed.WriteMessage(vbLf & "i={0}", i)<br />             Next<br />         End If<br />     End Sub

问题：点击确定按钮后，对话框直到命令函数执行完成才消失。VBA中用DoEvents方法可以实现，VB.NET中DoEvents方法不起作用。如果Click事件加上Me.Hide，则命令执行时很多AutoCAD界面元素时不显示，也不行。
怎么才能让对话框即时关闭不延迟？

雪山飞狐_lzh

2.     <CommandMethod("vt2")> _
   
3.     Public Sub Test2()
   
4.         Dim doc As Document = Application.DocumentManager.MdiActiveDocument
   
5.         Dim ed As Editor = doc.Editor
   
6. 
   
7.         Dim res As Windows.Forms.DialogResult
   
8.         Using Dlg As New Form1()
   
9.             res = Application.ShowModalDialog(Dlg)
   
10.         End Using
    
11.         If res <> Windows.Forms.DialogResult.OK Then Return
    
12. 
    
13.         ed.UpdateTiledViewportsFromDatabase()
    
14.         For i = 0 To 30000
    
15.             ed.WriteMessage(vbLf & "i={0}", i)
    
16.         Next
    
17. 
    
18.     End Sub

    <CommandMethod("vt2")> _<br />     Public Sub Test2()<br />         Dim doc As Document = Application.DocumentManager.MdiActiveDocument<br />         Dim ed As Editor = doc.Editor<br /> <br />         Dim res As Windows.Forms.DialogResult<br />         Using Dlg As New Form1()<br />             res = Application.ShowModalDialog(Dlg)<br />         End Using<br />         If res <> Windows.Forms.DialogResult.OK Then Return<br /> <br />         ed.UpdateTiledViewportsFromDatabase()<br />         For i = 0 To 30000<br />             ed.WriteMessage(vbLf & "i={0}", i)<br />         Next<br /> <br />     End Sub

河伯

测试了一下，UpdateTiledViewportsFromDatabase虽然能立即关闭对话框，却导致一次重新生成，不可行。另外，Using语句好像专门用于对非托管资源的调用，用在Form类型上应该不起作用吧。
前面同样的代码，在WIN XP中有延迟，在WIN  7中就没有，看来和平台有关。.NET API里应该有解决办法，只是一时找不到。

雪山飞狐_lzh

Using用于IDispose接口
估计只有在.Net里找？或者调用Api？未知
NetAPi应该没有解决方案？

Student

今天，也遇到这个问题。转了几道弯才算凑付过去。

single-yu

Student 发表于 2012-4-30 19:01
今天，也遇到这个问题。转了几道弯才算凑付过去。

这个问题如何解决的呢，请教一下！