PB動態建立控制項

2021-08-11 08:36:05 字數 1375 閱讀 7179

第一種,直接建立(其實就是根據系統的類名建立)

commandbutton lbtn_new

lbtn_new = create commandbutton

lbtn_new.width = 300

lbtn_new.height = 100

lbtn_new.visible = true

lbtn_new.text = "new"

parent.openuserobject(lbtn_new,"commandbutton",this.x + 600 , this.y)

第二種,根據自己的類名建立

commandbutton lbtn_new

lbtn_new = create using "cb_1"

lbtn_new.text = " new cb_1"

parent.openuserobject(lbtn_new,"cb_1",this.x + 600 , this.y)

網上找的其他資料

動態建立一commandbutton,並使之能響應click事件

動態建立按鈕不難,如下

commandbutton mycmdbtn //宣告

openuserobject(mycmdbtn, "commandbutton", 100, 100) //建立

mycmdbtn.width = 600 //設定屬性

mycmdbtn.height = 150 

mycmdbtn.text = "這是乙個動態建立的控制項!" 

mycmdbtn.visible = true 

//放入父物件的子控制項佇列中

parent.control[ upperbound( parent.control ) + 1] = mycmdbtn 

但是:如何將乙個事件繫結給他呢?

方法一:建議不要直接使用commandbutton,先建乙個commandbutton類的物件,宣告乙個例項變數is_clickedevent,在其clicked事件中寫parent.dynamic event(is_clickedevent),建立後給is_clickedevent賦值。

方法二:視窗中的控制項發生行為時會向視窗傳送乙個wm_command的訊息(資料視窗的dddw除外),你可以在視窗上加入乙個pbm_command的事件,根據hwndchild(物件控制代碼)和notificationcode(存放通知代號,clicked為0)的不同寫不同的**。 

另外,忘了提一下,pbdesigner的第一種方法應改為parent.dynamic triggerevent(is_clickedevent),或postevent.

PB9 0動態生成控制項

在做畢業設計的時候,遇到了用核取方塊來顯示資料庫中的資訊,但是數量不能確定。因此,需要減低程式顯示時和資料庫的耦合度,讓程式自己可以根據資料庫的記錄的資訊數量變化自動適應。基於該需求用到了動態生成控制項。還是和之前一樣,知識內容都是一樣的,只是在使用的細節上的區別。根據資料視窗中符合要求的資料庫記錄...

PB如何實現動態建立選單

pb動態建立選單的步驟如下 1.建立模版選單 m template 2.a 在模版選單裡建立動態新增選單項的函式 funtion name of addmemu description 將模版選單項新增給指定的選單 argument menu am menu 新增選單 string as text ...

VB動態建立控制項

dim withevents mybtn as commandbutton set mybtn controls.add vb.commandbutton button1 with mybtn caption 我可以響應事件!width 1800 left 100 top 700 visible t...