🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Thread View: fj.lang.visualbasic
2 messages
2 total messages Started by ueki.s Sat, 13 Sep 1997 00:00
^$BJQ?t$N;H$$J}$H2hLLI=<((J
#1420
Author: ueki.s
Date: Sat, 13 Sep 1997 00:00
20 lines
887 bytes
Visual Basic 4.0 $B$r;HMQ$7$F$$$k=i?4<T$G$9!#(J
$B#1!%(JFrom1$B$G(J
$B!!!!(JOption Explict$B!!(J
  Private da(60)
  Dim  st
$B$H;XDj$7$FJQ?t$r;HMQ$7$F$$$^$9$,(JForm2$B$G$b(J
$B;HMQ=PMh$kJ}K!$r65$($F2<$5$$!#(J

$B#2!%(JForm1$B$K(Jprint$BJ8$G2hLLI=<($7$F$$$^$9$,(JForm2$B$r%*!]%W%s$7$F2hLL(J
$BI=<($5$;$kJ}K!$r65$(2<$5$$!#!!!!(J      
     Privata Sub Command1_Clic()
  Print
  Print 
   for i = 1  to pp
 Print " $B;HMQIt:`(J "
  Next i
 End Sub

$B$I$J$?$+$*65$(2<$5$$!#(J
Re: ^$BJQ?t$N;H$$J}$H2hLLI=<((J
#1237
Author: kobayan
Date: Thu, 02 Oct 1997 00:00
49 lines
1841 bytes
$BE*$rF@$?Ez$($+$I$&$+J,$+$j$^$;$s$,!"(J
$B<!$NJ}K!$r$^$a$7$F$_$F$/$@$5$$!#(J

$B#1!%(JForm1,Form2$B$GF1$8JQ?t$r6&M-$7$?$$>l9g$O!"%3!<%I%b%8%e!<%k(J(***.bas)$B$N$J(J
$B$+$G(J
Option Explict '$B$3$l$O$I$&$G$b$h$$(J

Public da(60)
Public  st

$B$HJQ88$9$l$P$h$$$G$9!#(J
$B%W%m%8%'%/%H$K?7$7$$%3!<%I%b%8%e!<%k$rDI2C$9$k$N$O!"(J
$B%k!<%k%P!<$G!"%U%)!<%`$rDI2C$9$k%\%?%s$N2#$N%\%?%s$r2!$;$P$h$$$G$9!#(J

$B#2!%(JForm1$B$NCf$+$i!"(JForm2$B$K$R$g$&$8$7$?$$$N$@$C$?$i!"(J
    Form1$B$N%\%?%s$N%/%j%C%/%$%Y%s%H$G$D$.$N$h$&$K$7$F$_$F$/$@$5$$!#(J

Privata Sub Command1_Clic()
    Form2.show
    Form2.Print
    Form2.Print 
    for i = 1  to pp
        Form2.Print " $B;HMQIt:`(J "
    Next i
End Sub

ueki.s <uekis@mb.infoweb.ne.jp> wrote in article
<01bcc013$deb8dce0$LocalHost@default>...
> Visual Basic 4.0 $B$r;HMQ$7$F$$$k=i?4<T$G$9!#(J
> $B#1!%(JFrom1$B$G(J
> $B!!!!(JOption Explict$B!!(J
>   Private da(60)
>   Dim  st
> $B$H;XDj$7$FJQ?t$r;HMQ$7$F$$$^$9$,(JForm2$B$G$b(J
> $B;HMQ=PMh$kJ}K!$r65$($F2<$5$$!#(J
> 
> $B#2!%(JForm1$B$K(Jprint$BJ8$G2hLLI=<($7$F$$$^$9$,(JForm2$B$r%*!]%W%s$7$F2hLL(J
> $BI=<($5$;$kJ}K!$r65$(2<$5$$!#!!!!(J      
>      Privata Sub Command1_Clic()
>   Print
>   Print 
>    for i = 1  to pp
>  Print " $B;HMQIt:`(J "
>   Next i
>  End Sub
> 
> $B$I$J$?$+$*65$(2<$5$$!#(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