Neste exercício, vamos programar a opção de copiar as configurações de uma bomba e passá-las para as demais bombas usando o botão direito do mouse.

1.Crie um Tag Interno no Viewer chamado "CopiarBomba".

2.No XControl XC_Bomba, selecione o grupo com a imagem da bomba e insira o script a seguir no evento MouseDown.

If Button = 2 Then 'Clique com o botão direito do mouse
  If TypeName(Application.Item("CopiarBomba").Value) = "Empty" Then
    Menu = "Copiar"
  Else
    Menu = "Copiar|Colar"
  End If
 
  opcao = Application.SelectMenu(Menu)
  If opcao = 1 Then 'Copiar
    'Salva as informações no Tag do Viewer
    Dim arr(2)
    arr(1) = XC_Bomba.Fonte.Estado
    arr(2) = XC_Bomba.Fonte.Velocidade
    Application.Item("CopiarBomba").Value = arr
  ElseIf opcao = 2 Then 'Colar
    'Passa as informações do Tag do Viewer para DadosBomba
    arr = Application.Item("CopiarBomba").Value
    XC_Bomba.Fonte.Estado = arr(1)
    XC_Bomba.Fonte.Velocidade = arr(2)
  End If
End If

3.Salve as modificações e registre a biblioteca.

4.Execute a aplicação e teste a nova funcionalidade.