🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: fj.lang.basic
Article #363

Re: VB_Picture_Copy

#363
From: Atusi Sato
Date: Thu, 26 Dec 1996 00:00
77 lines
3108 bytes

$B:4F#!w@gBfEEGH9b@l$G$9!#(B


In article <58nu44$1kr@aya.cc.miyazaki-u.ac.jp>
e04406u@cc.miyazaki-u.ac.jp writes:
>> $B?9K\!w5\:jBg$G$9!#(B
>> 
>> VB$B=i?4<T$G$9!#(B
>> $B$$$m$$$m$d$C$F$o$+$i$J$+$C$?$N$G3'MM$NCN7C$r$*<Z$j$7$?$/(B
>> $B%]%9%H$7$F$*$j$^$9!#(B
>> 
>> Picture$B%\%C%/%9$K(BPSet$B$GE@$rBG$A!"$=$N2hA|$r%/%j%C%W%\!<%I(B
>> $B$K%3%T!<$7$?$$$N$G$9$,!"(BAutoRedraw$B$,(BFalse$B$@$H$&$^$/$$$-$^(B
>> $B$;$s!#(BTrue$B$@$H$&$^$/$$$/$N$G$9$,!"$=$&$9$k$HIA2h$,2fK}$G(B
>> $B$-$J$$$[$ICY$/$J$j$^$9!#(B
>> $B$I$&$K$+(BAutoRedraw$B$,(BFalse$B$N>uBV$GIA2h$7!"$=$N2hA|$r%3%T!<(B
>> $B$b$7$/$O%S%C%H%^%C%W$GJ]B8$G$-$J$$$b$N$+G:$s$G$$$^$9!#(B
>> $B$I$J$?$+$4B8$8$NJ}$$$i$C$7$c$$$^$7$?$i!"$I$&$>$h$m$7$/$*4j(B
>> $B$$$$$?$7$^$9!#(B
>> 
>> $B!!!!!!!]!]!]!]!]!]!]!]!]!]!]!]!]!]!]!]!]!]!]!]!]!]!]!](B
>> $B!!!!!!!!5\:jBg3X650i3X8&5f2J652J650i@l96M}2J650i@l=$(B
>> $B!!!!!!!!!!?9K\!!9'!!(B(Takashi Morimoto)
>> $B!!!!!!!!!!!!(BE-mail: e04406u@cc.miyazaki-u.ac.jp
>> $B!!!!!!!]!]!]!]!]!]!]!]!]!]!]!]!]!]!]!]!]!]!]!]!]!]!]!](B

$B$3$l$O;d$bG:$s$@7P83$,$"$j$^$9!#(B
$B;d$OB46H8&5f$G!"(B2048$B8D$N?tCM%G!<%?$+$iE@$r%W%m%C%H$9$k(B
$BI,MW$,$"$j!"$+$J$jG:$_$^$7$?!#(B
$B;d$NBP:v=hM}$O0J2<$NDL$j$G$9!#(B


$B%T%/%A%c%\%C%/%9$r#2$DMQ0U$7$F!"$=$l$rIA2hMQ$HI=<(MQ(B
$B$H$KJ,$1$^$9!#(B
$BIA2hMQ$N%T%/%A%c%\%C%/%9$r(B Pic2 $B!"I=<(MQ$N%T%/%A%c%\%C%/%9(B
$B$r(B Pic1 $B$H$7$^$9!#(B 
$B3F%T%/%A%c%\%C%/%9$N%W%m%Q%F%#$r<!$N$h$&$K$7$^$9!#(B
$BIA2hMQ(B Pic2            | $BI=<(MQ(B Pic1
  AutoRedraw = True    |   AutoRedraw = True
  Visible    = True    |   Visible    = True
$B$D$^$j!"=i4|CM$N$^$^$H$$$&$3$H$G$9!#(B
$B$b$A$m$s#Z%*!<%@!<$O!"I=<(MQ$N(B Pic1 $B$,>eAX$G$9!#(B

$B<!$K%W%m%0%i%`%3!<%I>e$G!"(B
  'Pic2 $B$N=`Hw(B
  Pic2.Cls 
  Pic2.Visible = False

  '$BIA2h(B
  $B!J(B Pic2$B$KBP$7$FIA2h=hM}(B $B!K(B

  'Pic1 $B$X$N%3%T!<$N=`Hw(B
  Pic2.Visible = True

  'Pic1 $B$X$N%3%T!<(B
  Pic1.Picture = Pic2.Image
$B$H$7$^$9!#$3$l$G(B AutoRedraw = True $B$G$bIA2hB.EY$,B.$$$O$:$G$9!#(B

$B8e$O!"%/%j%C%W%\!<%I$XE>Aw$7$^$9!#%W%m%0%i%`%3!<%I$O!"(B
    '$B%/%j%C%W%\!<%I$KGH7A$r=PNO(B
    With Clipboard
        .Clear
        .SetData Pic1.Image
    End With
$B$G$9!#(B

  
$B$3$l$G$*:$$j$N7o$O2r7h$G$-$k$H;W$$$^$9!#(B
$B$G$O!#(B

=============================================
$B!!@gBfEEGH9)6H9bEy@lLg3X9;!!LnED8&5f<<(B
$B!!>pJsDL?.9)3X2J!!#5G/!!:4F#FF;K(B
  s2119@ccedu.sendai-ct.ac.jp
============================================
Technical Details
Message-ID: <E30BE2.Do8@ayashi.cc.sendai-ct.ac.jp>
Path: arc1-ca.pugleaf.net!unknown!not-for-mail
References: <58nu44$1kr@aya.cc.miyazaki-u.ac.jp>

Show Full Headers
Complete Article Headers
X-Google-Language: Japanese,JIS
X-Google-Thread: f5300,ca2a446ea0b8ca
X-Google-Attributes: gidf5300,public
From: s2119@ccedu.sendai-ct.ac.jp (Atusi Sato)
Subject: Re: VB_Picture_Copy
Date: 1996/12/26
Message-ID: <E30BE2.Do8@ayashi.cc.sendai-ct.ac.jp>
X-Deja-AN: 205981849
sender: news@ayashi.cc.sendai-ct.ac.jp (SNCT NetNews Manager)
x-nntp-posting-host: ccedu5
references: <58nu44$1kr@aya.cc.miyazaki-u.ac.jp>
organization: Sendai National College of Technology
newsgroups: fj.lang.basic