在SDI的一个弹出窗口中完成特定操作时,希望在不关闭弹窗的情况下更新主窗体中的一个列表框的内容,应当如何实现?
---------------------------------------------------------------

在弹出窗体中声明事件。
frmDialog.frm

event onProcessComplete()

private sub cmdOK_click()
    
    raiseevent onProcessComplete
    
end sub

主窗口中接收该事件
frmMain.frm

private withevents mfrmDialog   as frmDialog

'打开弹出窗口
private sub Command1_click()
    
    if mfrmDialog is nothing then
        set mfrmDialog = new frmDialog
    end if
    
    mfrmDialog.Show vbmodal
    
end sub

'处理窗口中的事件
private mfrmDialog_onProcessComplete()
    
    msgbox "onProcessComplete"
    
end sub