Alcune domandine semplci

[matsim]

Salve a tutti,
ho alcune domandine semplici, spero mi possiate aiutare !!!

1) Come faccio a contare quante righe sono presenti in una textbox.. ovvero quante volte compare il carattere di invio.

2) esiste un oggetto o una funzione che dopo avergli dato l'istruzione di partenta funga come cronometro.. per esempio un cronometro che mi memorizza quanto tempo rimane in esecuzione un form specifico.

Attendo le vostre risposte...

[ans]

per la 1 usa l'API SendMessage, la costante da utilizzare è EM_GETLINECOUNT.

per la 2 utilizza un timer.

[tas]

1) Questa funzione fa come da te richiesto, ma non tiene conto del fatto che si può andare a capo anche senza premere invio... se guardi nelle discussioni dei giorni scorsi dovresti trovare una soluzione al tuo problema via API.

Private Function ContaRighe(txt As String) As Integer
   Dim n As Integer
   Dim i As Integer

   i = 0
   Do
      i = Instr(i + 1, txt, vbCrLf)
      If i > 0 Then n = n + 1
   Loop Until i = 0

   ContaRighe = n
End Function

2) Esiste la funzione Timer, che riporta in un valore single il numero di secondi (e frazioni) trascorsi dalla mezzanotte:

Dim t As Single

'inizio del cronometraggio
t = Timer

'... esecuzione di altro codice

'fine cronometraggio
Debug.Print Timer - t

[matsim]

Grazie mille