Visual Basic - Abrir sitio web desde un boton en Visual Basic 6

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 1
Ha disminuido su posición en 15 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Abrir sitio web desde un boton en Visual Basic 6

Publicado por Ivan (1 intervención) el 05/09/2018 06:05:52
Buenas noches

Me encuentro en un dilema al abrir un sitio web con un boton en Visual Basic 6; explicare un poco de lo que necesita el usuario

Se tiene un aplicativo en VB6 que genera registros en una tabla y tambien se tiene un sitio web el cual en la URL recibira el ID del registro de la tabla generando un reporte . Mi codigo que tengo para abrir una URL cual sea funciona exepto con la que yo uso.

Un ejemplo de la URL es
https://paginanombre.empresa.com.mx/sistema/generapdfrem.php?folio_num=445

El 445 se genera desde VB6

Desde VB6 intento abrirla con el evento click de un boton

URL = "https://paginanombre.empresa.com.mx/sistema/generapdfrem.php?folio_num="
URLrem = ""
URLrem = TboxID
Shell "explorer " & URL & URLrem, vbNormalFocus



En el caso mi URL solo me abre una ventana del explorador de Windows en mi PC; probe con otras URL y si las abre en el navegador
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
Imágen de perfil de Cris
Val: 405
Bronce
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Abrir sitio web desde un boton en Visual Basic 6

Publicado por Cris (12 intervenciones) el 11/09/2018 21:48:31
Hola,

Tengo éste código que espero te ayude.


1
2
3
4
5
6
7
8
9
Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
 
Const SW_NORMAL = 1
 
Private Sub Label1_Click()
Dim X
X = ShellExecute(Me.hwnd, "Open", "http://www.lapaginaquequieresabrir.com", &O0, &O0, SW_NORMAL)
End Sub


Un saludo,
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