精华区文章阅读

发信人: bloom (├┝┞┟┠┢┣�), 信区: VB
标题: GetTabbedTextExtent(文本和字体)(转载)
发信站: 哈工大紫丁香 (2000年09月07日18:38:52 星期四), 转信

【以下文字转载自 cnTemp 讨论区】
【原文由 catchy 所发表】
发信人: yucheng (无话可说), 信区: VisualBasic
发信站: BBS 水木清华站 (Sat Apr 8 01:21:11 2000) WWW-POST

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

--

--
☆ 来源:．哈工大紫丁香 bbs.hit.edu.cn．[FROM: casi.bbs@smth.org]
--
※ 转载:．哈工大紫丁香 bbs.hit.edu.cn．[FROM: 202.118.247.254]

VB 版 (精华区)