Sección de controles Ocx para Visual basic , Dll , Activex

22 - Módulo para asociar una extensión de archivo con nuestro programa

<Volver> - Anterior - Siguiente



 

 

Contenido:

 

 

 

 

 


Ejemplo 1

Módulo bas para poder asociar una extensión de archivo y que se abra con nuestro programa cuando lo ejecutamos

Este ejemplo que contiene un módulo que utiliza las funciones Api para el registro, y muestra como podemos asociar una extensión de archivo a nuestro programa.

El ejemplo de descarga, lo que hace es crear un archivo de extensión cualquiera , en este caso ".abc", y dentro de este archivo hay un texto en formato plano, es decir un txt común y corriente. Luego cuando se ejecuta el formulario, graba las entradas en el registro llamando a la función CrearAsociacion que tiene los siguientes parámetros:

CrearAsociacion "Ruta del exe", "extensión", "una descripcion", "Dll con el icono-opcional"

...en el código se explica el funcionamineto del mismo con algo mas de detalles.

En la misma carpeta, hay un archivo de ejemplo llamado archivo.abc, que contiene un texto, y una ves que se corrió el programa y se registró la extensión, cuando abramos este archivo, se abrirá con el programa de ejemplo que es un formulario con un control RichTextBox que carga el contenido del archivo .abc utilizando la función Command$ del Visual basic para leer la línea de comandos.

Nota: Lo que abría que agregarle al ejemplo , es que una ves que se registró la extensión, luego no se vuelva a ejecutar la función nuevamente.

En este enlace Asociar extensión , hay otro ejemplo que hice y es un poco mas simple

 

Descargar módulo con ejemplo

 


Ejemplo 2

Este es otro ejemplo similar, pero usa un módulo de clase para asociar la extensión.

Al módulo se le debe indicar los valores por ejemplo de la siguiente forma ( en este caso se asocia la extension .xxx para que se abra con el notepad )

 

Dim obj As New Class1


    ' extensión del archivo
    obj.Extension = ".xxx"
    obj.Title = "Titulo descriptivo de esta extension"
    ' ruta del ejecutable
    obj.AppCommand = "c:\windows\notepad.exe"
    ' icono
    obj.DefaultIcon = "C:\Windows\Notepad.exe,1"
    ' asociar la extension
    obj.Associate

    Set obj = Nothing  

 

Descargar módulo


Relacionados

 


Buscar en Recursos vb con Google