Adicionar comando OnClick em um Xcontrol

#1

Bom dia srs

É possível adicionar um comando Onclick em um Xcontrol?

Eu desenvolvi um botão em Xcontrol, porém estou tentando fazer com que cada botão exiba um MsgBox diferente quando clicado, se alguém me ajudar agradeço

Desde já agradeço

#2

Bom dia Vitor,

Não é possível inserir o script na instância, este tipo de evento deve ser criado dentro do XControl.
Uma alternativa seria adicionar o script no botão do XControl, e criar uma propriedade para diferenciar a mensagem a ser exibida.
No exemplo abaixo foi criada a propriedade Comportamento, dependendo do valor setado na instância, uma mensagem diferente será exibida:

Sub CommandButton1_Click()
Select Case XControl1.Comportamento
    
    Case 1
      MsgBox "Case1"
    Case 2
      MsgBox "Case2"
    Case 3
      MsgBox "Case3"
    Case 4
     MsgBox "Case4"
    Case 5
      MsgBox "Case5"   
  End Select
	
End Sub