Originariamente inviato da vonkranz
La funzione TextWidth serve per conoscere la larghezza di un testo in base alla scala specificata (Twip,Millimetri, anniluce,parsec ecc.)

Eccoti una mirabolante funzione che ti permette di inserire un testo delle esatte dimensioni della larghezza della label (che in questo esempio ho chiamato label1. (- 1 carattere)

codice:
   a = "123456789012345678901234567890123456789012345678901234567890"
   Do Until TextWidth(s) >= Label1.Width
      P = P + 1
      s = s + Mid(a, P, 1)
      DoEvents
   Loop
   s = Left(s, Len(s) - 1)
   Label1.Caption = s
ok, genio, ho una domanda per te:
  • a è la mia stringa, giusto?
  • s che cos'è?


grazie...