VB.Net实现窗口渐淡关闭的方法
2007-11-27 22:19
447 查看
Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
If MsgBox("請注意看關閉的視窗", MsgBoxStyle.Question + MsgBoxStyle.OKCancel, "關閉") = MsgBoxResult.OK Then
Dim d As Double
For d = 1 To 0 + 0.2 Step -0.2
System.Threading.Thread.Sleep(50)
Application.DoEvents()
Me.Opacity = d
Me.Refresh()
Next d
Else
e.Cancel = True
End If
@#1.設視窗為Form1
@#2.將變數命名為d
@#3.依物件名稱適當更改程式碼
End Sub
If MsgBox("請注意看關閉的視窗", MsgBoxStyle.Question + MsgBoxStyle.OKCancel, "關閉") = MsgBoxResult.OK Then
Dim d As Double
For d = 1 To 0 + 0.2 Step -0.2
System.Threading.Thread.Sleep(50)
Application.DoEvents()
Me.Opacity = d
Me.Refresh()
Next d
Else
e.Cancel = True
End If
@#1.設視窗為Form1
@#2.將變數命名為d
@#3.依物件名稱適當更改程式碼
End Sub
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 
相关文章推荐
- VB.net 在一个From 关闭后切换到另一From 实现方法,并加载XP视觉样式
- VB.NET窗口渐淡关闭
- VB.NET窗口渐淡关闭
- JavaScript实现自动弹出窗口并自动关闭窗口的方法
- Vb.net/VB 声明API函数实现父窗口功能
- 在VB.NET中初始化网格实现方法知识讲解
- vb.net继承、悬浮窗口、Form.show()方法
- vb.net 关闭窗口彻底退出
- JS实现关闭当前子窗口，刷新父窗口及调用父窗口的方法
- net实现窗口最大化和最小化以解关闭（转）
- Asp.net控制Tomcat启动关闭的实现方法
- [VB.NET]怎样实现MDI窗体菜单上的“窗口”菜单下面的功能
- 转： VB.Net 中实现延迟的几种方法分析
- C#实现关闭子窗口而不释放子窗口对象的方法
- vb.net实现Windows关机渐淡效果
- C# Winform中实现主窗口打开登录窗口关闭的方法
- VB.Net实现Ftp下载的方法
- VB.Net实现Ftp上传的方法
- Asp.net实现弹出窗口提示，又防止刷新被重复提交的方法
- JS实现关闭当前子窗口，刷新父窗口及调用父窗口的方法