SDI程序中的弹窗如何通知主窗体更新界面?
在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