• Home
 · 
• Windows API Call/Explanation
 · 
• To Hide Your Form Completely For A While, N Then Appear.

To Hide Your Form Completely For A While, N Then Appear.

To Hide Your Form Completely For A While, N Then Appear.

API Declarations


Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Long) As Long




Rate To Hide Your Form Completely For A While, N Then Appear.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'1st button's caption "Hide" n second's "Exit".
'Add This Code.

Private Sub Command1_Click()

    Dim lngRegion As Long
    Dim lngReturn As Long
    Dim lngFormWidth As Long
    Dim lngFormHeight As Long
    
    lngRegion = CreateEllipticRgn(0, 0, Me.Width, Me.Height)
    lngReturn = SetWindowRgn(Me.hWnd, lngRegion, True)
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Timer1_Timer()
    
    lngFormWidth = Me.Width / Screen.TwipsPerPixelX
    lngFormHeight = Me.Height / Screen.TwipsPerPixelY
    lngReturn = SetWindowRgn(Me.hWnd, lngRegion, True)
End Sub