VFP 愛用者社區

Ruey · 註冊時間: 2003-03-12 文章: 1698 來自: tunglo 第 1 樓

我覺得此技巧很容易,可是最常被人呼略.......
故轉貼...

來源:紅狐網站
http://fox.hanyu.com.tw/View.aspx?fbId=1&Id=10969

昨天在 Demo 時凸槌的技巧，今天補上：

(1) 進入 VFP 的 Command Window
(2) 鍵入 modify form test
(3) 在 Form 上隨便拖放幾個控制項，按下 Ctrl+A 全選
(4) 回到 Command Window
(5) 寫個小程式（請將全形空白自行置換成半形空白）：

ASelObj(loaControl)
for i = 1 to alen(loaControl)
　　　loaControl(i).fontname = "Arial"
　　　loaControl(i).fontsize = 10
endfor

執行之後，就可以一次把該 Form 上所有控制項的字型都改了。

同理，亦可這樣：

ASelObj(loaControl)
for i = 1 to alen(loaControl)
　　　loaControl(i).tag = chrtran(loaControl(i).ControlSource, ".", "_")
endfor

執行之後，就可以一次把該 Form 上所有控制項的 Tag 屬性都改了。

Chris Lee

catfish · 發表於: 星期五十二月 11, 2009 3:56 pm 文章主題:

如果在Form上有個Pageframe物件,
我要如何讓Pageframe物件之下各page中的物件也能被全選呢?
還是只能一個page一個page的各別改?

syntech · 發表於: 星期五十二月 11, 2009 4:51 pm 文章主題:

use form 吧.

catfish · 發表於: 星期三十二月 23, 2009 9:29 am 文章主題:

不太懂 use form 的意思耶!
是 use form.scx嗎?
還是在Form上按 Ctrl + A ?
但我在Form上按全選,再執行上述程式,
在pageframe下的各page的處理中,利用keyboard "{Ctrl+A}" 指令
好像沒有全選的作用?

syntech · 發表於: 星期三十二月 23, 2009 10:49 am 文章主題:

use form
再下 BROWSE,
再加些FILTER 就知道啦.

catfish · 發表於: 星期三十二月 23, 2009 1:28 pm 文章主題:

感謝,我有找到這些屬性的內容欄位了!
現在有一個問題,
當各物件沒有預設字型時,系統會以"Arial"為預設字!
我如果用use form的方式,
也無法找到 FontName = "Arial" 這樣的字串讓我去取代掉呀!

DennisTsai · 註冊時間: 2005-07-26 文章: 178 第 7 樓

試試
REPLACE properties WITH STRT(PROPERTIES,'FontSize','FontName = 新細明體'+CHR(13)+'FontSize') ALL

syntech · 發表於: 星期四十二月 24, 2009 10:38 am 文章主題:

找不到,不就直接塞一個給它. XD

DennisTsai · 註冊時間: 2005-07-26 文章: 178 第 9 樓

嘿ㄚ
fontname不一定有,但fontsize不會找不到!

catfish · 發表於: 星期四十二月 24, 2009 4:21 pm 文章主題:

感謝大家的意見,我最後用DennisTsai的方法再修改了一下判斷如下:

FontString = 'FontName = "新細明體"'
REPLACE properties WITH STRT(PROPERTIES,'FontSize','FontName = "新細明體"'+CHR(13)+'FontSize') FOR NOT (FontString $ properties) .and. ('FontSize' $ properties)

但遇到combobox時還是會有問題,因為它的properties是option1.FontSize, option2.FontSize.....
不過這已經解決我大部分的問題了,
其餘的小部分用手改比較快了,
謝謝各位哦~~ ^^