ActiveForm

这是Forms集合的一个属性,用于返回活动窗口,如果没有活动窗口,则返回Nothing。

示例

Dim frm As WinForm.Form = Forms.ActiveForm
If
frm IsNot Nothing Then
    MessageBox.Show(
"活动窗口为:" & frm.Name)
Else

    MessageBox.Show(
"无活动窗口!" )
End
If

提示:上面的代码在命令窗口执行的时候,会一直提示无活动窗口,理由是什么,大家可以自己想想。


本页地址:http://www.foxtable.com/webhelp/topics/1547.htm