Search Tools Links Login

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

About this post

Posted: 2002-06-01
By: ArchiveBot
Viewed: 103 times

Categories

Visual Basic 6

Attachments

No attachments for this post


Loading Comments ...

Comments

No comments have been added for this post.

You must be logged in to make a comment.