 |
VFP 愛用者社區
本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
| 上一篇主題 :: 下一篇主題 |
| 發表人 |
內容 |
bin1x
註冊時間: 2004-08-27
文章: 462
第 1 樓
|
 發表於: 星期日 三月 19, 2006 7:58 pm 文章主題: |
 |
|
我有想到一招怪招說
先前不是說可以use *.scx
如果是用form design 一定是標準的label 自訂就找自訂的
找到class 是label 修改它property 中的caption
存成另外一張表單(可以嗎,也許應先把form 複製成兩份)
設個系統參數,換個menu 搞不好行的通
行不通,就當我幻想的好了 |
|
| 回頂端 |
|
 |
garfield
Site Admin
註冊時間: 2003-01-30
文章: 2160
第 2 樓
|
|
| 回頂端 |
|
|
syntech
註冊時間: 2003-05-16
文章: 4252
來自: Taipei,Taiwan
第 3 樓
|
| 發表於: 星期一 三月 20, 2006 9:11 am 文章主題: |
|
|
| 代碼: |
IF IS_GB
WITH THISFORM
FOR nControlLoop =1 TO .CONTROLCOUNT
IF UPPER(.Controls[nControlLoop].BaseClass) = 'LABEL' ;
OR UPPER(.Controls[nControlLoop].BaseClass) = 'COMMANDBUTTON' && 看有幾種就放幾種
.Controls[nControlLoop].Caption = big5togb(.Controls[nControlLoop].Caption)
ENDIF
NEXT
ENDWITH
ENDIF
|
利用 物件的Colletion 來作,
當然,遇到container 型的物件要繼續往內層處理.
_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
| 回頂端 |
|
|
catjoke
註冊時間: 2003-06-16
文章: 175
來自: 香港
第 4 樓
|
| 發表於: 星期一 三月 20, 2006 10:34 am 文章主題: |
|
|
syntech 的做法不是不好, 而是不夠專業.
Caption 應用至:
CheckBox, CommandButton, Form, Header, Label, OptionalButton, Page, _Screen, Toolbar
所以應該檢查:
IF PEMSTATUS(cObject, [Caption], 5)
cObject.Caption = BIG5toGB(cObject.Caption)
ENDIF
IF PEMSTATUS(cObject, [SETALL], 5)
* 使用 Recursion 把它的 子子孫孫也一併更改為 GB 碼!
* 特別最難攪的是 有 Page, 而 Page2 中有 Grid, Grid 內的 Header 也需要更改為 GB 碼!!!!
ENDIF
並且在 執行後, 把一個新的 Form.AlreadyConvert 改為 .T.
避免 重覆 執行而產品亂碼.
_________________
喵喎~ 貓當然是 "茅" 的嘛! ^0^; |
|
| 回頂端 |
|
|
garfield
Site Admin
註冊時間: 2003-01-30
文章: 2160
第 5 樓
|
| 發表於: 星期一 三月 20, 2006 11:01 am 文章主題: |
|
|
用遞迴的方式來改一下就很好用了.
| 代碼: |
chkall( thisform )
*****************
func chkall
lpara mobj
IF IS_GB
WITH mobj
FOR nControlLoop =1 TO .CONTROLCOUNT
do case
case UPPER(.Controls[nControlLoop].BaseClass) = 'LABEL' ;
OR UPPER(.Controls[nControlLoop].BaseClass) = 'COMMANDBUTTON' && 看有幾種就放幾種
.Controls[nControlLoop].Caption = big5togb(.Controls[nControlLoop].Caption)
case UPPER(.Controls[nControlLoop].BaseClass) = 'PAGE' && 看有幾種就放幾種 ,還是用 (.Controls[nControlLoop].CONTROLCOUNT>1
chkall( .Controls[nControlLoop] ) &&--遞迴檢查
ENDcase
NEXT
ENDWITH
ENDIF
|
_________________
利用>>搜尋<<的功能會比問的還要快得到答案. |
|
| 回頂端 |
|
|
syntech
註冊時間: 2003-05-16
文章: 4252
來自: Taipei,Taiwan
第 6 樓
|
| 發表於: 星期一 三月 20, 2006 11:19 am 文章主題: |
|
|
討論以清楚明瞭為主,怎麼最佳化,端看個人造詣,
能抓老鼠就是好貓,
何況有 catjoke 兄 會幫忙作品種改良. 
_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
| 回頂端 |
|
|
行者孙
註冊時間: 2006-03-11
文章: 43
第 7 樓
|
| 發表於: 星期一 三月 20, 2006 2:17 pm 文章主題: |
|
|
declare string GBtoBIG5 in gb2big.dll string
CREA CURS kjsl(kjname C(254))
iNSE INTO kjsl(kjname) VALUES('thisform')
do while !EOF()
nRECN=RECNO()
kjmc=alltrim(kjname)
=AMEMBERS(aval,&kjmc,2)
if type('aval')<>'U'
FOR EACH cval IN aval&&aval控件名称数组，cval数组值
iNSE INTO kjsl(kjname) VALUES(kjmc+'.'+cval)
ENDFOR
endi
RELEASE aval
GO nRECN
skip
endd
**以下是更改caption属性字体
FOR i=1 TO recc()
go i
kjmc=alltr(kjname)
if type('&kjmc'+'.caption')<>'U'
kj=kjmc+'.caption'
&kj=GBtoBIG5(&kj)
ENDIF
endf
这是我写的在程序里动态转换编码，其中遍历控件部分支持无限级控件嵌套。
resize的写法好像不支持无限级控件嵌套，没仔细看！
_________________
╭⌒╮VFP应用程式算法群 12787940¤╭⌒
╭http://hi.baidu.com/myvfp/blog
,︶︶︶︶,""︶~~ ,""~︶︶ ,""
╱◥█◣ ╱◥█◣
︱田︱田︱︱田︱田︱
╬╬╬╬╬╬╬╬╬╬╬╬╬╬╬╬╬╬
http://hi.baidu.com/myvfp/blog |
|
| 回頂端 |
|
|
行者孙
註冊時間: 2006-03-11
文章: 43
第 8 樓
|
| 發表於: 星期一 三月 20, 2006 3:26 pm 文章主題: |
|
|
不可能的，我就是因为resize类不支持Container和pafegram等，我自己才写的这段代码，我写的这段代码连OLE控件都不会放过，你浏览下生成的表就知道了！
_________________
╭⌒╮VFP应用程式算法群 12787940¤╭⌒
╭http://hi.baidu.com/myvfp/blog
,︶︶︶︶,""︶~~ ,""~︶︶ ,""
╱◥█◣ ╱◥█◣
︱田︱田︱︱田︱田︱
╬╬╬╬╬╬╬╬╬╬╬╬╬╬╬╬╬╬
http://hi.baidu.com/myvfp/blog |
|
| 回頂端 |
|
|
行者孙
註冊時間: 2006-03-11
文章: 43
第 9 樓
|
| 發表於: 星期一 三月 20, 2006 4:03 pm 文章主題: |
|
|
俺是生生
有意可加入我的VFP应用程式算法群
OICQ群号是：12787940
_________________
╭⌒╮VFP应用程式算法群 12787940¤╭⌒
╭http://hi.baidu.com/myvfp/blog
,︶︶︶︶,""︶~~ ,""~︶︶ ,""
╱◥█◣ ╱◥█◣
︱田︱田︱︱田︱田︱
╬╬╬╬╬╬╬╬╬╬╬╬╬╬╬╬╬╬
http://hi.baidu.com/myvfp/blog |
|
| 回頂端 |
|
|
catjoke
註冊時間: 2003-06-16
文章: 175
來自: 香港
第 10 樓
|
| 發表於: 星期一 三月 20, 2006 4:12 pm 文章主題: |
|
|
還是行者孫 更勝一籌!
之前我做的是:
Grid -> ColumnCount -> Columns[ix]
CommandGroup, OptionGroup -> ButtonCount -> Buttons[ix]
PageFrame -> PageCount -> Pages[ix]
FormSet, _Screen -> FormCount -> Forms[ix]
Container, Control, Form, Page, Toolbar, Column -> ControlCount -> Controls[ix]
用一個 DO CASE, 把一切分門別類, 最後 OTHERWISE 做 ControlCount 就不用 點數了..
現在改用 FOR EACH, 那就不用提 XXXCount, 更加方便!
無論如何, 樓主亦學懂了不少, 知道俱體方向去處理!
其實更重要的是知道怎用 "help" 檔, 把它們一一列出來, 這樣才會 萬無一失,
全在自己掌握之內..
你又知不知, 怎樣可以把上列各種 Container 一一列出來呢!?
除了用 IF PEMSTATUS(cObject, [Setall], 5) 可以把 Container 揪出來,
還有甚麼方法可以知呢!? 我指的不是要檢查 baseclass 是那一個....
而是像 PEMSTATUS(cObject, [Setall], 5), 一個簡單 運算式就能把它拿出來! 
不准使用: INLIST(Baseclass, [xxx], [yyy]...) 或 baseclass $ [.....]
運算式內也沒有 baseclass 的!!
提示: 仍是使用 PEMSTATUS...
_________________
喵喎~ 貓當然是 "茅" 的嘛! ^0^; |
|
| 回頂端 |
|
|
syntech
註冊時間: 2003-05-16
文章: 4252
來自: Taipei,Taiwan
第 11 樓
|
| 發表於: 星期一 三月 20, 2006 5:03 pm 文章主題: |
|
|
QQ 實在超難註冊的.....
_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
| 回頂端 |
|
|
|
|
您 無法 在這個版面發表文章
您 無法 在這個版面回覆文章
您 無法 在這個版面編輯文章
您 無法 在這個版面刪除文章
您 無法 在這個版面進行投票
您 無法 在這個版面附加檔案
您 無法 在這個版面下載檔案
|
|
常見問題
搜尋
會員列表
會員群組
會員註冊
個人資料
登入檢查您的私人訊息
登入
