如何将指定的窗体设置成像IE的关于窗口一样，在弹出该窗体后一直获得当前程序的焦点？

[superox]

如何将指定的窗体设置成像IE的关于窗口一样，在弹出该窗体后一直获得当前程序的焦点？

比如像IE点了关于窗口后，就不能操作IE的其他功能了，关于窗口在关闭前始终处于IE的焦点中。

[CloneCenter]

FormAbout.Show vbModal

只要模式显示就可以了。

[zestsnake]

form1.show 1

[superox]

我的代码

Private Sub cmdOK_Click()
Unload Me
End Sub

Private Sub Form_Load()
Me.Show 1
Me.Caption = "关于本软件"
lblVersion.Caption = "版本 " & App.Major & "." & App.Minor & "." & App.Revision
End Sub

但是有个问题，该窗体关闭不了了，点击CMDOK后，在UNLOAD ME后会跑到FORM_LOAD中去，很奇怪，不知道为何，form.show 后面带的参数有哪些？具体什么意思？请赐教，非常感谢

[CloneCenter]

我觉得你这样的写法可能有问题。

在 MainForm 的 AboutMenu Click 中写：

frmAbout.Show vbModal

就可以了。
相应的 FrmAbout 中的 Form_Load 修改一下，去掉 Me.Show 1
Private Sub Form_Load()
Me.Caption = "关于本软件"
lblVersion.Caption = "版本 " & App.Major & "." & App.Minor & "." & App.Revision
End Sub

其他的不变。