dimensione etichetta

Question

buonasera volevo sapere se e' possibile, dimensionare la larghezza di una etichetta all'interno di una maschera, in base alla lunghezza del testo con cui viene impostata

grazie

saluti

Andrea

Answer 1

Ciao Andrea,

se per etichetta intendiamo esattamente il controllo etichetta, non potendo gestire eventi particolari (come invece si potrebbe fare per un controllo casella di testo), l'unico modo è gestire la sua larghezza subito dopo l'assegnazione della proprietà caption.

Non esiste una ricetta prestabilita. Occorre fare alcune prove per tarare i valori numerici da utilizzare in base ai margini interni che assegni al controllo.

L'esempio che segue utilizza un controllo label chiamato lblEtichetta, posizionato su una maschera, Maschera1, ed un pulsante di comando, cmdAssegnaEtichetta. Il carattere utilizzato per l'etichetta deve necessariamente essere un carattere non proporzionale, tipo Courier in modo che ogni carattere occupi lo stesso spazio:

---

Const cFixChar As Integer = 567      'Twips per Cm

Const cCmChar As Variant = 0.212  'Cm per carattere

Const cMargine As Variant = 0.1     'Correzione per margine

Private Sub cmdAssegnaEtichetta_Click()

    Me.lblEtichetta.Caption = AA123##@@@AAAABBBCCVddDad

    Me.lblEtichetta.Width = ((Len(Me.lblEtichetta.Caption) * cCmChar) + cMargine) * cFixChar

End Sub

---

David