Foros del Web » Programación para mayores de 30 ;) » Programación General » Visual Basic clásico »

Ayuda:Menú desplegable con botón que abra url al item seleccionado

Estas en el tema de Ayuda:Menú desplegable con botón que abra url al item seleccionado en el foro de Visual Basic clásico en Foros del Web. Necesito ayuda, uso el visual basic 2010 express y quiero hacer lo siguiente. Un menu desplegable, al abrir seleccionar una opción pondre 6 o 7 ...
  #1 (permalink)  
Antiguo 22/09/2012, 05:06
 
Fecha de Ingreso: septiembre-2012
Mensajes: 4
Antigüedad: 12 años, 1 mes
Puntos: 0
Ayuda:Menú desplegable con botón que abra url al item seleccionado

Necesito ayuda, uso el visual basic 2010 express y quiero hacer lo siguiente.

Un menu desplegable, al abrir seleccionar una opción pondre 6 o 7 y seleccionarla, y abajo un boton que pongar IR
y al pulsarlo redirrecione a una web en el navegador.

La estructura se hacerla pero no tengo ni idea de que codigo utilizar para relacionar el listbox con el boton y las url's

Gracias, un saludo
  #2 (permalink)  
Antiguo 25/09/2012, 03:23
Avatar de pkj
pkj
 
Fecha de Ingreso: julio-2006
Ubicación: Órbita sincrónica
Mensajes: 899
Antigüedad: 18 años, 3 meses
Puntos: 29
Respuesta: Ayuda:Menú desplegable con botón que abra url al item seleccionado

En vb2010 no se como se hace exactamente, pero la idea es simple:
Crea un desplegable o listbox invisible (o una matriz) y lo cargas con las direcciones en el mismo orden que las opciones del primer desplegable y usa el index de primer desplegable para seleccionar el mismo elemento del segundo desplegable (listbox o matriz/array) y extraer la url.
Despues puedes usar shellexecute para ejecutar la url y que se cargue con el programa asociado:

Código vb2008:
Ver original
  1. Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Integer, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Integer) As Integer
  2.  
  3. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  4.  
  5.   Dim Resul As Integer
  6.   Resul = ShellExecute(Me.Handle.ToInt32, "Open", MATRIZ(INDICE), "", "", 1)
  7.  
  8. End Sub
__________________
No hay preguntas tontas, solo gente estup..., ¡No!, ¿como era? No hay gente que pregunte a tontos... ¡Nooo!... ¡Vaya cabeza!

Etiquetas: desplegable, item, seleccionado, url, visual
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 16:39.