VFP 愛用者社區 首頁 VFP 愛用者社區
本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
 
 常見問題常見問題   搜尋搜尋   會員列表會員列表   會員群組會員群組   會員註冊會員註冊 
 個人資料個人資料   登入檢查您的私人訊息登入檢查您的私人訊息   登入登入

如何偵測edit的文字內容高度?

 
發表新主題   回覆主題    VFP 愛用者社區 首頁 -> VFP 討論區
上一篇主題 :: 下一篇主題  
發表人 內容
CPS0204



註冊時間: 2014-08-24
文章: 441


第 1 樓

發表發表於: 星期三 十二月 01, 2021 1:33 pm    文章主題: 如何偵測edit的文字內容高度? 引言回覆

有一個物件=edit

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

然後測得是3行高度
***************
請問:有無方法,可以偵測他是幾行的高度! 是內容文字的幾行高度,不是物件的外框高度!
以方便我轉excel時,適當的將row height 放大!
回頂端
檢視會員個人資料 發送私人訊息
garfield
Site Admin


註冊時間: 2003-01-30
文章: 2157


第 2 樓

發表發表於: 星期三 十二月 01, 2021 3:40 pm    文章主題: 引言回覆

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

_________________
利用>>搜尋<<的功能會比問的還要快得到答案.
回頂端
檢視會員個人資料 發送私人訊息 發送電子郵件
小賴



註冊時間: 2004-12-27
文章: 469


第 3 樓

發表發表於: 星期三 十二月 01, 2021 7:20 pm    文章主題: 引言回覆

1. 先測試 excel 放 1 排 2排 3 排 ...... n 排字時所需高度為何(row hight)
2. edit 內的文字列數可依 MemLine () 求得 (二樓 garfield 提示了)
或者你希望依 nCount = ALine() 求算列數; 二者有點不同
回頂端
檢視會員個人資料 發送私人訊息 發送電子郵件
CPS0204



註冊時間: 2014-08-24
文章: 441


第 4 樓

發表發表於: 星期三 十二月 01, 2021 7:20 pm    文章主題: 引言回覆

可以了,感恩
回頂端
檢視會員個人資料 發送私人訊息
syntech



註冊時間: 2003-05-16
文章: 4211
來自: Taipei,Taiwan

第 5 樓

發表發表於: 星期三 十二月 01, 2021 10:50 pm    文章主題: 引言回覆

這樣做通常可以應付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 跟你想的不一樣


Very Happy Very Happy Very Happy Very Happy Very Happy

_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問

請聯絡我們,也許我們幫得上忙
回頂端
檢視會員個人資料 發送私人訊息 發送電子郵件 AIM Address
garfield
Site Admin


註冊時間: 2003-01-30
文章: 2157


第 6 樓

發表發表於: 星期四 十二月 02, 2021 9:23 am    文章主題: 引言回覆

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

_________________
利用>>搜尋<<的功能會比問的還要快得到答案.
回頂端
檢視會員個人資料 發送私人訊息 發送電子郵件
syntech



註冊時間: 2003-05-16
文章: 4211
來自: Taipei,Taiwan

第 7 樓

發表發表於: 星期四 十二月 02, 2021 9:33 am    文章主題: 引言回覆

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


我有查到這個屬性,
但運作起來老是跟我想的不一樣 Crying or Very sad Crying or Very sad Crying or Very sad

Orz


----
https://answers.microsoft.com/en-us/msoffice/forum/all/autofit-doesnt-always-work/fcb1e8b9-0f94-4dec-af7d-4e5f96b164d9?auth=1

_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問

請聯絡我們,也許我們幫得上忙
回頂端
檢視會員個人資料 發送私人訊息 發送電子郵件 AIM Address
從之前的文章開始顯示:   
發表新主題   回覆主題    VFP 愛用者社區 首頁 -> VFP 討論區 所有的時間均為 台北時間 (GMT + 8 小時)
1頁(共1頁)

 
前往:  
無法 在這個版面發表文章
無法 在這個版面回覆文章
無法 在這個版面編輯文章
無法 在這個版面刪除文章
無法 在這個版面進行投票
無法 在這個版面附加檔案
無法 在這個版面下載檔案


Powered by phpBB © 2001, 2005 phpBB Group
正體中文語系由 phpbb-tw 維護製作