Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés.
Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Iniciar sesión Cerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta

Visual Basic - propiedades de un label

Life is soft - evento anual de software empresarial
  Imprimir  
Vista:

propiedades de un label

Publicado por tono (33 intervenciones) el 20/04/2007 12:45:37
Hola a todos. Tengo una aplicación en visual de forma que cargo varios controles de la siguiente forma:

For indice=0 To NumeroControles

Load etiqueta(indice) ' creamos el control
etiqueta(indice).Visible = True ' lo hacemos visible

Next

Una vez cargado el control tengo el siguiente evento para que una vez que se pulse sobre uno de los labels pues aparezca una foto:

Private Sub etiqueta_Click(Index As Integer)

Dim MyValue
'Ejecutar el Archivo .EXE
variable = "C:\tono\cartelsevilla.gif"
MyValue = Shell("rundll32.exe url.dll,FileProtocolHandler " & variable, vbMaximizedFocus)

End Sub

El caso es que esto solo me funciona en el primer label, es decir, en etiqueta(0) si pincho encima pues se abre la foto, pero en los demás labels no pasa nada si pincho encima.

¿a qué es debido este mal funcionamiento? ¿qué estoy haciendo mal?

Un saludo y gracias.
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

RE:propiedades de un label

Publicado por Victor Tapia (41 intervenciones) el 20/04/2007 18:48:57
holas unas dudas..

1-. asumo que cada label esta asociado a una foto determinada.. cierto ?

2-. al pinchar sobre cualquier label que no sea el primero siempre te abre la 1° imagen, o no te abren ninguna?

si fuese ese el caso,, en alguna parte tenderi que haber algo como...

Private Sub etiqueta_Click(Index As Integer)

Dim MyValue

select case index
case 1
variable = "C:\tono\cartelsevilla.gif"
case 2
variable = "C:\tono\cartelitalia.gif"
case 3
variable = "C:\tono\cartelchile.gif"
end select

MyValue = Shell("rundll32.exe url.dll,FileProtocolHandler " & variable, vbMaximizedFocus)



End Sub

Me explico...
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