Hola, lo primero para vincular el archivo a la aplicacion tienes que guardar en el
registro de windows un valor en: HKEY_CLASSES_ROOT\*.mmm (aquí va la extensión que
vas a asociar)\Shell\Open\Command y haciendo doble clic sobre el valor (Predeterminado)
escribes: C:\MiPrograma\Miprograma.exe %1 con ese %1 lo que haces es enviarle al
programa una copia de la ruta de acceso del archivo que se ejecutó. Ahora lo que
tienes que hacer es tan pronto se ejecute tu programa, puede ser en el evento load
del formulario principal utilizar un comando que viene incluido en VB que es Command$.
Con este comando puedes interceptar la ruta de acceso que te envía Windows y ya con
esta puedes hacer lo que quieras con el archivo: como abrirlo con Open.... cargar la
información, lo que necesites hacer con él. Por ejemplo:
Código:
Private Sub Form_Load()
Dim Arg as String
Arg = Command()
End Sub Por último para asociarle un ícono a esa extensión entonces: debes crear un valor en:
HKEY_CLASSES_ROOT\*.mmm (aquí va la extensión que vas a asociar)\DefaultIcon y en
(Predeterminado) hacer doble clic y colocar: C:\MiPrograma\MiPrograma.exe,0
PD: No olvides reemplazar C:\MiPrograma\MiPrograma.exe por la ruta de tu programa.
Debes crear cada una de las claves en el registro que no aparescan como por ejemplo
DefaultIcon o Shell\Open. En el caso del icono hay un número después de la coma ese
número se refiere al icono que está dentro del programa y que corresponden a cada
uno de los íconos que tengan las diferentes ventanas o formularios de este. Siempre
empieza con 0. También puedes crear una dll con todos los iconos y colocar en
(Predeterminado): C:\MiPrograma\MiDll.dll,0.
Espero que te sirva. Un saludo.