| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- ”运行中窗口“，GIF动画不动 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=52965) |
| -- 作者：htlk25 -- 发布时间：2014/6/26 14:24:00 -- ”运行中窗口“，GIF动画不动 版主，您好！ 我在加载子表数据的过程中做了一个“运行中窗口“，这个窗口插入的是GIF动画， 加载数据是，窗口是显示出来，但加载过程中动画除刚开始动半秒，后来动画在加载过程中根本不会动作， 有办法解决吗？ 因为我是加载远程数据，所以过程不快！
|
| -- 作者：Bin -- 发布时间：2014/6/26 14:26:00 -- 除非使用多线程,否则线程阻塞动画就不会动了. 你弄个图片提示吧 |
| -- 作者：有点甜 -- 发布时间：2014/6/26 14:34:00 -- 你试试用异步加载看可不可以
DataTables("窗口1_table1").LoadFilter = ""
DataTables("窗口1_table1").LoadAsync()
|
| -- 作者：htlk25 -- 发布时间：2014/6/26 14:37:00 -- 请问有办法使用多线程吗？不然这个过程太让用难受了，开发出来的软件用户以为死机了！谢 |
| -- 作者：Bin -- 发布时间：2014/6/26 14:37:00 -- 看3楼. |
| -- 作者：blackzhu -- 发布时间：2014/6/26 14:44:00 -- 加个浏览器控件来显示这个 |
| -- 作者：htlk25 -- 发布时间：2014/6/26 14:46:00 -- Dim txt As String = Tables("电话扫雷窗口_table1").Current("展会简称") Dim dr As DataRow = DataTables("原始名单").find("展会简称=\'" & txt & "\'") If dr Is Nothing Then Forms("运行进度条窗口").open DataTables("原始名单").AppendLoad("[展会简称] = \'" & txt & "\'") End If Forms("运行进度条窗口").close 我用的是 appendload, 该如何实现？
|
| -- 作者：有点甜 -- 发布时间：2014/6/26 14:51:00 --
试试这样
Dim txt As String = Tables("电话扫雷窗口_table1").Current("展会简称")
Dim dr As DataRow = DataTables("原始名单").find("展会简称=\'" & txt & "\'")
If dr Is Nothing Then
Forms("运行进度条窗口").open
DataTables("原始名单").AppendLoadAsync("[展会简称] = \'" & txt & "\'")
End If
Forms("运行进度条窗口").close
|
| -- 作者：Bin -- 发布时间：2014/6/26 14:52:00 -- AppendLoadAsync |
| -- 作者：有点甜 -- 发布时间：2014/6/26 14:52:00 -- 注意，用AppendLoadAsync的时候，就不能像8楼你这样写代码了。进度条可能不会正常显示的。 |