none
como hacer click en el boton de otro software con vb RRS feed

Todas las respuestas

  • Hola:

    Entiendo que lo que precisas es abrir oro programa desde el propio vb.net. Si es así, el siguiente código te abrirá el programa que desees, tienes que indicar la ruta donde se encuentre el otro programa.

    En el código siguiente tienes 2 ejemplos en uno, para abrir un programa alojado en tu pc o bien, para abrir uno que esté alojado en la web. El proceso busca si está instalado el Crystal reports. Adapta el ejemplo a tus necesidades

    Te pongo un ejemplo:

    Private Shared Sub ComprobarInstalaciónMotorInformes()
            Dim respuesta As DialogResult
            Dim RutaEjecutable As String = Application.StartupPath
    
            Dim rk3 As Microsoft.Win32.RegistryKey
            rk3 = Registry.CurrentUser.OpenSubKey("SOFTWARE\SAP BusinessObjects\Crystal Reports for .NET Framework 4.0", False)
    
            ' Si devuelve null es que la clave no existe
            If rk3 Is Nothing Then
                'MessageBox.Show("No existe esa clave")
                respuesta = MessageBox.Show("Necesita instalar el motor de informes 'Crystal Reports." & vbCrLf &
                                "¿Quiere proceder a su instalación?", "Financial System", MessageBoxButtons.OKCancel, MessageBoxIcon.Question)
    
                If respuesta = System.Windows.Forms.DialogResult.Cancel Then
                    Return
                Else
                    Dim proces As New Process()
                    'proces.StartInfo.FileName = RutaEjecutable & “\InstalacionCrystalReports\CRRuntime_32bit_13_0_17.msi”
                    proces.StartInfo.FileName = RutaEjecutable & "http://www.xxxxxxxx.es/Instaladores/InstalacionCrystalReports/CRRuntime_32bit_13_0_17.msi"
                    proces.Start()
                    proces.WaitForExit()
                    If proces.HasExited Then
                        respuesta = MessageBox.Show("El proceso de instalación del motor de informes Crystal Reports, finalizó correctamente." & vbCrLf &
                                                    "Pulse para continuar.", "xxxxxxx", MessageBoxButtons.OK, MessageBoxIcon.Information)
                    End If
                End If
            End If
    
        End Sub

    Un saludo.

    Gemma

    • Propuesto como respuesta Joyce_AC martes, 9 de mayo de 2017 14:42
    martes, 9 de mayo de 2017 5:58