How do i delete a control?

[Thomas Halsvik]

I know how to create one. But deleting is harder. Can't find example code on it anywhere. Topic is little known probably.

Dim MyCmd As Control
Set MyCmd = Controls.Add("Forms.CommandButton.1")
MyCmd.left = 18
MyCmd.top = 50
MyCmd.width = 175
MyCmd.height = 20
MyCmd.Caption = "This iz fun. " & MyCmd.Name

I've tried
MyCmd.Delete
but only get an error 91.
Anyone know the answer?

[kedaman]

I hope i'm not talking bullcrap since i don't have vb6 and i can't create my controls in vb5 but you could try this:

Set MyCmd = Nothing

[Iain17]

I do belive that it is

Unload myCmd

Only works for controls created at runtime.

[Thomas Halsvik]

Still doesnt work. This is VBA in Office97. VB5 more or less.
The controll is created at runtime as described:

Dim MyCmd As Control

Private Sub UserForm_Click()
Set MyCmd = Controls.Add("Forms.CommandButton.1")
MyCmd.left = Rnd * 50
MyCmd.top = Rnd * 50
MyCmd.width = 20
MyCmd.height = 20
MyCmd.Caption = "Fun" & MyCmd.Name
End Sub

Private Sub UserForm_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 27 Then Unload MyCmd 'ESCAPE pressed
End Sub

When pressing Escape i get "Cannot load or remove object" runtime error 361.

[Iain17]

Sorry that is for unloading control array elements.

Give this one a whirl

Me.Controls.Remove ("myCmd")

[Chris]

Originally posted by Thomas Halsvik
know how to create one. But deleting is harder. Can't find example code on it anywhere. Topic is little known probably.

Dim MyCmd As Control
Set MyCmd = Controls.Add("Forms.CommandButton.1","<Control Name>")
MyCmd.left = 18
MyCmd.top = 50
MyCmd.width = 175
MyCmd.height = 20
MyCmd.Caption = "This iz fun. " & MyCmd.Name

I've tried
MyCmd.Delete
but only get an error 91.
Anyone know the answer?

I think you need to assign a name to the newly created CommandButton, else you can not remove the control with the Romove method.

Controls.Remove "<Control Name>"

[Thomas Halsvik]

Thanks. That last one worked. Strange how little there is to be found on the net about this subject.

Well. I'm happy. Now I have a new degree of freedom.

----------------------------------------------------
Question: How do u get lines in the posts?

[Chris]

just read this & you'll know how we did it.

http://forums.vb-world.net/index.php?action=bbcode

[Edited by Chris on 06-06-2000 at 02:34 PM]

[nvileka]

I pasted the code...It works fine...But I am not able to figure out how to use that Command Button.If I want to handle the Click Event, how do I do that....
thanks
Neelesh

[Iain17]

you have to dim myCmd as a command button and use the WithEvents Keyword.

Now you can program all of the events.

Dim WithEvents myCmd as CommandButton

[Chris]

Then you may need to change this one as well

Set MyCmd = Controls.Add("Forms.CommandButton.1") 

To

Set MyCmd = Controls.Add("vb.CommandButton",<Control Name>)

[Edited by Chris on 06-06-2000 at 09:56 PM]

[nvileka]

Still I am confused...
Could you please write code for just one event (with all the variables correctly defined)

thanks
neel

[Iain17]

Here we go then.

Declaring and Setting + Code for the click event.

[code]
'General Declaractions
Dim WithEvents myCmd As CommandButton

Private Sub Form_Load()

Set MyCmd = Controls.Add("Forms.CommandButton.1","myCmd")

End Sub

Private Sub myCmd_Click()

msgbox "Hello World"

End Sub