1,453
社区成员
发帖
与我相关
我的任务
分享如何断form是否加载了？
我用form.show vbmodal来显示窗体，然后用热键同样会调用form.show vbmodal方法，form已经出来了后，用热键调用的时候，报错。如何判断form已经show vbmodal？
...全文
请发表友善的回复…
发表回复
winehero 2005-11-09
- 打赏
- 举报
ghjfgdsdfhdg
viena 2005-11-09
- 打赏
- 举报
在全局模块里加一个标志变量，Form_Load、Form_Unload中置标志
zyg0 2005-11-09
- 打赏
- 举报
'*************************************************************************
'**函 数 名：FromIsShow
'**输 入：str(String) -窗体名
'**输 出：(Boolean) -true为已经打开
'**功能描述：
'**全局变量：
'**调用模块：
'**作 者：影子
'**日 期：2004-12-22 11:48:20
'**修 改 人：
'**日 期：
'**版 本：V1.0.0
'*************************************************************************
Public Function FromIsShow(str As String) As Boolean
Dim pd As Boolean
pd = False
Dim temp
For Each temp In Forms
If temp.Name = str Then
FromIsShow = True
Set temp = Nothing
Exit Function
End If
Next
FromIsShow = False
Set temp = Nothing
End Function
'**函 数 名：FromIsShow
'**输 入：str(String) -窗体名
'**输 出：(Boolean) -true为已经打开
'**功能描述：
'**全局变量：
'**调用模块：
'**作 者：影子
'**日 期：2004-12-22 11:48:20
'**修 改 人：
'**日 期：
'**版 本：V1.0.0
'*************************************************************************
Public Function FromIsShow(str As String) As Boolean
Dim pd As Boolean
pd = False
Dim temp
For Each temp In Forms
If temp.Name = str Then
FromIsShow = True
Set temp = Nothing
Exit Function
End If
Next
FromIsShow = False
Set temp = Nothing
End Function
windlyc 2005-11-09
- 打赏
- 举报
ok，3x，已经搞定！和zyg0(影子(我和猪的唯一区别就是我比它能吃) 的方法一样！
