|
VFP 愛用者社區 本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
上一篇主題 :: 下一篇主題 |
發表人 |
內容 |
CPS0204
註冊時間: 2014-08-24 文章: 441
第 1 樓
|
發表於: 星期五 五月 27, 2016 8:05 am 文章主題: 請問如何使用prg創建一個container (透過addobject) |
|
|
以下的SHOW_COMP1我可以建立一個主畫面的按紐,沒有問題!
我想建立一個container,然後在此當中,插入一個command 或text ?請問如何作
我想使用ADDOBJECT的方法!請前輩賜教謝謝
********************************
FUNCTION SHOW_COMP1
_SCREEN.ADDOBJECT('COMPTXT','cmdMyCmndBtn1')
return .t.
DEFINE CLASS cmdMyCmndBtn1 AS COMMANDBUTTON
CAPTION ='(test公司)'
LEFT = 1
TOP=25
WIDTH=260
FONTSIZE =13
HEIGHT = 30
VISIBLE=.T.
PROCEDURE CLICK
=MESSAGEBOX('你按左鍵')
ENDPROC
PROCEDURE RIGHTCLICK
=MESSAGEBOX('你已按右鍵')
ENDPROC
ENDDEFINE |
|
回頂端 |
|
|
garfield Site Admin
註冊時間: 2003-01-30 文章: 2157
第 2 樓
|
發表於: 星期五 五月 27, 2016 11:12 pm 文章主題: |
|
|
_SCREEN.ADDOBJECT('test','o_cnt')
_screen.test.visible = .t.
return .t.
DEFINE CLASS o_cnt AS container
width = 300
width = 200
PROCEDURE init
this.ADDOBJECT('COMPTXT','cmdMyCmndBtn1')
this.COMPTXT.visible = .t.
endproc
enddefine
DEFINE CLASS cmdMyCmndBtn1 AS COMMANDBUTTON
CAPTION ='(test公司)'
LEFT = 1
TOP=25
WIDTH=260
FONTSIZE =13
HEIGHT = 30
VISIBLE=.T.
PROCEDURE CLICK
=MESSAGEBOX('你按左鍵')
ENDPROC
PROCEDURE RIGHTCLICK
=MESSAGEBOX('你已按右鍵')
ENDPROC
ENDDEFINE _________________ 利用>>搜尋<<的功能會比問的還要快得到答案. |
|
回頂端 |
|
|
CPS0204
註冊時間: 2014-08-24 文章: 441
第 3 樓
|
發表於: 星期六 五月 28, 2016 3:01 pm 文章主題: |
|
|
可行,謝謝 |
|
回頂端 |
|
|
|
|
您 無法 在這個版面發表文章 您 無法 在這個版面回覆文章 您 無法 在這個版面編輯文章 您 無法 在這個版面刪除文章 您 無法 在這個版面進行投票 您 無法 在這個版面附加檔案 您 無法 在這個版面下載檔案
|
|