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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  打开程序等待界面  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=103200)

--  作者：qaz
--  发布时间：2017/7/3 9:55:00
--  打开程序等待界面
程序中做了两个窗口，窗口打开比较慢。导致程序加载完后，过几十秒后软件才显示。现在想做一个等待加载的窗口，打开程序后先显示等待加载窗口，等全部窗口加载完后，再将等待加载窗口关闭，应该怎么做？

--  作者：有点甜
--  发布时间：2017/7/3 9:58:00
--

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

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

--  作者：qaz
--  发布时间：2017/7/3 17:30:00
--
看的不是很懂，感觉和我描述的不太一样。
想在登录成功后弹出等待加载界面，等需要的窗口全部打开后在关闭加载界面。避免让使用人员认为，登录完后就没有反应了。

--  作者：有点甜
--  发布时间：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
--  发布时间：2017/7/3 17:52:00
--
好的我试试，谢谢

--  作者：qaz
--  发布时间：2017/7/5 15:35:00
--
如何能去掉窗口的外边框
如何将路径设置在生成的文件夹中，不要设置在d盘下

--  作者：有点甜
--  发布时间：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

--  作者：qaz
--  发布时间：2017/7/5 16:10:00
--
好的，谢谢

--  作者：qaz
--  发布时间：2017/7/5 17:58:00
--
窗口关不了了
_frm .close
_frm = Nothing

此主题相关图片如下：猎豹截图20170705175606.png

--  作者：有点蓝
--  发布时间：2017/7/5 18:03:00
--
if _frm isnot nothing then
_frm .close
_frm = Nothing
end if