Ahoj.
Tady na programujte.com, jsem začal dělat tutorial: http://programujte.com/index.php?akce=clanek&cl=2007012305-printscreen-jak-udelat-screenshot
První část - deklarace je ok. Druhá část:
Private Sub cmdActWin_Click()
Me.WindowState = vbMinimized
Me.Hide
Pause txtPause
Clipboard.Clear
Call keybd_event(VK_SNAPSHOT, 1, 0, 0)
DoEvents
Picture1.Picture = Clipboard.GetData()
Me.Show
Me.WindowState = vbNormal
cmdSave.Enabled = True
End Sub
Private Sub cmdClear_Click()
'vyčistí PictureBox
Set Picture1.Picture = Nothing
cmdSave.Enabled = False
End Sub
Private Sub cmdSave_Click()
'dialog pro uložení obrázku
On Error GoTo Error
With CD1
.DialogTitle = "Uložit obrázek..."
.FileName = "screenshot"
.Filter = "Bitmap (*.bmp)|*.bmp"
.CancelError = True
.Flags = &H2
.ShowSave
If .FileName = "" Then GoTo Error
'uloží obrázek jako Bitmapu
SavePicture Picture1.Picture, .FileName
End With
Error:
msgbox "chyba"
End Sub
Sub Pause(interval)
'prodleva před snímáním obrázku
Current = Timer
Do While Timer - Current < Val(interval)
DoEvents
Loop
End Sub
mi háže hromadu chyb.
Je to asi proto, že mám Visual Stdio 2008 Professional. Mohl by se na to prosím někdo mrknout???