Adding command buttons at Runtime

[andrew_waycott]

I am trying to write a database driven application which will have a different number of command buttons (from 0 - 20) depending on the result of database query. How can I add command buttons to a form at runtime?

Hi,

Put one CommandButton on your Form.
Give it the Index 0.
Load as many Buttons you like with

Load Command1(x)

Note: the loaded controls are initially invisible.

Regards
da_bob
_______________

[honeybee]

Andrew, if you are using VB5, the first reply answers your query. If you have VB6, however, you can add a control at runtime:

'Declarations section
Dim WithEvents newButton As CommandButton

Private Sub Form_Activate()
    Set newButton = Me.Controls.Add("VB.CommandButton", _
                    "Button1")
End Sub

Check out the MSDN help for adding controls dynamically. VB.CommandButton is the name of the class you are using, while Button1 will be the name of the command button.

Please reply if you have any doubts on this subject.

me again

I don't know anything about VB5 since I'm a programmer for 1.5 years only.
The disadvantage with your solution honeybee is that you don't have a benefit of adding the Buttons dynamically because
you need to declare the maximum number of Buttons you want to use in order to sink their events- this is not very dynamical.

Regards,
da_bob
____________

[HeSaidJoe]

'as per msdn  dynamically added command button

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

Here is a short and simple method.

Controls.Add "VB.CommandButton", "Button1"
Me!Button1.Move 0, 0
Me!Button1.Caption = "New Button"
Me!Button1.Visible = True

[honeybee]

Exactly, HeSaidJoe!

da_bob,
Remember, you can dynamically add controls, but not events. What we actually have to do is when we declare a CommandButton object with

Dim Withevents newCommandButton as CommandButton

we also have to declare any events that should be associated with the command buttons that we are going to add dynamically. It's similar to the method you use with control arrays. So you are wrong when you say that we need to declare the max. no. of buttons to add to sink in the events. There is only one event.

Sounds cool .
Could you give me a complete code-sample too?
I never managed to add a control array dynamically with the Controls.Add function.

Regards
da_bob
____________

[honeybee]

da_bob, sorry for the late reply. But you cannot add a control array by adding elements at runtime. See the thread on Setting Index Property of dynamically added controls in the General VB section for more details.