🚀 go-pugleaf

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

In article <610b9i$49r$1@host06.interwave.or.jp>, bube@yyy.or.jp says...
>$B!!MW$O!"%S%C%H%^%C%W$r#1$D$N%l%3!<%I$H$7$F=q$-9~$a$kJ}K!$rC5$7$F$$$^(B
>$B$9!#(B
($BCfN,(B)
>$B!!(BSavePicture$B%a%=%C%I$GJL!9$N%U%!%$%k$K$K$7$F$7$^$($P$$$$$N$G$9$,!"%2(B
>$B!<%`$NFbMF>e!"0l$^$H$a$K$7$J$$$H$b$N$9$4$/;H$$$K$/$/$J$C$F$7$^$$$^$9(B

 $BC1=c$K!"JL!9$N%U%!%$%k$r:n$C$F$+$i!"%^!<%8$9$k$@$1$8$c$@$a$J$N$G(B
$B$7$g$&$+(B? $B4JC1$G$$$$$H;W$&$N$G$9$,!#(B

 $B0l1~!"(BOLE $B%3%s%F%J%3%s%H%m!<%k$K%Z%$%s%H%V%i%7%*%V%8%'%/%H$J$I$r(B
$BE=$jIU$1$F;H$&J}K!$,$"$j$^$9!#$3$l$GJ]B8$O$G$-$k$N$G$9$,(B...$B!#(B

$BNc(B: $BJQ?tCM5Z$S%S%C%H%^%C%W%$%a!<%8$r=q$-9~$`(B
Open "\Data\GameData.Dat" For Binary Access Write As #FileNo

'$BJQ?t$N=q$-9~$_(B
Put #FileNo, , MyVar1
Put #FileNo, , MyVar2

'$B%S%C%H%^%C%W$rJ]B8(B
Clipboard.SetData MyPicture
OLE1.Paste
OLE1.SaveToFile FileNo

Close #FileNo

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