Codigo para un option.

[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.

[David]

Debería funcionar, ¿produce algún error o algo así? ¿has comprobado que la ruta es correcta?.

[Avellaneda]

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.

[srdreiker]

Iniciado por Avellaneda

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.

Hola Avellaneda gracias por tu respuesta,
pero al introducir este otro codigo:
Private Sub Option2_Click()
Image2.Visible = False
End Sub
Tendria que insertar otro boton de opcion y yo quiero que trabaje con uno solo
que al activarlo active la imagen, pero si lo desactivo desaparezca, algo asi
como un check.
Gracias.

[AlexisLAG]

Iniciado por srdreiker

Hola Avellaneda gracias por tu respuesta,
pero al introducir este otro codigo:
Private Sub Option2_Click()
Image2.Visible = False
End Sub
Tendria que insertar otro boton de opcion y yo quiero que trabaje con uno solo
que al activarlo active la imagen, pero si lo desactivo desaparezca, algo asi
como un check.
Gracias.

'hola una posible obsion seria :

If image2.Visible = False Then
image2.Visible = True
Else
image2.Visible = False
End If


espero te sirva

[David]

Pero si es una única opción, ¿no es mejor usar un CheckBox?.

[Avellaneda]

Iniciado por srdreiker

Hola Avellaneda gracias por tu respuesta,
pero al introducir este otro codigo:
Private Sub Option2_Click()
Image2.Visible = False
End Sub
Tendria que insertar otro boton de opcion y yo quiero que trabaje con uno solo
que al activarlo active la imagen, pero si lo desactivo desaparezca, algo asi
como un check.
Gracias.

Hola, los controles OptionButton se utilizan en un grupo de opciones para mostrar opciones entre las cuales el usuario sólo puede seleccionar una. (MSDN), es decir siempre debe de haber mas de uno y al seleccionar uno los demás quedan desactivados.

En este caso sería mejor utilizar un control CheckBox, que lo podrías manejar así:

Código:

Private Sub Check1_Click()
Image2.Visible = IIf(Check1.Value = Checked, True, False)
End Sub

Private Sub Form_Load()
' todas estas propiedades las puedes poner en diseño
Image2.Visible = False
Image2.Picture = LoadPicture("G:\VISUALBASIC\actividad3visualbasic\ pc.bmp")
Check1.Caption = "Mostrar imagen"
Check1.Value = Unchecked
End Sub