See Also Example
Action
Returns the width of a text string as it would be printed in the current font of an object.
Syntax
[object.]TextWidth(stringexpression)
Remarks
The TextWidth method has these parts:
Part Description
object Object (non MDI form, picture box, or Printer object) that determines the font size upon which the text width is based.
stringexpression Text string for which the text width is determined.
The width is expressed in terms of the Scale coordinate system of object. Use TextWidth to determine the amount of horizontal space required to display the text. If stringexpression contains embedded carriage returns, TextWidth returns the width of the longest line.
FontSize Property
Scale Method
TextHeight Method
The TextWidth method is used to center a line of text horizontally on a form. To try this example, paste the code into the Declarations section of a form. Then press F5 and click the form.
Sub Form_Click ()
Dim HalfHeight, HalfWidth, Msg ' Declare variables.
AutoRedraw = -1 ' Turn on AutoRedraw.
BackColor = QBColor(4) ' Set background color.
ForeColor = QBColor(15) ' Set foreground color.
Msg = "Visual Basic" ' Create message.
Fontsize = 48 ' Set font size.
HalfWidth = TextWidth(Msg) / 2 ' Calculate half width.
HalfHeight = TextHeight(Msg) / 2 ' Calculate half height.
CurrentX = ScaleWidth / 2 - HalfWidth ' Set X.
CurrentY = ScaleHeight / 2 - HalfHeight ' Set Y.
Print Msg ' Print message.
End Sub