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
Vista:
Me gusta: Está pregunta es útil y esta clara
0
No me gusta: Está pregunta no esta clara o no es útil
 
Asunto:

propiedades de un label

Autor:tono (33 intervenciones)
Fecha: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.
Responder
información
Otras secciones de LWP con contenido similar...
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

RE:propiedades de un label

Autor:Victor Tapia (41 intervenciones)
Fecha: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...
Comentar