Easy ScreenShot
When u've Style Xp and u take a screenshot u´ll see that the taskbar ´ll not appear this solves the problem!!!! :::::Take screenshots with only 7 lines ::::: Rate me pls!!!!!
Original Author: Felipe Zaldivar de la O
API Declarations
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, _
ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Code
'''1 picture box
'''1 commandbutton
Private Sub Command1_Click()
Dim tempfile As String
tempfile = App.Path & "picture.bmp"
keybd_event vbKeySnapshot, 0, 0, 0
DoEvents
SavePicture Clipboard.GetData(vbCFBitmap), tempfile
Picture1.Picture = LoadPicture(tempfile)
End Sub
Loading Comments ...
Comments
No comments have been added for this post.
You must be logged in to make a comment.