Буфер обмена! Важно!

[Человек]

Как мне картинку при нажетии на Command1 поместить из буфера - в PictureBox

[alibek]

Значит так.
Срочно качаешь API-Guide. Устанавливаешь. Запускаешь. Открываешь секцию Clipboard, находишь там функцию OpenClipboard и смотришь пример Clipboard Picture.

[Человек]

Спасибо большое....
А можно ли воспользоваться Clipboard.??? (если да, то как?)

[Человек]

Ведь с помощью Clipboard. можно сделать вставку текста (Text1.Text = Text1.Text + Clipboard.GetText), значит можно как-то и вставку рисунка сделать!?

[EvilCoder]

А зачем API там совсем необязательно!

Вот:
Picture1.Picture = Clipboard.GetData

И вообще Object Browser`ом пользоваться НАДО!!!!

[Человек]

Подскажите, где ошибка?

Код: Выделить всё

Private Declare Function Getasynckeystate Lib "user32" Alias "GetAsyncKeyState" (ByVal VKEY As Long) As Integer
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Dim keystate As Long
Dim fs As String
Private Sub Timer_Timer()
    keystate = Getasynckeystate(vbKeyPrint)
    If (keystate And &H1) = &H1 Then
        Picture1.Picture = Clipboard.GetData
        Saver
    End If
End Sub
Private Function Saver()
    cRew = Format(Now, "dd-mm-yyyy - hh.nn.ss")
    fs = App.Path & "\Data\" & cRew & ".bmp"
    SavePicture Picture1.Image, fs
End Function


[net]

Не парься с API!
вот ре кодец:
Private Sub mnuCopy_Click()

If TypeOf Screen.ActiveControl Is PictureBox Then
Clipboard.Clear
Clipboard.SetData Screen.ActiveControl.Picture

End If

End Sub

Private Sub mnuCut_Click()


If TypeOf Screen.ActiveControl Is PictureBox Then


mnuCopy_Click

Screen.ActiveControl.Picture = LoadPicture()

End If


End Sub
Private Sub mnuPaste_Click()
If TypeOf Screen.ActiveControl Is PictureBox Then

Screen.ActiveControl.Picture = Clipboard.GetData()
ElseIf TypeOf Screen.ActiveControl Is TextBox Then

Screen.ActiveControl.SelText = Clipboard.GetText()
End If
End Sub

Вот собственно и всё!

[Человек]

Спасибо за код, но я не понимаю где ошибка у меня!!!

[Человек]

Ошибку я нашел, но не понимаю почему она возникает!
Я поставил pic1.picture = clipboard.getdata не на PrintScreen, а на кнопку f12. Но приходится нажимать PrintScreen, а потом f12

[A.A.Z.]

Не vbKeyPrint, а vbKeySnapshot!

[Человек]

Ни фига себе я лоханулся!
Ну спасибо!