以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [建议]增加显示处理中的功能  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=102588)

--  作者:xiekai
--  发布时间:2017/6/22 15:51:00
--  [建议]增加显示处理中的功能

建议给StatusBar.ProgressBar增加一个Processing属性,设为True时在StatusBar显示一个动态的形象。

用WaitCursor表示处理中需和控件绑定,不方便。


--  作者:有点色
--  发布时间:2017/6/22 16:31:00
--  
 你希望如何显示动态形象?你不是可以通过赋值改变?
--  作者:xiekai
--  发布时间:2017/6/22 16:40:00
--  

因为不是表示进程,所以不想不断赋值。

只要有个不断地在动的形象即可。目的是让用户知道不是死机。


--  作者:有点色
--  发布时间:2017/6/22 17:13:00
--  

要用多线程哦,可以显示一个遮罩窗口 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=73365&skin=0

 


--  作者:xiekai
--  发布时间:2017/6/23 1:26:00
--  

干脆定义了两个内部函数,把窗口所有控件的光标全设成WaitCursor,好像也行。

 

Dim frm As WinForm.Form = args(0)
For Each control As WinForm.Control In frm.Controls
    control.baseControl.Cursor = System.Windows.Forms.Cursors.WaitCursor
Next

 

Dim frm As WinForm.Form = args(0)
For Each control As WinForm.Control In frm.Controls
    control.baseControl.Cursor = System.Windows.Forms.Cursors.Default
Next