 |
VFP 愛用者社區
本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
| 上一篇主題 :: 下一篇主題 |
| 發表人 |
內容 |
sheuok
註冊時間: 2004-11-20
文章: 63
來自: Taiwan
第 1 樓
|
 發表於: 星期三 一月 09, 2008 8:16 am 文章主題: 請問一下! |
 |
|
請問一下,Foxpro是否有內建函數或指令可以達到以下自定函數的功能?謝謝大家!
Messagebox(uf_物件全名稱(This)) &&-可以取該物件的全名稱的字串
Func uf_物件全名稱(lp_para1)
uc_物件全名稱=''
Do While lp_para1.BaseClass#"Form"
uc_物件全名稱=lp_para1.Name+Iif(!Empty(uc_物件全名稱),".",'')+uc_物件全名稱
lp_para1=lp_para1.Parent
Enddo
Return(Thisform.Name+Iif(!Empty(uc_物件全名稱),".",'')+uc_物件全名稱)
Endfunc |
|
| 回頂端 |
|
 |
garfield
Site Admin
註冊時間: 2003-01-30
文章: 2160
第 2 樓
|
| 發表於: 星期四 一月 10, 2008 9:53 am 文章主題: |
|
|
延伸 Jack許的答案以利搜尋
VFP9 可用 STREXTRACT(SYS(16,1), ' ',' ') 取得物件全名 fullobjectname
_________________
利用>>搜尋<<的功能會比問的還要快得到答案. |
|
| 回頂端 |
|
|
sheuok
註冊時間: 2004-11-20
文章: 63
來自: Taiwan
第 3 樓
|
| 發表於: 星期四 一月 10, 2008 12:08 pm 文章主題: |
|
|
| garfield 寫到: | 延伸 Jack許的答案以利搜尋
VFP9 可用 STREXTRACT(SYS(16,1), ' ',' ') 取得物件全名 fullobjectname |
經測試 Program()與STREXTRACT(SYS(16), ' ',' ') 可以得到相同的結果
謝謝您! |
|
| 回頂端 |
|
|
|
|
您 無法 在這個版面發表文章
您 無法 在這個版面回覆文章
您 無法 在這個版面編輯文章
您 無法 在這個版面刪除文章
您 無法 在這個版面進行投票
您 無法 在這個版面附加檔案
您 無法 在這個版面下載檔案
|
|
常見問題
搜尋
會員列表
會員群組
會員註冊
個人資料
登入檢查您的私人訊息
登入
