VB 2010 （70）用 窗体的Opacity属性实例窗体的淡入淡出

Public Class Form1

    
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As Double
        For i = -1 To 0 Step 0.0005
            Me.Opacity = System.Math.Abs(i) '加绝对值了
            Me.Refresh()
        Next i

    End Sub
End Class

 Opacity属性可以创建位于其他应用程序前面的应用程序，“抱走”它们的鼠标单击事件和其他事件。

    Opacity属性用于调节窗体的不透明度或者透明度。取值为0%可以使窗体完全透明，取值为100%可以使窗体完全可见。在0-100的任意值都可以使窗体就像幽灵一样部分可见牵注意，取值为0%时将不再能点击窗体。

    除了使整个窗体透明之外，TransparencyKey属性还允许指定某种颜色在窗体上是透明的。这样，就可以使窗体的一部分透明，而其他部分不发生变化。
    例如，如果TransparencyKey属性设置为红色，则窗体上显示为红色的区域就是透明的。窗体后面的内容就会透过这个区域显示出来。如果在这个区域上单击，则实际上单击的是窗体后面的对象。
      TransparencyKey属性可以用于创建形状不规则的“外壳”窗体。窗体可以把它的Backgroundlmage属性设置为—个图像，然后把图像的—部分用TransparencyKey颜色绘制，对应的窗体部分就会消失。