Foxtable(狐表)用户栏目专家坐堂 → [分享] 多线程等待窗体(窗口遮罩)(更新)


  共有58561人关注过本帖树形打印复制链接

主题:[分享] 多线程等待窗体(窗口遮罩)(更新)

帅哥哟,离线,有人找我吗?
逛逛
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:1693 积分:12135 威望:0 精华:7 注册:2013/7/11 10:52:00
[分享] 多线程等待窗体(窗口遮罩)(更新)  发帖心情 Post By:2015/8/18 10:03:00 [只看该作者]

代码来自于对博客园 Winform应用程序实现通用遮罩层 的改写,对此表示由衷感谢

 

 

实现一个自定义的半透明等待窗口

在执行长时间运算的代码时,遮罩主窗口,防止误操作

注:长时间运行的代码必须是放在自定义函数中。

 

 

 

更新1:解决窗口闪烁问题

更新2:解决不能替换GIF图片的问题 

 

 

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:史上醉牛.zip

 

[此贴子已经被作者于2015/10/4 11:03:12编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
bigeng
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:852 积分:5875 威望:0 精华:0 注册:2014/5/20 17:56:00
  发帖心情 Post By:2015/8/18 10:03:00 [只看该作者]

沙发了

 回到顶部
帅哥哟,离线,有人找我吗?
leopain
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:172 积分:1188 威望:0 精华:0 注册:2015/8/5 16:45:00
  发帖心情 Post By:2015/8/18 10:05:00 [只看该作者]

瞧瞧


 回到顶部
帅哥哟,离线,有人找我吗?
lsy
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2015/8/18 10:14:00 [只看该作者]

逛逛的顶帖专业户。

 回到顶部
帅哥哟,离线,有人找我吗?
blsu33
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2928 积分:20184 威望:0 精华:0 注册:2012/2/3 17:45:00
  发帖心情 Post By:2015/8/18 10:15:00 [只看该作者]

顶呱呱

 回到顶部
帅哥哟,离线,有人找我吗?
foxqd
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:42 积分:381 威望:0 精华:0 注册:2014/8/25 8:59:00
  发帖心情 Post By:2015/8/18 10:18:00 [只看该作者]

看看

 回到顶部
帅哥哟,离线,有人找我吗?
hanxuntx
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2609 积分:16926 威望:0 精华:11 注册:2011/9/20 16:13:00
  发帖心情 Post By:2015/8/18 10:21:00 [只看该作者]

谢谢分享图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
一笑
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:808 积分:6213 威望:0 精华:0 注册:2014/3/23 23:02:00
  发帖心情 Post By:2015/8/18 10:22:00 [只看该作者]

学习

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/8/18 10:47:00 [只看该作者]

直接在弄一个独立窗口,弄透明,也是同样的效果吧。

 

AfterLoad事件

 

e.Form.BaseForm.Width = BaseMainForm.Width
e.Form.BaseForm.Height = BaseMainForm.Height
e.Form.BaseForm.Top = BaseMainForm.Top
e.Form.BaseForm.Left = BaseMainForm.Left
e.Form.BaseForm.FormBorderStyle = Windows.Forms.FormBorderStyle.None  '消除窗口的边框
e.Form.BaseForm.Opacity = 0.1


 回到顶部
帅哥哟,离线,有人找我吗?
逛逛
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:1693 积分:12135 威望:0 精华:7 注册:2013/7/11 10:52:00
  发帖心情 Post By:2015/8/18 10:56:00 [只看该作者]

以下是引用大红袍在2015/8/18 10:47:00的发言:

直接在弄一个独立窗口,弄透明,也是同样的效果吧。

 

 

GIF 不会动啊

你让他运行,用其他程序的窗口去遮盖一下,他就不刷新了


 回到顶部
总数 97 1 2 3 4 5 6 7 8 9 10 下一页