How do I create command buttons on the fly?

If you want to add a CommandButton, at runtime, use this code.

Private Sub Command1_Click()

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

End Sub

[parksie]

clever, meg - much better than mine!

pause while I file it away for future reference...

Keep in mind, this only works in VB6. If you do not have VB6, you can always load them from a Control Array, so you need at least 1 instance of it on the Form and make sure that the Index is set to 0.

Private Sub cmdButton_Click()

   Load Comand1(1)
   Command1(1).Move 0, 0
   Command1(1).Caption = "My Button"
   Command1(1).Visible = True

End Sub

[waheed]

thanxs all for the replay, now i can go 2 sleep......at last

[parksie]

why - what's your time there?

It's pretty confusing when you have so many people in so many different time zones.

[parksie]

yeah, it gets tricky after a while, but if you get your TZ settings on your profile right, it's not so bad. however, when my outlook inbox says that I received the notification at 3 in the morning I get confused then when the thread says it was a different time!

[Mih_Flyer]

Thats right guys, the same thing in here too

[nitrolic2]

Hmmm. pretty good you guys but I dont know what kind of program you want but if you want a button to appear when some one else clicks another button (or does anything else) then

Private Sub Form_load()
Command1.visible=false
end sub

Private Sub Command2_click()
Command2.visible = true
end sub


THATS THE CHEAP WAY TO DO IT BUT IT TAKES LESS CODE!

IF YOU CAN'T DO IT, FIND A WAY AROUND IT!

But that way, you have already created it. In my method above, you create it from scratch.

[parksie]

er...nitrolic2...if you make command2 visible when you click on it you can't click on it - invisible objects don't receive events.