在VB6中如何实现像消息对话框似的功能

来源:百度知道 编辑:UC知道 时间:2024/06/19 00:44:30
在VB6中,我的程序有两个窗口,运行时显示Form1,Form2由Form1的Command1按钮调用,我要实现的功能是只要Form2不关闭就始终置于Form1的顶端,且不能对Form1进行任何操作,但可以对其他应用程序操作,其他应用程序窗口可以覆盖到Form2的顶端,就像是弹出消息对话框一样,或者像在Word中打开另存为对话框时,不能再对Word文件进行操作,只有关闭另存为对话框才能继续对Word文件进行操作,但这个过程并不影响其他应用程序窗口的显示。请教如何实现?
我知道了,只要Form1.Enabled=False就可以了。

Private Sub Command1_Click()
Form2.Show 1
End Sub
就 OK了 ..

还有中方法:(不是你要的)
Form2.show vbModeless, Me
此方法Form2显示后将一直位于Form1前
form1可以获得焦点并操作,但是不管其是否获得焦点都位于Form2之后

Form2.show vbmodal , form1