🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Thread View: fj.lang.visualbasic
5 messages
5 total messages Started by 椎名正昭 Mon, 17 Nov 1997 00:00
テキストBOXで最下行を表示しつづける方法
#1065
Author: 椎名正昭
Date: Mon, 17 Nov 1997 00:00
28 lines
1395 bytes
$BDGL>$H?=$7$^$9!#(B

$B#V#B$G%F%-%9%H#B#O#XFb$K%F%-%9%H%G!<%?$rF~$l$h$&$H!V(BText$B!W%W%m%Q%F%#$r;H$$(B
$B0J2<$N$h$&$J=q$-J}$r$7$F$7$^$&$H!"%F%-%9%H$,BeF~$5$l$k$?$s$S$KI=<(0LCV$,(B
$B@hF,$KLa$C$F$7$^$$$^$9!#(B

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

$B$3$N8=>]$r2r7h$9$kJ}K!$O$J$$$b$N$J$s$G$7$g$&$+!)(B
$B%$%a!<%8E*$K$O!"#D#O#SAk$N$h$&$KF~NO$5$l$k$?$s$S$K2<$NJ}$X(B
$BI=<($,@Z$jBX$o$k$h$&$K$7$?$$$N$G$9!#(B

$B:#$O!"(B

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


$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$d$O$j2?$i$+$N#A#P#I$r;H$&$N$G$7$g$&$+!)(B
$B$I$J$?$+NI$$J}K!$,$"$j$^$7$?$i65$($F$/$@$5$$!#(B
$B0J>e!#(B
Re: テキスト BOX で最下行を表示しつづける方法
#1077
Author: 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
Re: テキスト BOXで最下行を表示しつづける方法
#1083
Author: 椎名正昭
Date: Tue, 18 Nov 1997 00:00
28 lines
1369 bytes
$BDGL>$G$9!#(B
$B%U%)%m!<$"$j$,$H$&$4$6$$$^$9!#(B

Sato Masahiro wrote in message <64r18d$8fk@cij-gw.ykhm.cij.co.jp>...
> $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)
>
$B%5%s%W%k$N%3!<%I$rE,Ev$K=q$-$9$.$F$^$7$?!#$9$$$^$;$s!#(B
$B3N$+$K%"%k%4%j%:%`E*$JLL$G$$$/$i$+$OIi2Y$r8:$i$9;v$O$G$-$^$9$,!"(B
$B<+F0E*$K:G2<9T$rI=<($7$D$E$1$h$&$H$9$k$K$O!"$d$O$j(BSelStart$B$r;H$&0J30$K(B
$B<j$OL5$$$N$G$7$g$&$+!)(B
Re: テキスト BOX で最下行を表示しつづける方法
#1087
Author: Sato Masahiro
Date: Tue, 18 Nov 1997 00:00
22 lines
1508 bytes
In article <64rbup$ctl$1@fu.bekkoame.or.jp>, $BDGL>@5><(B wrote:
>$B%5%s%W%k$N%3!<%I$rE,Ev$K=q$-$9$.$F$^$7$?!#$9$$$^$;$s!#(B
>$B3N$+$K%"%k%4%j%:%`E*$JLL$G$$$/$i$+$OIi2Y$r8:$i$9;v$O$G$-$^$9$,!"(B

 $B$&!<$s!";d$N4D6-$G(B SelStart $B%a%=%C%I$N=hM};~4V$r7W$C$F$_$?$N$G$9$,!"(B
$BA4BN$+$i$9$k$H$o$:$+$G$7$?!#=>$C$F!"$3$l$r=$@5$7$F$b=hM}B.EY$O$[$H$s$I(B
$BJQ$o$i$J$$$h$&$J5$$,$7$^$9!#$`$7$m!"B>$NItJ,$r2~A1$7$?J}$,$h$$$N$G$O(B
$B$J$$$G$7$g$&$+!#(B

>$B<+F0E*$K:G2<9T$rI=<($7$D$E$1$h$&$H$9$k$K$O!"$d$O$j(BSelStart$B$r;H$&0J30$K(B
>$B<j$OL5$$$N$G$7$g$&$+!)(B

 $B$J$*!"(BSelStart $B%a%=%C%I$KBX$($FB>$NJ}K!$r<h$k$H$7$?$i!"(BEM_SETSEL $B$d(B
EM_SCROLLCARET $B$J$I$N%a%C%;!<%8$rD>@\%F%-%9%H%\%C%/%9$KAw$kJ}K!$,(B
$B$"$k$G$7$g$&$+!#(BSendKeys $B%9%F!<%H%a%s%H$G(B Ctrl+End $B$rAw$k$H!"(B
$B$+$($C$FCY$$$h$&$G$7$?!#(B


-- 
Computer Institute of Japan, Ltd.
$B:4F#@59((B masahiro@cij.co.jp
Re: テキスト BOXで最下行を表示しつづける方法
#1041
Author: 岸上幸生
Date: Wed, 26 Nov 1997 00:00
21 lines
1290 bytes
$BCY$$%U%)%m!<$G?=$7Lu$"$j$^$;$s!#$b$&2r7h$7$F$$$k$+$bCN$l$^$;$s$,!#(J

$BDGL>@5><(J <shiina@ro.bekkoame.or.jp> wrote
in article <64rbup$ctl$1@fu.bekkoame.or.jp>...
> $B<+F0E*$K:G2<9T$rI=<($7$D$E$1$h$&$H$9$k$K$O!"$d$O$j(JSelStart$B$r;H$&0J30$K(J
> $B<j$OL5$$$N$G$7$g$&$+!)(J

$B?7$7$$9T$rDI2C$7$F!"$=$N9T$rI=<($5$;$k$@$1$J$i!"(JSelText$B$r;H$&<j$b$"$j(J
$B$^$9!#$3$s$J46$8$G$9!#(J

    Text1.Text = ""
    For i = 1 To 100
        Text1.SelText = "$B%G!<%?(J" & Str$(i) & vbCrLf
    Next i

$B0U?^$,0c$C$F$$$?$i$4$a$s$J$5$$!#(J

-- 
$B!J3t!K8^@1(J ( gosei@gosei.co.jp )
$B4k2hIt(J ( system@gosei.co.jp )$B!!!!4_>e(J
Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads