• Domingo 22 de Diciembre de 2024, 19:59

Autor Tema:  Control Monthcalendar1  (Leído 1449 veces)

Vortice

  • Miembro MUY activo
  • ***
  • Mensajes: 135
    • Ver Perfil
Control Monthcalendar1
« en: Viernes 11 de Abril de 2008, 18:52 »
0
Camaradas espero y estén bien….

Ustedes saben como usar el control o herramienta  

Q es un calendario desplegable, mi consulta es:

Al dar doble clic o un clic como sea, en un día de un mes de un año especifico, esa fecha se traspase a una caja de texto, es esto posible…

Ojala si, me solucionaría muchas quebraduras de cabeza, de antemano gracias camaradas….
Solo el Bueno muere joven...

Vortice

  • Miembro MUY activo
  • ***
  • Mensajes: 135
    • Ver Perfil
Re: Control Monthcalendar1
« Respuesta #1 en: Lunes 14 de Abril de 2008, 21:26 »
0
Solucionado....

 '============ Calendario ===========
    Private Sub MonthCalendar1_DateChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.DateRangeEventArgs) Handles MonthCalendar1.DateChanged
        fecha_cotiz.Text = MonthCalendar1.SelectionRange.Start
    End Sub
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        MonthCalendar1.Visible = True
    End Sub
    Private Sub MonthCalendar1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles MonthCalendar1.LostFocus
        If GetAsyncKeyState(9) = -32767 Then
            MonthCalendar1.Visible = False
            Empresa.Visible = False
            Button1.Focus()
        End If
    End Sub
Solo el Bueno muere joven...