degojs, tvoj kod radi ako su redovi odvojeni sa vbCrLf, ali ako imas textbox kontrolu koja ima MultiLine property=True i kucas dovoljno dugo text u njega - dobices text box sa vise linija, a vbCrLf se nigde ne pojavljuje u Text1.Text.
Broj redova bi se racunao otprilike ovako:
Code:
Private Sub Command1_Click()
Dim Lin As Long
Lin = Form1.TextWidth(Text1.Text) \ Text1.Width
If Len(Text1.Text) <> 0 Then Lin = Lin + 1
Debug.Print "Lines: " & Lin
End Sub
Da bi ovo radilo kako valja forma Form1 treba da ima isti font (naziv, velicinu, ...) kao i textbox Text1. Ako se ove stavri razlikuju, mozes umesto Form1 da koristis skriveni PictureBox koji isto ima TextWidth metod i mora da ima ista podesavanja za font kao Text1 kontrola. Ako imas vertical scrollbar na textboxu onda gornji kod moras da promenis tako da se i sirina scrollbara racuna u sirinu text boxa