Visual Basic 2005. Salvar archivos desde Visual Basic.

[danger_cris]

Iniciado por moradazo

Gracias David la primera Duda:

Estoy inicialmente probando con FindWindow, esta es la funcion:

<System.Runtime.InteropServices.DllImport("user32. dll")> _
Private Shared Function FindWindow( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) As System.IntPtr
End Function

lpClassName: Nombre de la clase de la ventana a buscar. Si no se va a pasar el nombre de la clase ponga una cadena nula (vbNullString)

lpWindowName: Texto del titulo de la ventana a buscar. Si no se pasa el título, debe pasar una cadena nula (vbNullString).

Esta funcion si encuentra la ventana devuelve el manipulador de la misma, sino devuelve un 0.

Este texto lo encontré en este link:

_http://www.silared.com/usuarios/vbasic/api/Funciones/FindWindow.htm

Pero aún no comprendo como puedo hacer que el otro programa sea activa con mi aplicación. Tengo una situación que no se si es un problema: Según leí hay que escribir el nombre del archivo exacto como viene en la parte de arriba para que el programa lo busque y se pueda trabajar en él, lo que pasa es que al abrir un archivo, cambia de nombre asi:




Si me pueden dar una mano en este tema que me parece muy interesante tanto para mi conocimiento como para el de todos. Gracias.

hola que tal he estado leyendo mucho este post y me ha servido de muchisima ayuda yo me encuentro con un problema similar, pero si me podrias ayudar copie el codigo que mostraste para obtener el handle de la ventana y ya lo he logrado me devuelve el codigo de la ventana pero al momento de hacer la funcion show Window se me cierra el programa.....

lo he dejado asi....::

Código PHP:

   <System.Runtime.InteropServices.DllImport("user32.dll")> _
    'obtener el handle de la ventana
    Private Shared Function FindWindow( _
    ByVal lpClassName As String, _
    ByVal lpWindowName As String) As System.IntPtr
    End Function

    'mostrar la ventana
    <System.Runtime.InteropServices.DllImport("user32.dll")> _
    Private Shared Function ShowWindow( _
    ByVal hWnd As Long, _
    ByVal nCmdShow As Long) As System.IntPtr
    End Function  
   

y aqui pongo como invoco estos eventos desde un boton:::

Código PHP:

          Dim Hndl As Long
        Hndl = FindWindow(Act, nom)
        retval = ShowWindow(Hndl, 3)  
   

el find window lo hace sin problemas pero el show window me cierra la aplicacion que estoy haciendo mal si me pudieran ayudar..

muchas gracias....