怎么判断正在运行的是哪个表单(也就是表单名)
怎样判断正在运行的是哪个表单(也就是表单名)?
用顶层表单作为程序主窗口,调用其他表单在此顶层表单窗口中运行,怎样判断正在运行的是哪个表单(也就是表单名)?
假设一次只能打开一个表单,就判断这个表单的名称?
------解决方案--------------------
Sys(1271,Thisform) && 返回 路径+表单文件名
Justfname(Sys(1271,Thisform)) && 取得表单文件名
楼主真没记性
严格地说,应该判断表单的文件名,而不是表单名
将第二行代码放在表单的适当事件中
------解决方案--------------------
估计你没有说明白。
如果不是我理解的,那就这样
运行所以子表单都这样运行
Public oSubform
Do Form 子表单1.scx Name oSubform
需要在子表单之外关闭时:oSubform.Release
Public oSubform
Do Form 子表单2.scx Name oSubform
需要在子表单之外关闭时:oSubform.Release
......
------解决方案--------------------
你是不是想判断表单是否已经打开了???
打开之前先判断,如:
if wexist("表单名")
activat window 表单名 &&存在这个窗口就激活这个表单
else
do form 表单名 &&不存在这个窗口就启动表单
endif
------解决方案--------------------
定义一个变量?
public bd
bd=0
每个表单运行之前在loda 事件中写:
bd= bd + 1
在每个表单关闭时加上:
bd = bd -1
这样判断的时候,
messagebox("当前运行的表单数量为:"+allt(str(bd)),64,"提示")
如果bd>0 表示有表单已经运行了?相反就是没有了....
傻瓜的方法。。。。不知道有没有什么函数可以直接使用的。。
用顶层表单作为程序主窗口,调用其他表单在此顶层表单窗口中运行,怎样判断正在运行的是哪个表单(也就是表单名)?
假设一次只能打开一个表单,就判断这个表单的名称?
------解决方案--------------------
Sys(1271,Thisform) && 返回 路径+表单文件名
Justfname(Sys(1271,Thisform)) && 取得表单文件名
楼主真没记性
严格地说,应该判断表单的文件名,而不是表单名
将第二行代码放在表单的适当事件中
------解决方案--------------------
估计你没有说明白。
如果不是我理解的,那就这样
运行所以子表单都这样运行
Public oSubform
Do Form 子表单1.scx Name oSubform
需要在子表单之外关闭时:oSubform.Release
Public oSubform
Do Form 子表单2.scx Name oSubform
需要在子表单之外关闭时:oSubform.Release
......
------解决方案--------------------
你是不是想判断表单是否已经打开了???
打开之前先判断,如:
if wexist("表单名")
activat window 表单名 &&存在这个窗口就激活这个表单
else
do form 表单名 &&不存在这个窗口就启动表单
endif
------解决方案--------------------
定义一个变量?
public bd
bd=0
每个表单运行之前在loda 事件中写:
bd= bd + 1
在每个表单关闭时加上:
bd = bd -1
这样判断的时候,
messagebox("当前运行的表单数量为:"+allt(str(bd)),64,"提示")
如果bd>0 表示有表单已经运行了?相反就是没有了....
傻瓜的方法。。。。不知道有没有什么函数可以直接使用的。。