🚀 go-pugleaf

$BA02s$N$b$N$r%U%)%m!<$7$^$9$H%S%G%*%-%c%W%A%c%+!<%I(B
$B$G%-%c%W%A%c$7$?#B#i#t#m#a#p$r(BPicturebox$B$XE=$jIU$1$?$$(B
$B$N$G$9$,!"$$$m$$$mD4$Y$F2<$N$h$&$K$7$?=j(B
Picturebox$B$,??$C9u$KEI$j$D$V$5$l$F$7$^$$$^$9!#(B
$B$J$K$+H4$1$F$$$k$N$G$7$g$&$+!)(B
$B%-%c%W%A%c%+!<%I$NE:IU%"%W%j$G$O@5>o$K%-%c%W%A%c(B
$B$G$-$F$$$k$N$G@_Dj$J$I%O!<%IE*MW0x$G$O$J$$$h$&$G$9!#(B


Private Sub Command4_Click()
    Dim hBmp As Long
    Dim TempDC As Long
    Dim hdcGrph As Long
    Dim bmp As BITMAP
    Dim Ret As Long

    Form1!Picture2.Cls
    If fbNoVC Then
        FreezeVideo <- $B%-%c%W%A%c%S%G%*%U%j!<%:(B
        hBmp = CaptureFrame(Form1!Picture1.hwnd) <-$B%-%c%W%A%c%+!<%I$+$i(B
$B%S%C%H%^%C%W%O%s%I%k<hF@!#(B
        UnFreezeVideo <- $B%-%c%W%A%c%S%G%*%U%j!<%:2r=|(B
        SetStretchBltMode Form1!Picture2.hdc, COLORONCOLOR
        If hBmp > 0 Then
            GetObject hBmp, 14&, bmp
            TempDC = CreateCompatibleDC(Form1!Picture2.hdc)
            hdcGrph = SelectObject(TempDC, hBmp)
            Ret = StretchBlt(Form1!Picture2.hdc, 0&, 0&,
Form1!Picture2.ScaleWidth, Form1!Picture2.ScaleHeight, TempDC, 0&, 0&,
bmp.bmWidth, bmp.bmHeight, SRCCOPY)
            Ret = SelectObject(TempDC, hdcGrph)
            Ret = DeleteObject(hBmp)
            Ret = DeleteDC(TempDC)
        End If
    End If
End Sub


Mokoto Yamaki wrote:

> HBITMAP$B%S%C%H%^%C%W%O%s%I%k$+$i(BPictureBox$BEy$X%S%C%H%^%C%W$r(B
> $BI=<($5$;$kJ}K!$r65$($F$/$@$5$$!#(B