How to auto fit a label width to its text?

[Hamayon Hamad]

I have a dynamic label on my form that has changeable text and want to know how to auto fit a label width to its text every time the text is changed? The lable benlongs to a text box and I want to dynamically change the width of it to its text that is changable text. The main thing is to change also the text box width according to the label width.

Thanks

[jimatqsi]

In the OnCurrent event (or whatever event is appropriate to your situation. I don't know what makes the content of the label change) you could put something like this. The code looks at the number of characters in the caption of the label and then sets the width of the label and text box based on an assumption about the TWIPS for your font and resolution. 1440 generally works for me. Google VBA and TWIPS for more info.

Dim intChars as integer
dim intTwips as integer
 
intChars = len(me!mylabel.caption) ' how many chars in the label
intTwips = 1440  ' might depend on what font you are using
me!mylabel.width = intchars * intTwips
me!mytextbox.width = me!mylable.width ' not sure if  you want equivalence here or what
 

Jim