VFP 愛用者社區

[CPS0204]

有一個物件=edit

當中的文字可以輸入一行,或10,20行
例:文字內容為
ABC
12345
THIS IS A BOOK

然後測得是3行高度
***************
請問:有無方法,可以偵測他是幾行的高度! 是內容文字的幾行高度,不是物件的外框高度!
以方便我轉excel時,適當的將row height 放大!

[garfield]

MEMLINES(MemoFieldName)
不能符合你的需求嗎?

[小賴]

1. 先測試 excel 放 1 排 2排 3 排 ...... n 排字時所需高度為何(row hight)
2. edit 內的文字列數可依 MemLine () 求得 (二樓 garfield 提示了)
或者你希望依 nCount = ALine() 求算列數; 二者有點不同

[CPS0204]

可以了,感恩

[syntech]

這樣做通常可以應付9成的情況

通常我會先知道那個cell 可以放多少字元,
假設為 n,
那就要先用 SET MEMOWIDTH TO n
再用 MEMLINES() 或是ALINES() 的話,
傳回來的 行數就是以每行n的字元計算的,
但這裡會有一個誤區 ---- 最後一個字(word)會不會被切掉
這會導致你可能多算或少算一行

當你做過測試後會發現 行數+1 ,多留一行會比較好看
接著 cell.font.size 還要加一點行距.

最後差不多就會像:
oleEXCEL.ActiveWorkbook.Sheets(1).Cells(IDX,16).RowHeight = (MEMLINES(欄位)+1) * (oleEXCEL.ActiveWorkbook.Sheets(1).Cells(IDX,16).font.size +1)

註:照抄,出事不管


但我必須以我的經驗告訴你,


excel 跟你想的不一樣

[garfield]

excel 可以調整最適欄寬
.Selection.Columns.autofit
行高
.Rows("1").EntireRow.AutoFit

[syntech]