如何在form上動態生成button?

[orcale]

我要更根據不同條件在form上生成多個button.然後執行對應button的onclick
請大家提供思路?:)

[SoHo_Andy]

这样即可
Option Explicit
Private WithEvents btnObj As CommandButton

Private Sub btnObj_Click()
MsgBox "This is a dynamically added button."
End Sub

Private Sub Form_Load()
Set btnObj = Controls.Add("VB.CommandButton", "btnObj")
With btnObj
.Visible = True
.Width = 2000
.Caption = "Hello"
.Top = 1000
.Left = 1000
End With
End Sub

[golden24kcn]

一般只能用控件数组吧,这一点就不如delphi,它对于态生成的控件可以直接指定各个事件.

[chao778899]

up--： SoHo_Andy(冰) ( )