VFP 愛用者社區

[mp484]

如題：如何知道字串長度超過 Text物件的長度？該用什麼函數或屬性檢查？

[bx1166]

len()

[mp484]

Len() 跟 Width 的結果好像不一樣吧？
雖然知道字串長度，但是欄位的寬度是不是超過這樣要怎樣檢查？

[asd89839032]

他想表達的就是用LEN()檢查....
text.InteractiveChange 中寫上

[syntech]

TEXT 物件上設PICTURE (INPUTMASK) 不就好了.

=REPLICATE('x',FSIZE(某欄))

[yctsai]

他應該是問因為text寬度不足,所以顯示不完全的問題吧

[asd89839032]

我的不就是檢查有沒有超過嗎= =?
超過會提示
至於超過消失的資料就.....XD

[yctsai]

其實不簡單,text的值,在中文英文字型等因素下,部份顯示不完全,用什麼判斷???我有見過某軟體,如果顯示不完全,滑鼠移到上頭
自動tooltiptext,如果顯示完全,卻不會彈出tooltiptext,此功能對 user and 畫面設計有幫助

[zxl931]

以下程序可以取得字符串像素宽度。

***********************************************************************
* Program....: SIZESTR.PRG
* Author.....: Andy Kramek
* Date.......: 28 August 2001
* Notice.....: Copyright (c) 2001 Tightline Computers Ltd, All Rights Reserved.
* Compiler...: Visual FoxPro 07.00.0000.9262 for Windows
* Purpose....: Return the exact length of a string (in Pixels) in the specified font
* Prototype..: lnLen = SizStr( "This String", "Arial", 9, "BI" )
***********************************************************************
LPARAMETERS tuInStr, tcFName, tnFSize, tcFStyle
LOCAL lcInStr, lnLen, lnParams, lnRetVal
lnParams = PCOUNT()
**********************************************************************
*** Set Default Values if nothing passed
*** Default style is "Arial", 9
**********************************************************************
IF lnParams < 4
tcFStyle = ""
IF lnParams < 3
tnFSize = 9
IF lnParams < 2
tcFName = "Arial"
IF lnParams < 1
tuInStr = "1"
ENDIF
ENDIF
ENDIF
ENDIF
**********************************************************************
*** Convert the input string to character equivalent
**********************************************************************
lcInStr = TRANSFORM( tuInStr )
lnLen = LEN( lcInStr )
**********************************************************************
*** Get the exact length in Pixels
**********************************************************************
lnRetVal = INT( TXTWIDTH( lcInStr, tcFName, tnFSize, tcFStyle) * ;
FONTMETRIC(6, tcFName, tnFSize, tcFStyle))

**********************************************************************
*** And return the length
**********************************************************************
RETURN lnRetVal