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

丸究阵引

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

lotustower

QUOTE:

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

GetTextExtentExPoint  ???

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

丸究阵引

谢谢 lotustower

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

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

lotustower

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

你問題是?

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

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

 沒有試驗過

丸究阵引

头疼！

丸究阵引

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

清风_ll

傻

northwolves

QUOTE:

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

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

丸究阵引

谢谢各位！

应该有个好办法呀？？？

lotustower

 丸究陣引:

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