This program hides a form and makes it invisible. - Visual Basic , VB.NET

	Find Code:
Home : Code : Forums : Submit : Mailing List : About : Contact

All

VB.NET

ASP.NET

C#

Snippets

Popular

Forums

Articles

Tips

Links

Books

Contest

This program hides a form and makes it invisible. ...
Author: Don Joshua Pinto
E-mail: Click to e-mail author
Submitted: 5/6/2001
Version: VB3
Compatibility: VB3, VB4, VB5
Category: Forms
Views: 10939
This program hides a form and makes it invisible.
Declarations:
Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal hSrcDC As Integer, ByVal xSrc As Integer, ByVal ySrc As Integer, ByVal dwRop As Long) As Integer Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long Public Const SRCCOPY = &HCC0020 Public Const SRCAND = &H8800C6 Public Const SRCINVERT = &H660046 Declare Function GetDesktopWindow Lib "user32" () As Long
Code:
Private Sub Command1_Click() ' This is the sub for the button Unload Form1 End Sub Private Sub Form_Load() Dim a, b, c, d, Desk& Label1.Visible = True a = Screen.TwipsPerPixelX b = Screen.TwipsPerPixelY c = Me.Top / b d = Me.Left / a Desk& = GetDesktopWindow BitBlt Me.hDC, 0, 0, Me.Width, Me.Height, GetDC(Desk&), d, c, SRCCOPY End Sub