Mensajes

[Error]

A mi me funciona bien. Pero a ver vamos por paso:

1. Creas proyecto DLL ActiveX con un módulo de clase llamado clsErrorReporter.

2. Al proyecto lo llamas Error. No el nombre del archivo sino del proyecto, porque ese es el nombre con el que lo registra.

3. Propiedad Instancing de la clase a Multiuse, creas el procedimiento.

4. Compilas y ejecutas el código desde el otro programa en el evento Load del formulario.

Verifica lo del nombre del proyecto, es muy probable que sea eso.

Saludos.

Bueno veo que con GetObject no funciona  , pero debería. Modifiqué el código usando CreateObject para que cree el objeto desde el registro.

Por si no está registrada primero usa el programa REGSVR32 que se utiliza para registrar componentes ActiveX y está en todas las máquinas con Windows 95 o superior.

Código [Seleccionar] Expandir


Private Sub Form_Load()
        Dim oErrorDll As Object
 
  Call Shell("regsvr32.exe /s C:\error.dll")
 
  Set oErrorDll = CreateObject("Error.clsErrorReporter")
 
  Call oErrorDll.CriticalError
End Sub


La nomenclatura siempre es la misma para las clases en el registro:

NombreDll.NombreObjeto

Saludos.

Proyecto->Agregar módulo de clase

Al módulo de clase lo llamas ErrorReporter. Dentro del módulo sopongamos que escribis la función CriticalError. Entonces compilas la DLL y para llamar a la función usás el siguiente código:

Código [Seleccionar] Expandir


Private Sub Form_Load()
        Dim oErrorDll As Object

  Set oErrorDll = GetObject("c:\error.dll", "ErrorReporter")

  Call oErrorDll.CriticalError
End Sub


Y así debe funcionar, el error que se produjo fue porque el módulo de clase no existía o su propiedad Instancing no estaba establecida a 5-MultiUse.

Saludos.

Con la función GetObject podés crear dinánimacamente objetos desde un archivo.

Código [Seleccionar] Expandir


        Dim oObject As Object

  Set oObject = GetObject("C:\MyLibreria.dll", "Class1")


También se pueden crear documentos de Word o Excel o cualquier archivo preparado para automatización.

Saludos.

Creas un archivo de recursos, después guardas un ícono en el archivo y con la función LoadResPicture cargas el recurso especificando el identificador.

El identificador es un valor de tipo numérico o de cadena que viene a ser el nombre de un recurso. En el caso de las tablas de cadenas siempre es un número.

Por ejemplo el siguiente código cargaría un ícono dependiendo de un estado determinado

Código [Seleccionar] Expandir


Const STATUS_BUSY = 1
Const STATUS_FREE = 2
Const STATUS_WAIT = 3

Sub LoadIcon(Status As Integer)
      Dim csPicture As IPictureDisp
      Dim sRsrc$

  Select Case Status
    Case STATUS_BUSY: sRsrc = "ICON1"
    Case STATUS_FREE: sRsrc = "ICON2"
    Case STATUS_WAIT: sRsrc = "ICON3"
  End Select
 
  Set csPicture = LoadResPicture(sRsrc, vbResIcon)
End Sub


Saludos.

No creo que cambiandole el ícono al formulario funcione porque cambia el handle.

Lo mejor es eliminar el ícono (en este caso procedimiento NoIcono) y volver a crearlo (procedimiento Icono), sólo modificas un poco el procedimiento anterior para que le pase el handle al ícono que va a usar (propiedad Handle del objeto Icon del formulario o cualquier objeto IPictureDisp). El icono lo podés cargar desde un archivo o bien desde un recurso, que esto último es lo que se debería hacer.

El Timer sí sigue funcionando de la misma manera ya que es un mensaje que se le envía a la ventana y la ventana existe, sólo que está oculta.

Saludos.

Si vas a hacer lameradas te lo curras solo.

También podrías usar Replace$:

Código [Seleccionar] Expandir


sData=Replace$(sData, Chr$(34), vbNullString)


Saludos.

[Mandar emails por SMTP]

Mandar emails por SMTP

Lee los post pegados que por algo están ahi.

Saludos.

Si querés que borre los datos del archivo existente lo abres de la siguiente manera:

Código [Seleccionar] Expandir


Open "C:\file.txt" For Output As #1


Saludos.