🚀 go-pugleaf

 Visual Basic 4.0 $B$r;HMQ$7$F$$$k<T$G$9!#(B

In article <60kmkq$m0j@news.aif.or.jp>, niimura@geocities.co.jp says...
>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

 $BC;$$!"$"$k$$$OFCDj$N%&%'!<%V%U%)!<%`%5%&%s%I$r:F@8$9$k$K$O!"(B
Win32 API $B4X?t$N(BPlaySound$B!"(BsndPlaySound$B!"(BMessageBeep $B$J$I$rMQ$$$^$9!#(B

$BNc(B: ABC.WAV $B$r:F@8(B
Const SND_FILENAME = &H20000
PlaySound "\Resources\ABC.WAV", 0, SND_FILENAME


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

 Visual Basic $B$G$O!"(BPaintPicture $B$H$$$&%a%=%C%I$,$"$j$^$9$,!"(B
$B$3$l$G$OIT==J,$G$7$g$&$+!#(B

$BNc(B: PictureBox $B$K(B ABC.BMP $B$rI=<((B
Dim ABC as Picture
Const SRCCOPY = &hCC0020
Set ABC = LoadPicture("\Resources\ABC.BMP")
Picture1.PaintPicture ABC, 0, 0, 100, 100, 0, 0, 100, 100, SRCCOPY

-- 
$B:4F#@59((B <masahiro@cij.co.jp>

>$BNc(B: ABC.WAV $B$r:F@8(B
>Const SND_FILENAME = &H20000
>PlaySound "\Resources\ABC.WAV", 0, SND_FILENAME
API$B$N!"Dj5AJ}K!$r65$($FD:$1$?$i9,$$$G$9!#(B
$B!J(BDeclare$B%9%F!<%H%a%s%H$r;H$&$O$:!K(B
>>$B$^$?!"(Bbitblt$B$r;H$C$F!"3($rF0$+$9J}K!$K$D$$$F$b65$($F2<$5$$!#(B

> Visual Basic $B$G$O!"(BPaintPicture $B$H$$$&%a%=%C%I$,$"$j$^$9$,!"(B
>$B$3$l$G$OIT==J,$G$7$g$&$+!#(B

>$BNc(B: PictureBox $B$K(B ABC.BMP $B$rI=<((B
>Dim ABC as Picture
>Const SRCCOPY = &hCC0020
>Set ABC = LoadPicture("\Resources\ABC.BMP")
>Picture1.PaintPicture ABC, 0, 0, 100, 100, 0, 0, 100, 100, SRCCOPY
$B<ALd$N$7$+$?$,0-$+$C$?$+$b$7$l$^$;$s!#(B
bitblt$B$r;H$C$F!"3($rF0$+$9J}K!$r65$($FD:$1$?$i9,$$$G$9!#(B

$B?7B<(B $BN4(B <niimura@geocities.co.jp> wrote in article
<60kmkq$m0j@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

--------------------------------------------------------------------
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
--------------------------------------------------------------------

In article <60qc1s$7qd@news.aif.or.jp>, niimura@geocities.co.jp says...
>>PlaySound "\Resources\ABC.WAV", 0, SND_FILENAME
>API$B$N!"Dj5AJ}K!$r65$($FD:$1$?$i9,$$$G$9!#(B
>$B!J(BDeclare$B%9%F!<%H%a%s%H$r;H$&$O$:!K(B

Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" _
  (ByVal lpszName As String, ByVal hModule As Long, _
  ByVal fdwSound As Long) As Long

$B$H$J$k$H;W$$$^$9!#(B

>$B<ALd$N$7$+$?$,0-$+$C$?$+$b$7$l$^$;$s!#(B
>bitblt$B$r;H$C$F!"3($rF0$+$9J}K!$r65$($FD:$1$?$i9,$$$G$9!#(B

 $B$b$7(B Visual Basic $B$N%5%s%W%k$K(B CALLDLLS $B$H$$$&%W%m%0%i%`$,IUB0$7$F$$$k(B
$B$J$i$P!"$3$A$i$K(B BitBlt $B4X?t$rMQ$$$F3($rF0$+$9%5%s%W%k$,5-=R$5$l$F$$$?$H(B
$B5-21$7$F$$$^$9$N$G!";29M$K$5$l$F$O$$$+$,$G$7$g$&$+!#(B

 $B$J$*!"(BBitBlt $B4X?t$N;HMQNc$O!"0J2<$NDL$j$G$9!#(B

$BNc(B: $B%T%/%A%c%\%C%/%9%3%s%H%m!<%k$KI=<($5$l$F$$$k3($r%U%)!<%`$KI=<($9$k(B
'$BCm(B: Picture1 $B$N(B AutoRedraw $B%W%m%Q%F%#$O(B True $B$K$9$k$3$H!#(B

'$BE>Aw@h:BI8(B
Const DestLeft As Long = 0
Const DestTop As Long = 0
Const DestWidth As Long = 200
Const DestHeight As Long = 200

'$BE>Aw85:BI8(B
Const SrcX As Long = 0
Const SrcY As Long = 0

Const SRCCOPY = &HCC0020 '$B$=$N$^$^IA2h(B
Const SRCPAINT = &HEE0086 '$B%S%C%H$4$H$N(BOR
Const SRCAND = &H8800C6 '$B%S%C%H$4$H$N(BAND

BitBlt Form1.hDC, DestLeft, DestTop, DestWidth, DestHeight, _
    Picture1.hDC, SrcX, SrcY, SRCCOPY


Form1.hDC $B$H(B Picture1.hDC $B$N$+$o$j$K!"(BPicture2.hDC $B$H(B Form1.hDC $B$r(B
$BMQ$$$F!"IA2h@h$N%$%a!<%8$rJ]B8$9$k$3$HEy$b2DG=$G$9!#(B

-- 
$B:4F#@59((B <masahiro@cij.co.jp>

> 
> $B65$($F$$$?$@$-$?$$$N$O(J
> bitblt$B$N;H$$J}!"(J
> wav$B%U%!%$%k$r!":F@8$9$kJ}K!!J$J$s$+$N(JAPI$B$r;H$&$3$H$K$J$C$F$$$k$O$:!K(J
> $B$G$9!#(J
> $B;HMQ$9$k%3!<%I=q$-9~$s$GD:$1$l$P9,$$$G$9!#(J
> $B$^$?!"(Jbitblt$B$r;H$C$F!"3($rF0$+$9J}K!$K$D$$$F$b65$($F2<$5$$!#(J


wav$B%U%!%$%k$r!":F@8$9$kJ}K!(J

Declare Function waveOutGetNumDevs Lib "winmm.dll" () As Long
Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA"
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long


Public Sub PlayWave(f$)             'f$=wav$B$N%U%!%$%kL>!J%Q%9$,DL$C$F$$(J
$B$J$1$l$P%U%k%Q%9$G!K(J
  Dim RET As Long
  
  If waveOutGetNumDevs() = 0 Then   'waveOutGetNumDevs$B$G%&%'!<%V(J $B%G%P%$(J
$B%9$,;HMQ$G$-$k$+%A%'%C%/$7$^$9(J
    Beep
    Exit Sub
  End If
  
  RET = sndPlaySound(f$, 1)         'wav$B$N%U%!%$%k$N:F@8(J
  
End Sub



bitblt$B$K$D$$$F$O!"(JVB$B$N%5%s%W%k$K$"$C$?$H;W$$$^$9!J!)!K$N$G!"$=$A$i$r;2>H(J
$B$7$F$_$F$/$@$5$$(J


-- 
   Hiroshi Kamata        vXX//r
   kamata@ingnet.or.jp   (Q Q )
---------------------oOOo-(_)-oOOo----