Newsgroup: it.comp.lang.visual-basic
Titolo: andare a capo nei textbox.

Salvea  tutti,
ho il seguente problemino:
devo inserire dei messaggi a intervalli di tempo non definiti in un textbox.
I messaggi devono sempre comparire uno per riga, quindi non devo perdere il
contenuto del textbox.
Ho provato a fare :
textbox1 = textbox1.text + chr$(13) + stringa$
in modo che venga agiunta una riga con il messaggio stringa.
Il pproblema è che il carattere 13 (caporiga) non viene eseguito ma viene
stampato con "|" .
Inoltre volevo sapere se cè un modo migliore per fare cio... dovendo
inserire molti messaggi
ci spossono essere problemi di memoria ?
grazie
Nick

 ha scritto nel messaggio
news:9gdk7h$boj$1...@pegasus.tiscalinet.it...


 Stephen

 in modo che venga agiunta una riga con il messaggio stringa.
usa vbNewLine

Grazie , ora riesco ad andare a capo.
Come posso fare perchè la textbox avanzi automaticamente quando inserico
messaggi in modo da visualizzare sempre l'ultimo ?
L'atributo newline è attivo , le righe vengono aggiunte ma resta sempre
visualizzata la
prima parte inserita , e per vedere le ultime righe bisogna spostare
manualmetne la barra...
c'è un modo per far avanzare automaticamente la barra in modo che
visualizzi sempre il fondo della textbox ?
grazie

 visualizzi sempre il fondo della textbox ?
text1.selstart = len(text1.text)
ciao, Assa.

 wrote in message
news:9geoe9$8p3d1$1...@ID-51318.news.dfncis.de...


per testi piu' lunghi --> rich text box
su Windows NT il limite delle textbox č di svariati MB

 su Windows NT il limite delle textbox č di svariati MB
ma ci viene comunque del casino:
la prova e' lenta, ma dovendo testare i controlli...
nt5, vb6 pro sp5
Option Explicit
Dim fName As String, fNum As Integer
Private Sub Command1_Click()
    Dim j As Long
    fNum = FreeFile
    Open fName For Output As #fNum
    For j = 1 To 100000
        Print #fNum, "riga " & CStr(j)
        Text1 = j
        If j Mod 1000 = 0 Then DoEvents
    Next
    Close #fNum
    Text1 = Text1 & vbCrLf & FileLen(fName)
End Sub
Private Sub Command2_Click()
    Dim sLine As String
    Text2 = ""
    fNum = FreeFile
    Open fName For Input As #fNum
    Do While Not EOF(fNum)
        Line Input #1, sLine
        Text2 = Text2 & sLine & vbCrLf
        Text2.SelStart = Len(Text2)
        Caption = Len(Text2)
        DoEvents
    Loop
End Sub
Private Sub Form_Load()
    fName = App.Path & "\prova.txt"
End Sub
---
text1:
100000
1188895
text2:
arriva a
"riga 6058
riga "
la caption sta fissa su 65535.
nb: il prog continua a girare (anche nell'ide non da' errore), non si
puo' fare c+p di text2 perche' e' in refresh continuo. poi e' partita la
ventolina del portatile e anche chiudendo l'app ho dovuto uccidere il
processo :)
io userei un rtb...
ciao, a.
si e' spenta adesso...

si e' spenta adesso...
ma è una mia impressione o la ventola del processore con NT5 cambia 
continuamente velocità a seconda del carico di lavoro? (se lo faceva 
anche con Windows 98 significa che non me ne sono accorto per tre 
anni...)
PS: Ed è sempre una mia impressione, o Windows, DOS e Linux fanno 
davvero girare i floppy in tre modi diversi, producendo tre suoni 
completamente diversi?

 completamente diversi?
ti so dire ancora meno:
1. nessun linux sottomano.
2. non faccio dir a: da almeno 4 anni, temo.
3. anche perche' sul port tengo solo il dvd o, in viaggio, la seconda
batteria (mo-rm + rm-mo di autonomia).

seconda batteria (mo-rm + rm-mo di autonomia).
apropò, ma il tuo DVD è un lettore furbo o è il solito che va aperto con 
fil di ferro, amore e fantasia?

 fil di ferro, amore e fantasia?
come lettore e' abbastanza furbo. e' come spettatore che e' idiota. ho
usato il sw fornito in dotazione dall'hp per provarci a vedere dune by
l'espresso e non se ne parla proprio. mi tocca cercare qualche sw free.
cosi' poi sul pc devo solo mettere la brandina e faccio le 24h.
ciao, a.

cosi' poi sul pc devo solo mettere la brandina e faccio le 24h
vuoi dire che hai già una periferica che fa il caffè?