Article View: fj.lang.visualbasic
Article #1373Re: どなたか教えてください。コントロールの複製
From: Masayuki Miura
Date: Thu, 04 Sep 1997 00:00
Date: Thu, 04 Sep 1997 00:00
38 lines
1684 bytes
1684 bytes
$B;01:$H$$$$$^$9!#(J
Takeshi Kawahara <takeshik@ask.or.jp> wrote in article
<01bcb859$b5016960$0a2701b0@pc750>...
>
VB5$B$r8=:_;H$C$F$$$^$9$,%3%s%H%m!<%k$NJ#@=$N;EJ}$,J,$+$j$^$;$s!#F1$8%U%)!<%`(J
>
$B$N>e$K%F%-%9%H%\%C%/%9$r?o;~:n$C$F$$$-$?$$$N$G$9$,%U%)!<%`$N%$%s%9%?%s%9$O(J
>
$B$G$-$F$b%F%-%9%H%\%C%/%9$d%3%^%s%I%\%?%s$J$I$N%3%T!<$,$G$-$^$;$s!#$I$&$7$?(J
> $B$i$h$$$N$G$7$g$&$+!)(J
> $B@n86(J $BIp(J
> takeshik@ask.or.jp
>
Load $B%9%F!<%H%a%s%H$r;H$($P!"4JC1$KJ#@=$,$G$-$^$9!#(J
$B6qBNE*$K$O!"(J
Text1$B!!$H$$$&(JTextBox$B$,$"$C$?$H$7$^$9!#(J
Text1$B$O%3%s%H%m!<%kG[Ns$G$9!#(JIndex=1
Dim n as Integer
n = Text1.Count$B!!!!(J '<==$B%3%s%H%m!<%kG[Ns$N?t$rF@$k(J
Load Text1(n+1) '<==$BJ#@=(J
Text1(n+1).Top = Text1(n).Top + Text1(n).Height
'<==$BJ#@=$N0LCVJQ99(J
Text1(n).Visible = True
'<==$BJ#@=$rI=<((J
$B$H$7$^$9!#(J
$B$9$k$H!"(JText1(1)$B$NJ#@=(J Text(2) $B$,$G$-$k$O$:$G$9!#(J
$B$G$b!"$3$l$O(JVB$B#4$G$N$3$H$N$G!"#V#B#5$G$b2DG=$J$N$+(J
$B$OJ,$+$j$^$;$s!#4V0c$C$F$$$?$i?=$7Lu$J$$$G$9!#(J
$B;01:(J $B@5G7(J(masayuki.miura@sii.co.jp)
Technical Details
Message-ID:
<5ul3lp$mm8@orange.sii.co.jp>Path:
arc1-ca.pugleaf.net!unknown!not-for-mailReferences:
<01bcb859$b5016960$0a2701b0@pc750>Show Full Headers
Complete Article Headers
X-Google-Language: Japanese,JIS X-Google-Thread: 105c2e,19df780b0a9b27ab,start X-Google-Attributes: gid105c2e,public From: "Masayuki Miura" <masayuki.miura@sii.co.jp> Subject: Re: どなたか教えてください。コントロールの複製 Date: 1997/09/04 Message-ID: <5ul3lp$mm8@orange.sii.co.jp> X-Deja-AN: 270595793 References: <01bcb859$b5016960$0a2701b0@pc750> Organization: SEIKO EG&G Newsgroups: fj.lang.visualbasic