Como adicionar dinamicamente controlos ActiveX que requerem licenças de tempo de execução no Visual Basic .NET ou no Visual Basic 2005

Voltar ao topo

Criar um novo Visual Basic .NET ou Visual Basic 2005 Project

1. Clique em Iniciar , aponte para Todos os programas , aponte para Microsoft Visual Studio .NET ou Microsoft Visual Studio 2005 e, em seguida, clique em Microsoft Visual Studio .NET ou Microsoft Visual Studio 2005 .
2. No menu ficheiro , aponte para Novo e, em seguida, clique em projecto .
3. Na caixa de diálogo Novo projecto , clique em Projectos do Visual Basic em Project Types , clique em Windows Application em Templates e, em seguida, clique em OK .
   
   Nota No Visual Studio 2005, clique em Visual Basic em Project Types .

Voltar ao topo

Criar ActiveX Interop Assemblies

1. Clique em Iniciar , aponte para Todos os programas , aponte para Microsoft Visual Studio .NET ou Microsoft Visual Studio 2005 , aponte para Ferramentas do Visual Studio .NET ou Visual Studio 2005 Tools e, em seguida, clique em linha de comandos do Visual Studio .NET ou Visual Studio 2005 linha de comandos .
2. Para criar as assemblagens de interoperabilidade dois tem de ter, escreva o seguinte comando:
   /out:C:\temp\AxMyProject.dll aximp "C:\Windows\System32\MyProject.ocx"
   AxMyProject.dll destina AxHost Interop. MyProject.dll é para interoperabilidade.

Voltar ao topo

Criar dinamicamente o controlo

1. No menu projecto , clique em Add Reference .
2. Clique em Procurar e, em seguida, seleccione as assemblagens de interoperabilidade de controlo ActiveX que acabou de criar (devem estar em C:\Temp).
3. Adicionar AxMyProject.dll e MyProject.dll; adicionar estes ficheiros copia-os localmente.
4. Adicione um controlo de botão ao formulário.
5. Faça duplo clique no botão para localizar o código para o método de Evento de clique do botão .
6. No método de Evento de clique do botão , cole o seguinte código:

     Dim myControl As New AxMyProject.AxMyLicensedControl()
   						

   este cria uma nova instância do controlo através do AxHost.
   
   Nota : não criar uma instância nova controlo através do COM (MyProject.MyLicensedControl novo), porque este não funcionará no formulário e não pode adicionar facilmente a licença.

Voltar ao topo

Adicionar a licença do controlo

1. Determinar e anote a chave de licença de tempo de execução para o controlo. Para MyLicensedControl , a chave de licença é "gnvlslnjskvlmlgnnimh".
2. No método de Evento de clique do botão , cole o código seguinte abaixo Dim myControl como novo AxMyProject.AxMyLicensedControl() :

           Dim f As System.Reflection.FieldInfo
           f = GetType(AxHost).GetField("licenseKey", _ 
               Reflection.BindingFlags.NonPublic _ 
               Or Reflection.BindingFlags.Instance)
           f.SetValue(myControl, "gnvlslnjskvlmlgnnimh")
   					

   este código insere o controlo a licença de tempo de execução. -Cria uma instância de FieldInfo , que faz parte de saco da propriedade OCXState . Este conjunto de propriedades está repleto de informações de controlo de ActiveX específicas. Neste caso, está a obter o campo licenseKey e defini-la para myControl . Terá de o fazer para cada instância de qualquer controlo ActiveX que requer uma licença de tempo de execução.

Voltar ao topo

Adicionar o controlo para o formulário

1. Adicione o controlo à colecção de controlos do formulário e, em seguida, mostrar o controlo. Para efectuar este procedimento, pode utilizar o seguinte código:

           Controls.Add(myControl)
           myControl.Show()
   						

   colar este código de método de Evento de clique do botão , depois de "f.SetValue (myControl,"gnvlslnjskvlmlgnnimh")" e antes da linha "End Sub".
   
   Nota : Se a licença não é adicionada ao controlo e a licença é necessária, Controls.Add falhará. Controls.Add executa o código que contém esse validação da licença. Quando tentar e executar Controls.Add , verá o seguinte erro no modo de depuração:
   Uma excepção não processada do tipo 'System.ComponentModel.LicenseException' Ocorreu no system.windows.forms.dll informações adicionais: não tem uma licença para utilizar este controlo ActiveX.
   Ou, no momento da execução, poderá ver a seguinte mensagem de erro semelhante:
   Ocorreu uma excepção não processada na aplicação. Não tem uma licença para utilizar este controlo ActiveX.
2. Prima F5 para executar o projecto.
3. Clique no botão para adicionar o controlo ActiveX ao formulário.

Voltar ao topo

Resolução de problemas

• Tem de adicionar a licença cada ocorrência de cada ActiveX controlo requer uma licença de tempo de execução. Por exemplo, se criar uma segunda instância do MyLicensedControl , terá de adicionar também a licença essa instância.
• Certifique-se que tem a chave de licença correcto para o controlo. Determinar a chave de licença correcto é específica para o controlo: Para obter informações adicionais sobre como determinar a chave, clique no número de artigo existente abaixo para visualizar o artigo na base de dados de conhecimento da Microsoft:
  151771  (http://support.microsoft.com/kb/151771/EN-US/ ) LICREQST.EXE pedir uma chave de licença a partir de um objecto
  Em alternativa, pode utilizar Licenses.Add para o controlo no Visual Basic 6 num computador que tem a licença no registo. Licenses.Add devolve a licença de tempo de execução adicioná-lo como uma cadeia; em seguida, pode utilizar Debug.Print para obter a chave de licença.

Voltar ao topo