Ejemplos Visual Basic Active X

Utilización de componentes de ActiveX en Visual Basic 6.0

Para utilizar un componente ActiveX en Visual Basic 6.0, primero debe agregar una referencia al componente dentro de su proyecto de VB6.

Para agregar una "referencia", seleccione Proyecto -> Referencias ... desde el IDE de Visual Basic 6 y marque la casilla para el componente que se hace referencia, como se muestra a continuación:

A continuación, seleccione el componente que se hace referencia:

Crear el componente ActiveX dinámicamente en tiempo de ejecución

Para crear instancias de una nueva instancia de un componente ActiveX, utilice el "Nuevo" de palabras clave, como se muestra en el fragmento de código a continuación:

' Dim as New:
      Dim ftp As New ChilkatFtp2
      
      ' Alternatively, Dim and instantiate later:
      Dim x as ChilkatFtp2
      Set x = New ChilkatFtp2

Dim un componente ActiveX con eventos

Si sus aplicaciones tiene la intención de procesar las devoluciones de llamada de eventos disparados por un ActiveX, el componente debe ser declarado "WithEvents", como se muestra a continuación:

' Note: The WithEvents can only appear in the declaration
  	' section of a module, and cannot be local to a procedure.
  	' Also, it cannot be used with the "New" keyword.
  	' The object creation must occur in a separate step, typically
  	' in the Form load.
  	Dim WithEvents ftp As ChilkatFtp2

  	Private Sub Form_Load()
  	    Set ftp = New ChilkatFtp2
  	End Sub

Cómo agregar un evento de devolución de llamada de función ActiveX en Visual Basic 6.0

Cableado del ActiveX para los eventos es fácil. En primer lugar, mostrar la "Vista de código" en el IDE de Visual Basic 6 y seleccione el objeto que ya ha declarado "WithEvents", como se muestra a continuación:

A continuación, seleccione el evento:

Visual Basic generará automáticamente el procedimiento de evento para usted. Aquí hay un evento de unos pocos VB6 procedimientos generados para el ActiveX Chilkat FTP2:

Private Sub ftp_AbortCheck(abort As Long)

  	End Sub

  	Private Sub ftp_PutProgress(ByVal pctDone As Long)

  	End Sub

Tenga en cuenta que los nombres de los procedimientos siguen un patrón: VARNAME _ EventName . Esto es importante. Si el nombre del procedimiento no es correcto, no va a ser llamado.