Ver Mensaje Individual
  #3 (permalink)  
Antiguo 08/11/2008, 02:48
Avellaneda
Colaborador
 
Fecha de Ingreso: enero-2008
Ubicación: Unas veces aquí, otras veces allí
Mensajes: 1.482
Antigüedad: 17 años, 3 meses
Puntos: 37
Respuesta: Codigo para un option.

Cita:
Iniciado por srdreiker Ver Mensaje
Hola estoy haciendo un programa sencillo que por medio de este código en un botón de opción incluyo algunos valores y que al hacer clic sobre uno de estos aparezca una imagen pero si lo desactivo la imagen desaparezca y no muestre nada.
Este es el código:

Private Sub Option1_Click()
If Option1.Value = True Then
Image2.Picture = _
LoadPicture("G:\VISUALBASIC\actividad3visualbasic\ pc.bmp")
Image2.Visible = True
End If
If Option1.Value = False Then
Image2.Visible = False
End If
End Sub

Si alguien sabe ayudenme.
Hola,
no funciona porque al hacer click en el OptionButton su valor siempre es True, y solamente será False cuando se seleccione otro control OptionButton.

sería algo así:

Código:
Private Sub Option1_Click()
Image2.Picture = _
LoadPicture("G:\VISUALBASIC\actividad3visualbasic\ pc.bmp")
Image2.Visible = True
End Sub

Private Sub Option2_Click()
Image2.Visible = False
End Sub
Si tienes mas controles OptionButton en el formulario, tendrás que poner en cada uno de ellos el mismo código que en Option2.