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,指定制表站位置数组的第一个条目。这种位置是按升序用设备坐标指定的 |
注解 | |
进行这种计算的时候,剪切区不会考虑在内 |