<< Click to Display Table of Contents >> 判断窗体是否存在(gf_FormExists函数) |
函数说明
该函数可以判断一个窗体是否存在。
函数原型
|
Public Function gf_FormExists(strFormName As String) As Boolean |
语法
gf_FormExists(strFormName)
参考:gf_FormExists("frmTest") ‘判断窗体frmTest是否存在
参数
参数名 |
必需/可选 |
数据类型 |
参数说明 |
---|---|---|---|
strFormName |
必需 |
String |
要检查的窗体名 |
返回值
返回一个布尔型(Boolean)的值。如果对应的窗体存在,则返回True。不存在,则返回False。
示例
|
Sub subTest() Dim blnReturn As Boolean '定义布尔型变量,保存返回的结果 blnReturn = gf_FormExists("frmTest") '判断窗体 frmTest 是否存在 '显示结果 If blnReturn Then Msgbox "窗体 frmTest 存在" Else Msgbox "窗体 frmTest 不存在" End If End Sub |