CalcTextWidth

Syntax

W = RTF.CalcTextWidth(Text[,FontName][,FontSize][.Bold])

Description

Geeft de breedte van de ingegeven tekst weer, uitgedrukt in Twips, rekening houdend met de optioneel ingegeven lettertype-eigenschappen.

Parameter	Description
Text	Alfanumeriek, De tekst die moet worden geëvalueerd.
FontName	Optioneel. De naam van het lettertype, standaardwaarde is "Arial".
FontSize	Optioneel. De grootte van het lettertype, uitgedrukt in points. Numeriek, standaardwaarde is 9.
Bold	Optioneel. Geeft aan of het lettertype vetgedrukt is. Booleaans, standaardwaarde is False.

See Also

Wrap2Array

Example

Sub Main

Dim h%

h% = RTF.CreateHandle() 'open een nieuwe container

RTF.LoadFile h%, "..\mytemplate.rtf"

RTF.InitATfields h%, "A moment, please..."

Debug.Print RTF.AtFieldsCount(%h)

RTF.CloseHandle h% 'sluit de container

End Sub