GetTabbedTextExtent
VB声明
Declare Function GetTabbedTextExtent Lib "user32" Alias "GetTabbedTextExtentA" (ByVal hdc As Long, ByVal lpString As String, ByVal nCount As Long, ByVal nTabPositions As Long, lpnTabStopPositions As Long) As Long
说明
判断一个字串占据的范围,同时考虑制表站扩充的因素。也请参考TabbedTextOut函数
返回值
Long,低16位包含了文本宽度,采用设备场景的逻辑坐标表示。高16位则包含了文本高度。零意味着出错
参数表
参数 类型及说明
hdc Long,设备场景的句柄
lpString String,欲计算的字串
nCount Long,字串中的字符数
nTabPositions Long,lpnTabStopPositions数组中的制表站数量。如果是零,则lpnTabStopPositions也应是NULL(需另行创建一个函数声明,将这个参数声明成ByVal nTabPositions&)。在这种情况下,制表站会根据当前字体的平均字符宽度,设置成默认的8字符间距。如nTabPositions是1,那么制表站间距就会以lpnTabStopPositions数组的第一个条目为准
lpnTabStopPositions Long,指定制表站位置数组的第一个条目。这种位置是按升序用设备坐标指定的
注解

进行这种计算的时候,剪切区不会考虑在内

Top