Re: テキスト BOX で最下行を表示しつづける方法

Article View: fj.lang.visualbasic

Article #1077

Back to fj.lang.visualbasic Previous Next

#1077

From: Sato Masahiro
Date: Tue, 18 Nov 1997 00:00

41 lines
1460 bytes

In article <64omlj$1f0$1@fu.bekkoame.or.jp>, $BDGL>@5><(B wrote:
>$B$H$$$&$h$&$J%3!<%G%#%s%0$r$7$F!"8+$?L\$K$O:G2<9T$rI=<($7$D$E$1$F$$$k(B
>$B$h$&$K$J$C$F$$$^$9$,!"%F%-%9%H$NNL$,B?$/$J$k$H!"=hM}$,=E$/$J$C$F$7$^$$$^$9!#(B

 $B$3$l$O!"(B

>For I=0 TO 100
>    Text1.Text = "$B%G!<%?(B" & CRLF
>Next I

$B$H$$$&%3!<%I$r=$@5$7$F!"(B

>For I=0 TO 100
>    Text1.Text = "$B%G!<%?(B" & CRLF
>Next I
>Text1.SelStart = Len(Text1.Text)

$B$KJQ99$7$?$H$3$m!"=hM}$,=E$?$/$J$C$?$H$$$&$3$H$J$N$G$7$g$&$+!#(B

 $BNc$($P!"(B

Dim S as String
For I = 0 To 100
    S = S + "$B%G!<%?(B" + vbCrLf
Next
Text1.Text = S
Text1.SelStart = Len(Text1.Text)

$B$G$O!"2~A1$5$l$^$;$s$+(B?

 $B$"$H!":9J,$@$1DI2C$9$k%3!<%I$r=q$$$F$_$F$O$I$&$G$7$g$&$+!#(B

Static S as String
S = S + "$BDI2C$9$k%G!<%?(B" + vbCrLf
Text1.Text = S
Text1.SelStart = Len(S)

-- 
Computer Institute of Japan, Ltd.
$B:4F#@59((B masahiro@cij.co.jp

Technical Details

Message-ID: <64r18d$8fk@cij-gw.ykhm.cij.co.jp>

Path: arc1-ca.pugleaf.net!unknown!not-for-mail

References: <64omlj$1f0$1@fu.bekkoame.or.jp>

Show Full Headers

Complete Article Headers

X-Google-Language: Japanese,JIS
X-Google-Thread: 105c2e,52e22847daa5c33d
X-Google-Attributes: gid105c2e,public
From: masahiro@cij.co.jp (Sato Masahiro)
Subject: Re: テキスト BOX で最下行を表示しつづける方法
Date: 1997/11/18
Message-ID: <64r18d$8fk@cij-gw.ykhm.cij.co.jp>
X-Deja-AN: 290350246
References: <64omlj$1f0$1@fu.bekkoame.or.jp>
Organization: Computer Institute of Japan, Ltd.
Newsgroups: fj.lang.visualbasic

Reply to Parent Message