打开程序等待界面 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 打开程序等待界面

共有3542人关注过本帖树形打印复制链接主题：打开程序等待界面

qaz

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

加好友

发短信

等级：幼狐帖子：141 积分：1096 威望：0 精华：0 注册：2017/5/11 21:38:00

打开程序等待界面 发帖心情

Post By：2017/7/3 9:55:00 [只看该作者]

程序中做了两个窗口，窗口打开比较慢。导致程序加载完后，过几十秒后软件才显示。现在想做一个等待加载的窗口，打开程序后先显示等待加载窗口，等全部窗口加载完后，再将等待加载窗口关闭，应该怎么做？

有点甜

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

加好友

发短信

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

Post By：2017/7/3 9:58:00 [只看该作者]

这个窗口，需要编写代码实现，如

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=84298&skin=0

qaz

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

加好友

发短信

等级：幼狐帖子：141 积分：1096 威望：0 精华：0 注册：2017/5/11 21:38:00

Post By：2017/7/3 17:30:00 [只看该作者]

看的不是很懂，感觉和我描述的不太一样。

想在登录成功后弹出等待加载界面，等需要的窗口全部打开后在关闭加载界面。避免让使用人员认为，登录完后就没有反应了。

有点甜

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

加好友

发短信

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

Post By：2017/7/3 17:49:00 [只看该作者]

全局代码

Public _frm As object

beforeLoadInnerTable或者beforeLoadOuterTable事件

If _frm Is Nothing Then
    Dim frm As New Windows.Forms.Form
    frm.Text = "欢迎使用"
    frm.Topmost = True
    frm.width = 500
    frm.height = 500



    Dim pic As new Windows.Forms.PictureBox
    pic.Image = getImage("d:\test.jpg")
    pic.width = 200
    pic.height = 100
    pic.Top = 10
    pic.left = 10
    frm.Controls.Add(pic)



    Dim web As new Windows.Forms.Webbrowser
    web.width = 500
    web.height = 200
    web.Top = 150
    web.left = 10

    web.Navigate("http://www.foxtable.com")
    frm.Controls.Add(web)



    frm.Show
    frm.Top = (SysInfo.ScreenHeight - frm.height) / 2
    frm.left = (SysInfo.ScreenWidth - frm.width) / 2

    _frm = frm

end if

AfterOpenProject事件

_frm .close
_frm = Nothing

[此贴子已经被作者于2017/7/3 17:50:20编辑过]

qaz

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

加好友

发短信

等级：幼狐帖子：141 积分：1096 威望：0 精华：0 注册：2017/5/11 21:38:00

Post By：2017/7/3 17:52:00 [只看该作者]

好的我试试，谢谢

qaz

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

加好友

发短信

等级：幼狐帖子：141 积分：1096 威望：0 精华：0 注册：2017/5/11 21:38:00

Post By：2017/7/5 15:35:00 [只看该作者]

如何能去掉窗口的外边框

如何将路径设置在生成的文件夹中，不要设置在d盘下

有点甜

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

加好友

发短信

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

Post By：2017/7/5 15:39:00 [只看该作者]

Dim frm As New Windows.Forms.Form
frm.Text = "欢迎使用"
frm.Topmost = True
frm.width = 500
frm.height = 500
frm.FormBorderStyle = Windows.Forms.FormBorderStyle.None

Dim pic As new Windows.Forms.PictureBox
pic.Image = getImage(ProjectPath & "images\test.jpg")
pic.width = 200
pic.height = 100
pic.Top = 10
pic.left = 10
frm.Controls.Add(pic)

Dim web As new Windows.Forms.Webbrowser
web.width = 500
web.height = 200
web.Top = 150
web.left = 10

web.Navigate("http://www.foxtable.com")
frm.Controls.Add(web)

frm.Show
frm.Top = (SysInfo.ScreenHeight - frm.height) / 2
frm.left = (SysInfo.ScreenWidth - frm.width) / 2