窗体动态关闭效果

最新推荐文章于 2022-11-10 10:01:15 发布

tmd007

最新推荐文章于 2022-11-10 10:01:15 发布

阅读量1k

点赞数

文章标签： timer integer

本文链接：https://blog.csdn.net/tmd007/article/details/578144

版权

'在窗体上放置两个Timer控件

Option Explicit
Private Sub Form_Load()
    Timer1 = False: Timer1.Interval = 50
    Timer2 = False: Timer2.Interval = 50
    Form1.ScaleMode = 1
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Cancel = True
    Timer1 = True
    If WindowState Then End
End Sub

Private Sub Timer1_Timer()
    Me.Height = Me.Height - 150
    If Me.Height <= 510 Then
        Timer1 = False
        Timer2 = True
    End If
End Sub

Private Sub Timer2_Timer()
    Me.Width = Me.Width - 200
    If Me.Width <= 1845 Then
        Timer2 = False
        End
    End If
End Sub