Two Controls, One Event

[gaouser]

Hi guys! its gaouser again, I was experimenting with the ScriptControl and managed a way to use dim withevents and .move () The scriptcontrol is at form1, the code i posted under is at form2, I .addobject the form2 to script control with members true, But after creating 2 buttons and 2 events, Only last button has event, I cant fix
I created this code:

Dim WithEvents button As VB.CommandButton

Private Sub button_Click()
Form1.ScriptControl1.Run (button.name & "_click")
End Sub
Sub moveobject(ByVal controlname As String, ByVal x As Integer, ByVal y As Integer)

  Dim targetControl As Control
    Set targetControl = Me.Controls(controlname)
    
    ' Check if the control with the given name exists
    If Not targetControl Is Nothing Then
        ' Set the position of the control
        targetControl.Left = x
        targetControl.Top = y
    Else
        ' Control with the given name does not exist
        MsgBox "Control with name " & controlname & " does not exist."
    End If
End Sub
Sub addbutton(ByVal name As String)

Set button = Controls.Add("VB.CommandButton", name, Form2)
button.Visible = True
End Sub

Private Sub Form_Load()

End Sub

[xiaoyao]

Dim WithEvents button1 As VB.CommandButton
Dim WithEvents button2 As VB.CommandButton
Set button1 = Controls.Add("VB.CommandButton", "btn1", Form2)
Set button2 = Controls.Add("VB.CommandButton", "btn2", Form2)

[OptionBase1]

Suddenly hungry for chocolate ice cream.

[gaouser]

uuh, The amount of buttons gonna be created isnt fix since user sets it

[gaouser]

how I managed to get 2 replys and 131 views

[ahenry]

A WithEvents variable is no different from any other VB variable - if you assign to it twice the old value is erased! Why would you expect it to trigger an event from a button that it isn't pointing to?

If you define your button control as a control array by setting the Index property, then you can add or remove your buttons as needed dynamically, and they will all share the same event handlers. This is probably what you want.

Otherwise if you want a single event handler routine for multiple buttons that aren't in a control array, you'd need a collection of classes that each have their own WithEvents variable.

[Shaggy Hiker]

how I managed to get 2 replys and 131 views

Most of the 'views' are bots crawling the forum. It means nothing. Some of the others are people who looked at the question and then got called away by an urgent phone call.

[gaouser]

"ugrent phone call" is a bit sus?

[VanGoghGaming]

You have a firm grasp of the obvious.

[Peter Porter]

Most of the 'views' are bots crawling the forum. It means nothing. Some of the others are people who looked at the question and then got called away by an urgent phone call.

"ugrent phone call" is a bit sus?

Not gonna ask Shaggy how he knows this?

The man is GOD!