Cita:
Iniciado por srdreiker
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.