programa vb, sobre la tecnología DDE
Puedes usar DDE, que puede enviar información entre dos programas
Las operaciones específicas son las siguientes:
' Cambie la propiedad "LinkTopic" del formulario principal a "FormDDE", cambie la propiedad "LinkMode"
' a "1 - Fuente" y agregue un control PictureBox como control ejecutable DDE. Nómbrelo picDDE
'picDDE.LinkTopic = "DDE1|FormDDE" DDE1 en esta línea de código es el nombre de su proyecto, cámbielo a su propio nombre o cambie su nombre a DDE1
'Finalmente, ingrese el siguiente código en el área de código del formulario:
Private Sub Form_ LinkExecute(CmdStr As String, Cancel As Integer)
'CmdStr se recibe información, aquí está el archivo abriste
'Aquí debes agregar el código para abrir el archivo, como llamar al método de apertura del archivo existente, etc.
Cancelar = Falso
End Sub
Sub enlace privadoAndSendMessage(ByVal Msg As String)
Atenuar mientras
picDDE.LinkMode = 0 '--
picDDE.LinkTopic = "DDE1LinkTopic = "DDE1|FormDDE" '--
PICDDE.LinkMode=0. |______ Conectar a Programa DDE y envía datos/parámetros
picDDE.LinkMode = 2 ' | "|" es el carácter de barra vertical, que es la "tecla de retroceso" al lado de la barra vertical,
picDDE .LinkExecute Msg ' -- en lugar de letras o números
t = picDDE.LinkTimeout ' --
picDDE.LinkTimeout = 1 ' |______ Terminar canal DDE LinkTopic = "" ' La línea se utiliza para borrar las propiedades del servidor DDE del programa recién ejecutado
Me.LinkMode = 0 ' De lo contrario se producirá un error al conectarse al programa DDE
If Command <> " ""Entonces p>
LinkAndSendMessage Command 'Enlace a DDE para aceptar el programa y enviar parámetros de línea de comando
End If
End 'Finalizar la ejecución del nuevo programa
Finalizar si
Finalizar sub