🚀 go-pugleaf

$B?7B<(B $BN4(B <niimura@geocities.co.jp> wrote in article
<60l3ro$msp@news.aif.or.jp>...

$B=i$a$^$7$F!"(BMedia io $B$N(B Masaya Hirano $B$G$9!#(B

$B$5$F!"$*Ez$($NJ}$G$9$,!"(B

>$B<!$N(BAPI$B$r!"#V#B$G;H$&J}K!$K$D$$$F!"65$($F$$$?$@$-$?$$$H;W$C$F!"Ej9F$7$^$7(B
$B$?(B
>$B65$($F$$$?$@$-$?$$$N$O(B
> bitblt$B$N;H$$J}!"(B

$B$^$:!"0J2<$N$h$&$K@k8@$7$^$9!#(B

Declare Function BitBlt& Lib "gdi32" (ByVal hDestDC As Long,ByVal X As
Long, _
                                      ByVal Y As Long, ByVal nWidth As
Long, _
                                      ByVal nHeight As Long, ByVal hSrcDC
As Long, _
                                      ByVal XSrc As Long, ByVal YSrc As
Long, _
                                      ByVal dwRop As Long)

Const SRCAND = &H8800C6    ' $B%i%9%?(B AND  $BE>Aw(B
Const SRCCOPY = &HCC0020   ' $B%i%9%?(B PSET $BE>Aw(B
Const SRCPAINT = &HEE0086  ' $B%i%9%?(B OR   $BE>Aw(B

$B4JC1$JNc$H$7$F$O!"(B
PictureBox$B$r#2$DMQ0U$7!"$=$N(B Name $B$r$=$l$>$l(B Pic1$B!"(B Pic2$B!!$H$7!"(B
ScaleMode $B$r(B3$B!J%T%/%;%k!K$K!"(BAutoRedraw$B%W%m%Q%F%#$r(BTrue$B$K%;%C%H(B
$B$7$F$*$-$^$9!#(B

$B$^$:!"(BPic2 $B$K(B LoadPicture$B$r(B $B;H$C$F(B BMP$B$rFI$_9~$s$G$*$-$^$9!#(B
$B$=$&$7$F!"Nc$($P!"(BPic2 $B$N(B (0,0)-(31,31) $B$N(B $BItJ,$r(BPic1$B$N!J(B15, 15$B!K(B
$B$KE>Aw$9$k$J$i$P!"(B

Dim Dummy as Long

Dummy = BitBlt(Pic2.hDC, 0, 0, 32, 32, Pic1.hDC, 15, 15, SRCCOPY)

$B$H$7$^$9!#$=$N8e!"(BPic1 $B$r(B Refresh $B$9$l$P!"E>Aw$5$l$?3($,I=<($5$l$^$9!#(B
$B!J(B'SRCCOPY'$B$NItJ,$rB>$N%i%9%?$K$7$F!"$=$N8z2L$r3N$+$a$F2<$5$$!#!K(B



> wav$B%U%!%$%k$r!":F@8$9$kJ}K!!J$J$s$+$N(BAPI$B$r;H$&$3$H$K$J$C$F$$$k$O$:!K(B
> $B$G$9!#(B

$B8=:_<j85$K!";qNA$,M-$j$^$;$s!#%a!<%kEyD:$1$l$P!"8eF|$G$b$*Ez$(CW$7$^$9!#(B


> $B$^$?!"(Bbitblt$B$r;H$C$F!"3($rF0$+$9J}K!$K$D$$$F$b65$($F2<$5$$!#(B


$B>e5-$NNc$N=q$-9~$`:BI8(B(15,15)$B$rJQ99$7$J$,$i!"2?$i$+$NJ}K!(B(Pic1$B$r(BCLS$B$9$k$J$I(B
$B!K$G(B
$B0JA0$N3($r>C$7$?8e$K!"(BBitBlt$B$7$F$d$l$P!"3($,F0$$$F$$$k$h$&$K8+$($^$9!#(B

$B3(<+BN$N%Q%?!<%s$rJQ$($F%"%K%a!<%7%g%s$5$;$k>l9g$O!"$"$i$+$8$a(BPic2$B$K$$$/$D(B
$B$+$N(B
$B%Q%?!<%s$rFI$_9~$s$G$*$-!">e5-$N(B(0-0)-(31,31)$B$N=j$rJQ99$5$;$F!"<!!9$KJL$N(B
$B%Q%?!<%s$rI=<($5$;$l$P!"2DG=$G$7$g$&!#(B

$B<B:]$K$O!">e5-$N$d%jJ}K!$rAH$_9g$o$;$F;HMQ$9$k$3$H$,B?$$$H;W$$$^$9!#(B


#$B$^$@!":GE,2=$NJ}K!$,$$$/$D$+$"$j$^$9$,!">\$7$/$*J9$-$K$J$j$?$$>l9g$O(B
#mailto:masayah@mbox.kyoto-inet.or.jp
#$B$^$GD>@\%a!<%k2<$5$$!#(B
#$B>l9g$K$h$C$F$O!"6&F13+H/$N$*OC$J$I$b!"4?7^CW$7$^$9!#(B
#
# Media io $B$N5;=Q!J$H8F$Y$kDx$N$b$N$O$"$j$^$;$s$,!K$K4X$7$F$O(B
#http://web.kyoto-inet.or.jp/people/masayah/
#$B$K!"#V#B$H(B BitBlt $B$@$1$r;HMQ$7$F:n@.$7$?%2!<%`$H!"%Y%s%A%^!<%/(B
#$B$b$I$-$,$"$j$^$9$N$G!";29M$K$7$F2<$5$$!#(B
#$B!J(BLa_Vessel$B$NJ}$O5-:\O3$l$G$9$,!"(BMfc42d.dll$B$,I,MW$G$9!#(B)

--------------------------------------------------------------------
Media io _ Masaya Hirano
mailto:masayah@mbox.kyoto-inet.or.jp
http://web.kyoto-inet.or.jp/people/masayah/
$B$*OM$S!'#H#P7G:\$N!G(BLa_Vessel$B!G$K$O#V#B%i%s%?%$%`$NB>$K(BMfc42d.dll$B$r(B
$B!!!!!!!!I,MW$H$9$k$3$H$N5-:\$,$b$l$F$*$j$^$7$?!#$;$C$+$/%@%&%s%m!<%I(B
$B!!!!!!!!$7$FD:$$$?$N$K!"F0$+$J$+$C$?J}!"K\Ev$K?=$7Lu8f:B$$$^$;$s$G$7$?!#(B
--------------------------------------------------------------------