知识大全 VB.net2008精彩实例，窗体应用技巧[2]

Posted 2022-07-17 属性

篇首语：少年意气强不羁，虎胁插翼白日飞。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 VB.net2008精彩实例，窗体应用技巧[2]相关的知识，希望对你有一定的参考价值。

VB.net2008精彩实例，窗体应用技巧[2] 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　相关的属性设置如下

　　TrackBar Value属性:　　TickFrequency: 属性:　　Maximum属性: 　　　　　　Label Text属性: 选择窗体的透明度:　　Timer Interval属性:

　　进入代码编辑器输入代码

　　首先进行声明

Public Class Form Inherits System Windows Forms Form Dim tps As IntegerDim bol As Boolean

　　进入TrackBar _Scroll事件

Private Sub TrackBar _Scroll(ByVal sender As Object ByVal e As System EventArgs) Handles TrackBar Scroll Me Opacity = TrackBar Value / Label Text = 窗体透明度 & CStr(Me Opacity * ) & % End Sub

　　进入Timer _Tick事件

Private Sub Timer _Tick(ByVal sender As Object ByVal e As System EventArgs) Handles Timer Tick If bol = False Then tps = tps + Me Opacity = tps / If Me Opacity >= Then Timer Enabled = False bol = True End If Else tps = tps Me Opacity = tps / If Me Opacity <= Then Timer Enabled = False bol = False End If End If End Sub

　　进入Form _Load事件

Private Sub Form _Load(ByVal sender As System Object ByVal e As System EventArgs) Handles MyBase Load Timer Enabled = TrueEnd Sub

　　进入Form _Closing事件

Private Sub Form _Closing(ByVal sender As Object ByVal e As System ComponentModel CancelEventArgs) Handles MyBase Closing Timer Enabled = True If MsgBox( 你确实要关闭窗体吗？ MsgBoxStyle OkCancel) = MsgBoxResult Ok Then e Cancel = False Else Timer Enabled = False Me Opacity = tps = bol = True e Cancel = True End IfEnd Sub

　　创建完成后我们来运行程序测试一下测试成功程序窗体是不是变得透明了通过调节滚动条我们甚至可以使得窗体消失达到完全隐形的目的这是不是很神奇呢？

cha138/Article/program/net/201311/14510