Visual Basic - Archivos en mi programa

Life is soft - evento anual de software empresarial
 
Vista:

Archivos en mi programa

Publicado por fredy (4 intervenciones) el 06/07/2005 02:30:47
Hola,

estoy haciendo un programa para visualizar imagenes, pero necesito saber como se hace para que cuando se abra una imagen se abra en el programa que estoy haciendo como cuando un abre un archivo txt y se abre en el bloc de notas.

en lo que me puedan ayudar muchas gracias, suerte.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil
Val: 14
Ha aumentado 1 puesto en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

RE:Archivos en mi programa

Publicado por SuNcO (599 intervenciones) el 06/07/2005 04:27:30
No es algo facil.. bueno si pero es algo largo

Primero para darte una idea entra al registro de windows y ve a la clave :

hkey_classes_root\.txt ( checa que tiene un punto. antes de txt )

Si chechas a la derecha dice en Predeterminado "txtfile", ahora esa "txtfile" la buscas mas abajo, osea la vez en :

hkey_classes_root\txtfile

Dentro hay varios, ve al que dice :

hkey_classes_root\txtfile\open\command y a su derecha en Predeterminado vez el archivo que se va a correr y al final vez %1 osea el parametro

Ahora, tu lo que debes hacer es agregar una extension primero y luego su programa a ejecutar. Puedes ver lo mismo si buscas por ejemplo .zip para que veas com ose abre con el WinZip

Ok, ahora como agregarlo al registro de Windows ? Checa un ejemplo :

Dim El_Objeto As Object
Set El_Objeto = CreateObject("WScript.Shell")

El_Objeto.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\Mis Avisos", App.Path & "\" & App.EXEName & ".exe"

Set El_Objeto = Nothing

Para leer el parametro en tu programa es asi :

Private Sub Form_Load()
MsgBox Command
End Sub

Para ver mas cosas del registro checa en google "WScript RegWrite"
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar