[VB6] Cancellazione automatica da TextBox

[Makemsis]

ciao... avrei bisogno di cancellare il testo di una text box quando vengono raggiunte le 1000 righe di testo...chi mi sa dare una mano??
Grazie

[alka]

Ho spostato la discussione all'interno del forum dedicato a Visual Basic (VBx, VBA, ...) e ai linguaggi per .NET Framework (VB.NET, C#, ...).

In futuro, poni in questo forum le domande relative a questi linguaggi.

Ciao!

[oregon]

Stiamo parlando di un textbox multiline o di un richtextbox?

Come inserisci le linee? Non le puoi contare mentre le inserisci?

[Makemsis]

stiamo parlando di una textbox multilinea...
potrei anche fare come dici tu... ma non so come si fa...

[oregon]

Originariamente inviato da Makemsis
stiamo parlando di una textbox multilinea...
potrei anche fare come dici tu... ma non so come si fa...

Non hai risposto alla mia domanda ... come inserisci le 1000 linee?

[Makemsis]

inserisco una di queste linee alla volta:

SendedData.Text = SendedData.Text & Date & " - " & Time & " | " & CodTravDb & " - " & CodGroupDb & " - " & Campo1 & " - " & Campo2 & " - " & Campo3 & " - " & Campo4 & " - " & Campo5 & " - " & Campo6 & " - " & Campo7 & " - " & Campo8 & " - " & Campo9 & " - " & Campo10 & " - " & Campo11 & " - " & Campo12 & " - " & Campo13 & " - " & Campo14 & " - " & Campo15 & " - " & Campo16 & " - " & Campo17 & " - " & Campo18 & " - " & Campo19 & " - " & Campo20 & " - " & Campo21 & " - " & Campo22 & " - " & Campo23 & " - " & Campo24 & " - " & Campo25 & " - " & Campo26 & " - " & Campo27 & " - " & Campo28 & " - " & Campo29 & " - " & Campo30 & vbCrLf


I campi sono valori che recupero da un database sql

[oregon]

Ok ... e allora ogni volta che esegui questa riga metti

CLine = CLine + 1
If CLine>1000 Then
   SendedData.Text = ""
   CLine = 0
End If

... ovviamente all'inizio avrai inserito CLine = 0

[Luciano79]

Originariamente inviato da Makemsis
inserisco una di queste linee alla volta:

SendedData.Text = SendedData.Text & Date & " - " & Time & " | " & CodTravDb & " - " & CodGroupDb & " - " & Campo1 & " - " & Campo2 & " - " & Campo3 & " - " & Campo4 & " - " & Campo5 & " - " & Campo6 & " - " & Campo7 & " - " & Campo8 & " - " & Campo9 & " - " & Campo10 & " - " & Campo11 & " - " & Campo12 & " - " & Campo13 & " - " & Campo14 & " - " & Campo15 & " - " & Campo16 & " - " & Campo17 & " - " & Campo18 & " - " & Campo19 & " - " & Campo20 & " - " & Campo21 & " - " & Campo22 & " - " & Campo23 & " - " & Campo24 & " - " & Campo25 & " - " & Campo26 & " - " & Campo27 & " - " & Campo28 & " - " & Campo29 & " - " & Campo30 & vbCrLf


I campi sono valori che recupero da un database sql

Conti quanti VbCrLf hai inserito nel seguente modo:

If (Len(SendData.Text) - Len(Replace(SendedData.Text,VbCrLf,"")) >= 2000 Then
  SendedData.Text = ""
End If
SendedData.Text = .....

[Luciano79]

Originariamente inviato da Luciano79
Conti quanti VbCrLf hai inserito nel seguente modo:

If (Len(SendData.Text) - Len(Replace(SendedData.Text,VbCrLf,"")) >= 2000 Then
  SendedData.Text = ""
End If
SendedData.Text = .....

E' il metodo + veloce se sei certo che nessuno dei campi che vai ad inserire possa contenere VbCrLf (altrimenti avresti si 1000 righe, ma con meno record)

[Makemsis]

Originariamente inviato da oregon
Ok ... e allora ogni volta che esegui questa riga metti

CLine = CLine + 1
If CLine>1000 Then
   SendedData.Text = ""
   CLine = 0
End If

... ovviamente all'inizio avrai inserito CLine = 0

Perfetto!! Grazie mille a tutti...