Определённый окриншот???

[DidykDA]

Как сделать скриншот экрана определённых размеров в определённом месте и вставить получившуюся картинку на картинку формы (BitBlt не предлогать)???

[xolod]

StretchBlt, раз BitBlt не нравиться..
Вопрос из разряда:"Доктор, вылечите меня. Только без лекарств."

[_Мика_]

Ну можно еще Picture1.PainrPicture

[DidykDA]

Мне нужно что-бы ето была имено картинка формы. С BitBlt появляется вокруг лейбел обрамление цветом формы. Как его убрать??? Вообщем посмотрите пример...

[GM]

Добавляеш

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

Private Sub GetBackDskPicture()
'...
'...
[b]Me.Refresh[/b]
End Sub


Свойства формы -> autoredraw = true

[DidykDA]

GM - огромное спасибо!!! а как сделать такчто-бы бралось изображение которое находится под формой. Т.е что бы оно брало не определённое изображение а то под которой находится сейчас форма???

[GM]

Вот так:

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

Private Sub GetBackDskPicture()
    Me.Hide
    DoEvents
    Dim rct As RECT
    Call GetWindowRect(Me.hwnd, rct)
    Call BitBlt(Me.hDC, 0&, 0&, Me.ScaleWidth \ Screen.TwipsPerPixelX, Me.ScaleHeight \ Screen.TwipsPerPixelY, _
    GetDC(GetDesktopWindow), Me.Left \ Screen.TwipsPerPixelX, Me.Top \ Screen.TwipsPerPixelY, vbSrcCopy)
Label2.Visible = False
Label2.Visible = True
Me.Refresh
Me.Show
End Sub


Form1.BorderStyle=0