Slightly modified Dries' code to achieve a more complicated effect. When the form is double-clicked

by Attila (inspired by Dries Swartel¨) (1 Submission)
Category: Custom Controls/Forms/Menus
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Thu 30^th August 2001
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

Slightly modified Dries' code to achieve a more complicated effect. When the form is double-clicked, it shrinks, first height, then width,

API Declarations
'and turn off the title bar (no controlbox, no caption). '

Rate Slightly modified Dries' code to achieve a more complicated effect. When the form is double-clicked



    SetHeight.Enabled = True
End Sub

Private Sub SetHeight_Timer()
    Me.Height = Me.Height - Me.Height * 0.35
    Me.Top = (Screen.Height - Me.Height) / 2
    If Me.Height < 121 Then
        SetHeight.Enabled = False
        SetWidth.Enabled = True
    End If
End Sub

Private Sub SetWidth_Timer()
    Me.Width = Me.Width - Me.Width * 0.35
    Me.Left = (Screen.Width - Me.Width) / 2
    If Me.Width < 121 Then Unload Me
End Sub

Download this snippet Add to My Saved Code

Slightly modified Dries' code to achieve a more complicated effect. When the form is double-clicked Comments

No comments have been posted about Slightly modified Dries' code to achieve a more complicated effect. When the form is double-clicked. Why not be the first to post a comment about Slightly modified Dries' code to achieve a more complicated effect. When the form is double-clicked.

Slightly modified Dries' code to achieve a more complicated effect. When the form is double-clicked

Slightly modified Dries' code to achieve a more complicated effect. When the form is double-clicked Comments

Post your comment

Difficulty