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