[求助]模式窗口和独立窗口的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]模式窗口和独立窗口的问题

共有2275人关注过本帖树形打印复制链接主题：[求助]模式窗口和独立窗口的问题

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/5/15 19:04:00 [显示全部帖子]

用这个方法：

1、先执行代码

While vars("标志") <> "4"
Application.DoEvents
End While
msgbox(123)

2、你只有把 vars("标志") = "4" 执行以后，才会弹出123

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/5/16 9:06:00 [显示全部帖子]

直接做一个模式窗口或者独立窗口都可以啊

按钮代码，把你的登陆窗口等打开即可，如 forms("登陆").Show

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/5/16 9:44:00 [显示全部帖子]

弄一个独立窗口；afterOpenProject写代码

Forms("窗口1").Show

While vars("标志") <> "4"
Application.DoEvents
End While
msgbox(123)

独立窗口按钮代码

vars("标志") = "4"

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/5/16 10:29:00 [显示全部帖子]

以下是引用JN_LC在2018/5/16 10:27:00的发言：
请问“有点甜”，while是什么语句，帮助文件中怎么没有？另外，如果第一个窗口中有多个按钮呢？

1、do while 和 for next 语句一样，都是循环执行而已。

2、具体一点你的问题，没看懂你到底要做什么，上传具体实例说明。

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/5/16 10:51:00 [显示全部帖子]

不理解你什么意思。

直接做成多个模式窗口、独立窗口的程序，不就好了？

需要哪个窗口，就打开哪个窗口，哪有你认为的那么复杂。

有点甜

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/5/16 11:32:00 [显示全部帖子]

afterLoad事件，写代码

e.Form.BaseForm.ShowInTaskbar = True
e.Form.BaseForm.MinimizeBox= True
e.Form.BaseForm.TopMost = False

打开其他窗口，如果要隐藏第一个窗口，写代码

Forms("窗口1").BaseForm.WindowState = 1

下一主题 >> << 上一主题

主题：[求助]模式窗口和独立窗口的问题