實(shí)例代碼:
//在picture1上面添加一個(gè)commandbutton
PrivateSubForm_Load()
Form1.Controls.Add"VB.CommandButton","cmdOk",Picture1//動態(tài)添加控件
WithForm1.cmdOk
.Visible=True
.Width=500
.Caption="確認(rèn)(&Y)"
EndWith
EndSub
實(shí)例代碼:
//在picture1上面添加一個(gè)commandbutton
PrivateSubForm_Load()
Form1.Controls.Add"VB.CommandButton","cmdOk",Picture1//動態(tài)添加控件
WithForm1.cmdOk
.Visible=True
.Width=500
.Caption="確認(rèn)(&Y)"
EndWith
EndSub