SoloCodigo

CLR: .Net / Mono / Boo / Otros CLR => VB .NET => Mensaje iniciado por: Vortice en Viernes 11 de Abril de 2008, 18:52

Título: Control Monthcalendar1
Publicado por: Vortice en Viernes 11 de Abril de 2008, 18:52

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

Título: Re: Control Monthcalendar1
Publicado por: Vortice en Lunes 14 de Abril de 2008, 21:26

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