怎样知道程序中的某个FORM已经被打开

foxzz 2003-02-11 11:33:51
在程序中如何可以检测到某个Form已经被打开激活,避免第2次被重复打开而导致系统出错??
...全文
59 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
mldnking 2003-02-12
  • 打赏
  • 举报
回复
thisform.stated
northwolves 2003-02-12
  • 打赏
  • 举报
回复
'codes for form1
Private Sub Command1_Click()
Load Form2
Dim msg As String
For I = 0 To Forms.Count - 1
msg = msg & " " & Forms(I).Caption

Next I
MsgBox msg, 64, "active forms"
End Sub

Private Sub Command2_Click()
Unload Form2
Dim msg As String
For I = 0 To Forms.Count - 1
msg = msg & " " & Forms(I).Caption

Next I
MsgBox msg, 64, "active forms"
End Sub
nydelphi 2003-02-11
  • 打赏
  • 举报
回复
up

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧