title image


Smiley Screenshot erstellen
Hi,



kopiere folgendes Coding in ein allgemeines Modul:





Private Declare Function GetVersionEx Lib "kernel32" Alias _

"GetVersionExA" (lpVersionInformation As _

OSVERSIONINFO) As Long

'

Private Type OSVERSIONINFO

dwOSVersionInfoSize As Long

dwMajorVersion As Long

dwMinorVersion As Long

dwBuildNumber As Long

dwPlatformId As Long

szCSDVersion As String * 128

End Type

'

Public Function IsWinNT() As Boolean

Dim osvi As OSVERSIONINFO

Dim intRet As Integer



osvi.dwOSVersionInfoSize = 148

osvi.szCSDVersion = Space$(128)

intRet = GetVersionEx(osvi)

If osvi.dwMajorVersion > 4 Then IsWinNT = True

End Function





Und dann noch folgendes in Dein Formularmodul:





Private Declare Sub keybd_event Lib "user32" (ByVal _

bVk As Byte, ByVal bScan As Byte, ByVal dwFlags _

As Long, ByVal dwExtraInfo As Long)

'

Private Const KEYEVENTF_KEYUP = &H2

Private Const VK_SNAPSHOT = &H2C

Private Const VK_MENU = &H12

'

Private Sub cmdScreenshotDesktop_Click()



If IsWinNT Then

keybd_event VK_SNAPSHOT, 0, 0, 0

keybd_event VK_SNAPSHOT, 0, KEYEVENTF_KEYUP, 0

Else

keybd_event VK_SNAPSHOT, 1, 0, 0

keybd_event VK_SNAPSHOT, 1, KEYEVENTF_KEYUP, 0

End If



End Sub

'

Private Sub cmdScreenshotWindow_Click()



If IsWinNT Then

keybd_event VK_SNAPSHOT, 1, 0, 0

keybd_event VK_SNAPSHOT, 1, KEYEVENTF_KEYUP, 0

Else

keybd_event VK_MENU, 0, 0, 0

keybd_event VK_SNAPSHOT, 0, 0, 0

keybd_event VK_SNAPSHOT, 0, KEYEVENTF_KEYUP, 0

keybd_event VK_MENU, 0, KEYEVENTF_KEYUP, 0

End If



End Sub





Demnach erstellt die Schaltfläche cmdScreenshotDesktop einen Screenshot vom gesamten Desktop, während cmdScreenshotWindow ldgl. das aktuelle Fenster ablichtet (entspricht [Alt]+[Druck]).



So kannst Du auf das eklige SendKeys verzichten!



Greetz,

Eric

Spotlight-Kicktipp gestartet!

Steig ein und trete mit Deinem Bundesliga-Tipp gegen die Besten an! :o)

http://www.kicktipp.de/spotlight/



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: