Newsgroup: it.comp.lang.visual-basic
Titolo: Ulteriore problema. Per favore!

Per prima cosa un sentito GRAZIE principalmente ai consigli ricevuti qui sul 
NG che mi hanno permesso di affrontare con maggiore serenità la lettura del 
McGraw Hill e del Balena sul Visual Basic.
Adesso mi trovo - stranamente (sic!) - ad avere un problema banale che con 
il vecchio Basic si risolve in 3 secondi ed altrettante righe di codice.
In pratica sono risuscito ad aprire il file sequenzale prima creato ed a 
leggerne tutto il contenuto.
Adesso vorrei un "controllo" onde far fermare la visualizzazione delle righe 
ogni 15-20 righe e far apprire il bottone "continua".
  Open "c:\elenco_dati" For Input As #1
  While Not EOF(1)
  Line Input #1, primariga$
  Line Input #1, secondariga$
  Line Input #1, terzariga$
  Print "    "; primariga$, secondariga$, terzariga$
  n = n + 1
  If n >= 15 Then n = 0
  Command2.Visible = True
   >>>>>COSA CI DEVO SCRIVERE QUI PER FAR FERMARE LO "SCROLL" in attesa che 
l'utente clicchi sul bottone "Command2" che si rende visibile solo se il 
numero delle righe mostrate sullo schermo è uguale o superiore a 15?
  Else
  Wend
  Close #1
Grazie di cuore se vorrete ancora aiutarmi.
(G)

hai provato con il comando time?
"Guido" <g,TOgu...@tisIMcIali.it> ha scritto nel messaggio 
news:436a622a$0$22286$4faf...@reader1.news.tin.it...


    >>>>>COSA CI DEVO SCRIVERE QUI PER FAR FERMARE LO "SCROLL" in attesa
che
*qui*?
cioe' finche' l'utente sta li', va a prendere il caffe', telefona alla
morosa, guarda meteolive per il weekend, tu tieni un file aperto?
non chiamartele. mettilo in una variabile, chiudilo, e scorri quella dentro
a un richtextbox, un listview o simili.
ciao, a.


 ogni 15-20 righe e far apprire il bottone "continua".
[censura]
 >
prima ti faccio io una domanda:
hai mai visto un programma per windows che fa lo scroll come vorresti 
fare tu?
no!
cancella i metodi che usavi in gwbasic, un form windows va' gestito in 
modo completamente diverso.
segui gli esempi dei libri!
infine, per il tuo programma:
in un form metti una casella di testo,
imposta la proprieta' Multiline = true
e la proprieta' ScrollBars = 3 - Both
nell'evento Form_Load
metti:
Dim Testo As String
   Open "c:\elenco_dati" For Binary As #1
   Testo=Space$(LOF(1))
   Get 1,1,Testo
   Text1.Text = Testo
   Close 1
premi F5
HTH
bye
r

CUT
Vi ringrazio moltissimo per le speigazioni.
Purtroppo sono ancora "ancorato" al vecchio GW-Basic e questo mi porta fuori 
strada.
Siete stati tutti molto gentili, grazie ancora, speriamo di progredire al 
più presto.
(G)

 hai provato con il comando time?
Peggio che andar di notte!
Sono ancora "lgato" al vecchio basic e quindi sbaglio l'approccio.
Comunque grazie.
(G)

 a un richtextbox, un listview o simili.
Hai perfettamente ragione!
Questo metodo è molto più snello e sicuro, grazie per la dritta!
(G)

CUT
Ti ringrazio, sei stato molto cortese a fornirmi il codice adeguato: adesso 
me lo studio e cerco di capire il "perchč".
Grazie ancora!
(G)

 più presto.
La prossima volta però iniziamo a postare con un subject coerente al 
problema.
Ciao 

 Mi fai vergognare...
non volevo essere cattivo, ma solo farti riflettere: se vuoi fare 
programmi per windows devi cercare soluzioni nello stile di windows.
cerca di seguire un esempio e fallo funzionare!
quello che facevi con l'interfaccia a caratteri del gwbasic non ha piu' 
senso, devi pensare che cio' che fa il tuo programma dipende dagli 
eventi generati dalle azioni dell'utente sull'interfaccia grafica, 
percio' imprevedibile e insensata ;-)
per adesso ti auguro buon lavoro.
bye
r

 per adesso ti auguro buon lavoro.
Ti ringrazio! Speriamo bene!

 problema.
Anche stavolta hai ragione tu!
Chiedo venia.
(G)

 news:436b7944$0$29605$4faf...@reader3.news.tin.it...
E' tutto il pomeriggio che tento di far apparire il contenuto del file nella 
casella Text1 mentre invece, beffarda, mi visualizza solo "text1"....
Sono fuso.... Alzo bandiera bianca.
(G)

"Guido" <g,TOgu...@tisIMcIali.it> ha scritto nel messaggio 
news:436d0501$0$22296$4faf...@reader1.news.tin.it...
Avevo commesso un errore di "vista": adesso funziona, ma io sono fuso lo 
stesso e la bandiera bicna e pronta per essere alzata...
E pensa se non c'eri tu a darmi una, anzi due mani: grazie, sentitamente.
Buona serata.
(G)