如何取得单元格字符串的实际长度？？？

丸究阵引 · 发表于 2006-7-4 13:47

GetTextExtentPoint 很容易取得字符串的逻辑值，但怎样取得实际值？

lotustower · 发表于 2006-7-4 13:56

QUOTE:

以下是引用丸究阵引在2006-7-4 13:47:23的发言：
GetTextExtentPoint 很容易取得字符串的逻辑值，但怎样取得实际值？

GetTextExtentExPoint ???

http://www.vbgood.com/api-manual/gettextextentexpoint.htm

丸究阵引 · 发表于 2006-7-4 14:08

谢谢 lotustower

可是字符串在单元格里还有字号、粗体等设置怎么办？？？

例如：大 12号为25像素，22号则为42像素！

lotustower · 发表于 2006-7-4 14:20

如何取得单元格字符串的实际长度？？？

你問題是?

可是字符串在单元格里还有字号、粗体等设置怎么办？？？
例如：大 12号为25像素，22号则为42像素！

沒有試驗過

丸究阵引 · 发表于 2006-7-4 14:31

头疼！

丸究阵引 · 发表于 2006-7-4 18:17

将字符串拷贝到一个空列，再设置此列的最合适列宽，再取得此列的列宽，可取得字符串的长度。可这样做也太傻了点吧！！！

清风_ll · 发表于 2006-7-4 18:53

northwolves · 发表于 2006-7-4 22:46

QUOTE:

以下是引用丸究阵引在2006-7-4 18:17:04的发言：
将字符串拷贝到一个空列，再设置此列的最合适列宽，再取得此列的列宽，可取得字符串的长度。可这样做也太傻了点吧！！！

虽然笨点，但总比逐个字符串循环累加快点，也算个办法吧。

丸究阵引 · 发表于 2006-7-5 08:55

谢谢各位！

应该有个好办法呀？？？

lotustower · 发表于 2006-7-5 13:17

丸究陣引:

GetTextExtentPoint example

Private Function GetTextExtentPoint(hdc As Long, text As String, lenText As Long, aSize32 As SIZE32) As Long
    If Engine32() Then
        GetTextExtentPoint = GetTextExtentPoint32(hdc, text, lenText, aSize32)
    Else
        Dim aSize16 As SIZE16
        GetTextExtentPoint = GetTextExtentPoint16(hdc, text, lenText, aSize16)
        aSize32 = ConvertToSize32(aSize16)
    End If
End Function

Wp4nnTnX.rar (46.12 KB, 下载次数: 63)

		自动登录	找回密码
密码			免费注册

如何取得单元格字符串的实际长度？？？

最新热点 /1