- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 如何遍历模式窗口的控件 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=65612)
-- 发布时间：2015/3/19 10:47:00
-- 如何遍历模式窗口的控件
我有一个模式窗口，名称为：修改密码，窗口中有五个控件，执行以下代码没有任何输出
但其他的停靠窗口，能执行。
For Each con As WinForm.Control In FormS("修改密码").Controls
If Typeof con Is WinForm.Button Then \'判断控件是否是命令按钮
Dim Cmd As WinForm.Button = con \'使用特定类型的变量引用控件
OUTPUT.SHOW(Cmd.Name & " : " & Cmd.Text)
End If
Next
-- 发布时间：2015/3/19 10:49:00
--
说明你没有 Button控件.
For Each con As WinForm.Control In FormS("修改密码").Controls
OUTPUT.SHOW(con .Name & " : " & con .Text)
Next
OUTPUT.SHOW(con .Name & " : " & con .Text)
Next
-- 发布时间：2015/3/19 10:51:00
--
无法遍历。你可以把模式窗口弄成独立窗口，同样可以用模式窗口的效果。比如，打开的时候，这样调用就是模式窗口
Forms("窗口1").open
Forms("窗口1").BaseForm.Visible = False
Forms("窗口1").BaseForm.ShowDialog
-- 发布时间：2015/3/19 10:53:00
--
此主题相关图片如下：修改密码.png
-- 发布时间：2015/3/19 10:57:00
--
看2、3楼
-- 发布时间：2015/3/19 11:00:00
--
以下是引用客人(118.251.*.*)在2015/3/19 10:53:00的发言：
此主题相关图片如下：修改密码.png
此主题相关图片如下：修改密码.pngFor Each con As WinForm.Control In FormS("修改密码").Controls
OUTPUT.SHOW(con .Name)
Next
OUTPUT.SHOW(con .Name)
Next
这样执行也没有显示结果
-- 发布时间：2015/3/19 11:01:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:修改密码01.zip |
-- 发布时间：2015/3/19 11:04:00
--
遍历代码在哪?
-- 发布时间：2015/3/19 11:07:00
--
模式窗口,打开就会成为模式盖住所有东西,你点不了其他东西,后面的代码也不会执行,一直到窗口关闭才会往下执行的
-- 发布时间：2015/3/19 11:12:00
--
以下是引用有点甜在2015/3/19 10:51:00的发言：
无法遍历。你可以把模式窗口弄成独立窗口，同样可以用模式窗口的效果。比如，打开的时候，这样调用就是模式窗口
Forms("窗口1").open
Forms("窗口1").BaseForm.Visible = False
Forms("窗口1").BaseForm.ShowDialog
请问，模式窗口，如何通过代码变成独立窗口？