Jump to content

No funciona visible=true


febrero59

Recommended Posts

Hola,

Tengo un problema que puede observarse en el archivo adjunto.

Private Sub Frame1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
   Calendar1.Visible = True
   Calendar2.Visible = False
End Sub

Private Sub Frame2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
   Calendar1.Visible = False
   Calendar2.Visible = True
End Sub

Dependiendo del paso del ratón por uno u otro frame, quiero que se vea sólo el calendario del frame por el que ha pasado el ratón.

Funciona el desactivado de la visibilidad, pero no el activado.

¿Qué hago mal?

Gracias anticipadas,

Juan.

Prueba.xls

Link to comment
Share on other sites

Pueba así:

Private FechaReferencia

Private Sub Frame1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
   Calendar1.Visible = True
   Calendar1.Enabled = True
   Calendar2.Visible = False
   Calendar2.Enabled = False
End Sub

Private Sub Frame2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
   Calendar1.Visible = False
   Calendar1.Enabled = False
   Calendar2.Visible = True
   Calendar2.Enabled = True
End Sub

Private Sub Avisos_Activate()
    Frame2.Calendar2.Value = Date
    Frame1.Calendar1.Value = Date - 1
End Sub

Saludos.

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

Guest
This topic is now closed to further replies.
×
×
  • Create New...

Important Information

Privacy Policy