Cambiar imagenes en boton alternar
Publicado por Bpl (7 intervenciones) el 23/03/2007 08:39:38
Hola necesito que cuando un boton alternar de una campo si/no estea sin pulsar tenga un icono y pulsado otro.
Hay una pregunta parecida en el foro pero el codigo a mi no me sirve, aparece el dibujo pero no cambia al pulsarlel boton, el codigo es:
Private Sub Form_Open(Cancel As Integer)
Me.ALTERNA.Picture = "C:\Mis documentos\NO.BMP"
End Sub
Private Sub ALTERNA_Click()
If Me.ALTERNA.Value Then
Me.ALTERNA.Picture = "C:\Mis documentos\SI.BMP"
Else
Me.ALTERNA.Picture = "C:\Mis documentos\NO.BMP"
End If
End Sub
Alguien sabe porque no funciona
Hay una pregunta parecida en el foro pero el codigo a mi no me sirve, aparece el dibujo pero no cambia al pulsarlel boton, el codigo es:
Private Sub Form_Open(Cancel As Integer)
Me.ALTERNA.Picture = "C:\Mis documentos\NO.BMP"
End Sub
Private Sub ALTERNA_Click()
If Me.ALTERNA.Value Then
Me.ALTERNA.Picture = "C:\Mis documentos\SI.BMP"
Else
Me.ALTERNA.Picture = "C:\Mis documentos\NO.BMP"
End If
End Sub
Alguien sabe porque no funciona
Valora esta pregunta


0