VFP 愛用者社區

CPS0204 · 註冊時間: 2014-08-24 文章: 441 第 1 樓

以下的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 · 發表於: 星期五五月 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 樓

可行,謝謝