[VB] Gesione ritorni a capo in una label

[SuperMariano81]

Ciao a tutti
ho una bellissima label (perchè una label non può essere bellissima??) che contiene un bel po di testo; vorrei assegnare in un altra label il contenuto della "X" riga della label di origine, è possibile? :master:
Grazie mille

[DeBe99]

dovresti usare una instr() per trovare i ritorni a capo (chr(10)), e ciclarla per x volte. una cosa del genere:

x2=1
for i=0 to 10 'cerchi 10 ritorni a capo
  x=instr(x2,tualabel.caption,chr(10))
  if x=0 then exit for 'se no ci sono più ritorni a capo esci
  x2=x+1
next i
x=instr(x2,tualabel.caption,chr(10)) 'cerchi l'ultimo ritorno a capo
if x=0 then x=len(tualabel.caption)
nuovastringa=mid(tualabel.caption,x2,x-x2)

[DeBe99]

doppio