以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  自定义提示窗口  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=121211)

--  作者:newsun2k
--  发布时间:2018/7/1 20:06:00
--  自定义提示窗口
在保存的时候,打开一个独立窗口,显示“正在保存”+动画。
保存完成后,关闭。
在保存过程中使用了多个application.doevents
但是,动画还是卡成屎了。
何解?

--  作者:有点甜
--  发布时间:2018/7/1 20:13:00
--  

认认真真看

 

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

 

 


--  作者:newsun2k
--  发布时间:2018/7/11 9:59:00
--  
2楼的方法有点复杂,没搞懂。
异步调用这个窗口,能不能解决这个问题?

--  作者:有点甜
--  发布时间:2018/7/11 10:11:00
--  
以下是引用newsun2k在2018/7/11 9:59:00的发言:
2楼的方法有点复杂,没搞懂。
异步调用这个窗口,能不能解决这个问题?

 

2楼的例子,调用很简单的。把遮罩窗口弹出即可。

 

不会做,在2楼例子那里加入你的功能发上来测试。


--  作者:newsun2k
--  发布时间:2018/7/13 19:02:00
--  
2楼的例子。怎么把背景和panel的颜色设置为全透明啊。

        Me.panImage = New System.Windows.Forms.Panel()
        Me.SuspendLayout()
        \'
        \'panImage
        \'
        Me.panImage.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
        Me.panImage.Location = New System.Drawing.Point(193, 138)
        Me.panImage.Name = "panImage"
        Me.panImage.Size = New System.Drawing.Size(335, 127)
        Me.panImage.TabIndex = 5
        \'
        \'WaitFrm
        \'
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.ClientSize = New System.Drawing.Size(482, 416)
        Me.Controls.Add(Me.panImage)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
        Me.Name = "WaitFrm"
        Me.Text = "FrmProcessing"
        Me.ResumeLayout(False)


--  作者:newsun2k
--  发布时间:2018/7/13 19:04:00
--  
只想显示我做好的gif,其他都为透明,能实现吗?
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:史上醉牛.rar



--  作者:有点蓝
--  发布时间:2018/7/13 20:24:00
--  
没有办法全透明