[VB] Operar con el elemento selecionado de un monthcalendar o un datatimepicker

[chipbios]

Bueno mi duda tengo poner esto en un code

Código:

evento
Dim variable as loque sea
variable = fecha que sea hoy
If variable = elemento selecionado de un monthcalendari o de un data time picker
loquesea
end if

Bien para el month calendari no tengo ni idea de como se opera con el elemento selecionado me gustaria que me lo explicarais porque no lo encuentro por internet(tampoco le he dedicado mucho time , ya que hoy de eso poco).

Y haber en un datatimepicker creo que  seria asi:

datatimepicker 1.value

no?¿ , seguro que estoy equivocado, si no fuera asi nose porque, asi no me va.

Si no me entienden vien diganmelo y publico unos screens y se lo indico ahi o lo que pueda.[/b]

[Rakzo-Fimbres]

Quizas esto te ayude chipbios..


Para ver este enlace Registrate o Inicia Sesion

http://msdn.microsoft.com/es-es/library/microsoft.office.tools.word.controls.monthcalendar%28VS.80%29.aspx

Espero que esto resuelva tu pregunta!
Salu2 chipbios!

[chipbios]

La verdad esque hay solo viene la declaración xD pero del uso poco, pero seguire investigando en esa misma web gracias

[Mace Windu]

¿Qué tal Chipbios? Bien, vamos a ver, agregamos el control DateTimePicker a nuestro formulario y dejamos su nombre default. A continuación creamos un botón y también dejamos su nombre por defecto. Ahora vamos al procedimiento Click de nuestro botón y agregamos el siguiente código:

Código:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Declaramos la variable FechaHoy como Date y le damos el valor de la fecha actual con formato corto DD/MM/AAAA.
        Dim FechaHoy As Date = FormatDateTime(DateAndTime.Today, DateFormat.ShortDate)
        'Declaramos la variable FechaSel como Date y le damos el valor de la fecha seleccionada en el DateTimePicker con el formato anterior.
        Dim FechaSel As Date = FormatDateTime(DateTimePicker1.Value, DateFormat.ShortDate)

        'Comparamos las fechs
        If FechaSel = FechaHoy Then
            'Si la fecha es la misma se muestra el siguiente mensaje
            MessageBox.Show("La fecha seleccionada coincide con la actual.", "Al habla Mace Windu")
        Else
            'Si no lo son, se muestra éste
            MessageBox.Show("La fecha seleccionada no coincide con la actual.", "Al habla Mace Windu")
        End If
    End Sub

Creo que con esto tu duda queda solucionada. Si te surgen más dudas, como siempre digo, no dudes en publicarlas .

Salu2

[chipbios]

bueno estoy ya hasta donde uno esta y como no tengo casi tiempo(entre otras cosas porque tengo que ir al hospital cada rato xD) dejo mas o menos el code sin repasar haber si alguien me dice el error(posiblemente el code sea una barbaridad y tendra miles de errorres pero es ya la 15 vez o asi que pruebo y me quedo este y ya me da igual xD)

Código:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim tar As Object
        Dim hor As Object
        Dim fech As Object

        tar = TextBox1.Text & ","
        hor = TextBox2.Text & ","
        fech = Me.DateTimePicker1.Text

        Dim tablat As Object
        tablat = Form1.ListBox1

        Dim Tareax As Object

        Tareax = tar & hor & fech
        tablat.items.add(Tareax)

        'novo code

        Dim arraytelita(0 To 15, 0 To 40) As Object
        Dim fecha As Date
        fecha = fech
        arraytelita(0, 15) = fecha
        arraytelita(0, 40) = hor & tar

        Dim FechaHoy As Date = FormatDateTime(Form1.DateAndTime1.Today, DateFormat.ShortDate)
        With arraytelita

            fecha = fech
            If fecha = FechaHoy Then
                Form1.ListBox2.Items.Add(hor & fech)

            Else
                Form1.ListBox2.Items.Add(hor & fech)
                Form1.ListBox2.Hide()
            End If
        End With
        Me.Close()
    End Sub

End Class

Estan todas las varibles mal y tal pero me da igual eso ya lo corregire, lo que quiero es que segun la fecha que pongas en el date time se muestren las tareas o no , vamo que si pones dia 18 se muestren las tareas del dia 18.

Esto es lo mas parecido que he exo pero cuando no es la fecha se oculta por el hide y aunque pongas otra vez el dia que era la tarea no vuelve a salir

[Mace Windu]

Bueno, he codeado tu programa. Necesita 3 labels, 1 listbox, 2 datetimepicker, 1 groupbox, 1 textbox y 1 button. Quedaría más o menos así (está cogido en tiempo de ejecución):

Para ver este enlace Registrate o Inicia Sesion

Código:

Public Class Form1
    'Array con todas las tareas
    Private Tareas(0 To 254) As String
    'Número de tareas
    Private NumeroTareas As Byte = 0

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Una pequeña limitación ;)
        If NumeroTareas = 255 Then
            MessageBox.Show("Esto es una vesión de prueba. El número máximo de tareas son 255", "Al habla Mace Windu")
            Exit Sub
        End If

        'Añadir al array la tarea
        Tareas(NumeroTareas) = CStr(FormatDateTime(DateTimePicker2.Value, DateFormat.ShortDate)) & TextBox1.Text
        'Sumar una tarea al total
        NumeroTareas = NumeroTareas + 1

        'Mostrar las tareas de la fecha seleccionada
        MostrarTareas()
    End Sub

    'Procedimiento que mostrará
    Private Sub MostrarTareas()
        Dim I As Byte, FechaSel As Date
        'Se limpia el ListBox
        ListBox1.Items.Clear()

        'Si no hay tareas guardadas salir
        If NumeroTareas = 0 Then Exit Sub

        'Coger la fecha seleccionada
        FechaSel = FormatDateTime(DateTimePicker1.Value, DateFormat.ShortDate)

        'Agregar al ListBox las tareas de la fecha seleccionada
        For I = 0 To NumeroTareas
            If Strings.Left(Tareas(I), 10) = CStr(FechaSel) Then
                ListBox1.Items.Add(Strings.Right(Tareas(I), Len(Tareas(I)) - 10))
            End If
        Next
    End Sub

    Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged
        'Cambiar el texto del label con la fecha seleccionada
        Label1.Text = CStr(FormatDateTime(DateTimePicker1.Value, DateFormat.LongDate))
        'Mostrar las tareas de la fecha seleccionada
        MostrarTareas()
    End Sub
End Class

Le he puesto un límite de 255 tareas . Es muy básico lo que realiza, pero como base para tu programa te vendrá bien. Le puedes agregar un botón para buscar tareas, eliminarlas, etc. Y claro está, guardarlas para que luego cuando vuelvas a iniciar la aplicación se queden y se puedan comunicar al usuario.

Si te surgen más dudas sobre éste ya sabes donde estamos .

Salu2

[chipbios]

Muy buen code me sirvio y tal , ya te comente, aunque alfinal me meti en otro poyecto...

cierro