Find Code:
All Words
Any of the Words
Exact Phrase
Home
:
Code
:
Forums
:
Submit
:
Mailing List
:
About
:
Contact
Code
All
VB.NET
ASP.NET
C#
VB Classic
ASP Classic
Snippets
Popular
Resources
Submit Code
Forums
Articles
Tips
Links
Books
Contest
Link to us
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:
10942
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
Home
|
Forums
|
Submit
|
Books
|
Mailing List
|
Advertising
|
About
|
Contact
© 2024 A1VBCode. All rights reserved.
Legal disclaimer & terms of use
Privacy statement