Net真是个好东西

小子在VB6版块泡时间长了，觉得无聊的很，就打开Net来看看。嗨，好东西还真不少，比如Form.Opacity 属性，可以获取或设置窗体的不透明度级别。这在VB6里要用枯涩难懂的API才能实现的呀！

Opacity属性默认值为 1.00，既完全不透明。下边的例子当程序启动时，窗体渐渐浮现，关闭是渐渐隐隐去，好玩极了，你也来试一试吧？

1.建立一Windows应用程序项目，将Form1.Opacity属性设为0%，其他属性取默认值；
2.在窗体中放入两个Timer控件Timer1、Timer2；
3.设置Timer1.Enabled 属性为True, 其他属性取默认值；
  设置Timer2.Enabled 属性为False,其他属性取默认值；
4.拷贝以下代码到窗体的代码设计窗口，按下F5键运行。
    Private t As Long
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        t = t + 5
        If t > 100 Then Timer1.Enabled = False
        Me.Opacity = t / 100
    End Sub

    Private Sub Timer2_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        t = t - 5
        If t < 0 Then
            Timer2.Enabled = False
            End
        End If
        Me.Opacity = t / 100
    End Sub

    Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        e.Cancel = True
        Timer2.Enabled = True
    End Sub

5 个解决方案

#1

1lou

#2

靠，楼主发错地方了吧

#3

楼上的。。。谁说在水园就不可以用代码来灌水啦？

#4

以获取或设置窗体的不透明度级别。这在VB6里要用枯涩难懂的API才能实现的呀！

我记得好像只需要四句API函数就可以实现吧

#5

四句都够复杂了,如果不知道的,不知道要查多久...

--------------
(^_^)

#1