CALENDRIER

Commentaire de DanMor498 le 22/12/2007 18:10:35

j'ai pondus celui-ci ce matin suite a un commantaire
Sur outlook C'est pas une grosse affaire mais c'est un debut...

Commentaire de DanMor498 le 22/12/2007 18:38:00

la je comprend pas ici ca marche bien mais je verifie et te revien desque je peut

Commentaire de teamtiti le 22/12/2007 19:01:20

merci bien de ta réponse rapide donc sa marche j'ai changer avec cette ligne
If e.Start = Format(e.Start, "long date") Then

Commentaire de radcur le 22/12/2007 23:02:15

salut

c'est bien comme source mais il y a 2 points que je ne comprends pas trop trop.

1- Pourquoi est-ce que les functions LoadListViewCol1 et LoadListViewCol2 sont déclarées en boolean alors qu'elle ne retourne rien ?
2- Pourquoi stocker les infos dans la base de registres alors qu'un fichier xml ou une bd access aurait fait l'affaire ?  

Commentaire de DanMor498 le 22/12/2007 23:25:57

et puis c est aussi je connait rien en xml
et encore des difficulter a travailler avec les base de données puisque qu'on me dit que fait tout a la dure et pas
asse automatiser

Commentaire de DanMor498 le 24/12/2007 17:50:23

Salut RADCUR
Merci pour ta réponse si vite retourne

LoadListViewCol1 et LoadListViewCol2 on ete repris et remanipuler sont a voir sa devrait aleger le tout

pour ce qui est du xml j'ai beaucoup de dif a suive le fonctionnement car je sais toujours pas si il faut une base donnees en plus du xml ou seul le xml sufit
ca rentre pas sa doit etre l'age

Il faut savoir que j'ai apris par moi meme donc pas de cours et beaucoup d'erreur et d'embuche dans ma programmation a+

Commentaire de DanMor498 le 25/12/2007 18:40:38

j'ai deja commencer a tester le sujet plutot compliquer j arrive a ecrire le fichier mais pour le relire c est pas fort le text sort partout et pas ala bonne places plutot complique si tu a plusieur textbox a remplir

Commentaire de finetos le 02/02/2008 08:26:37

bonjours je m'appel finetos
je ne suis pas une expere en informatique mais j'ais créer une base de donnée avec access et je possede vissual bassic mais je ne m'en suis jamais servis. je suis tres intereser par ton code source mais le probleme est que une fois telecharger dans un fichier nomer calendrier je ne sait pas se qu'il faut faire ensuite comment et òu l'instaler pour qu'il foncionne
je te remercie par avance pour ton aide

Commentaire de finetos le 03/02/2008 09:05:50

je te remercie beaucoups pour les infos que tu ma donnée je vais essayer
a bientôt

Commentaire de DanMor498 le 28/05/2008 23:09:57

je verifie et et refait le tout si il y a lieux

Mais je crois quil sagit de la programmation des dates

je revien des que je peut

Commentaire de Adn56 le 29/05/2008 18:42:55

bon ben non cela vient de ça :
(corriger et cela fonctionne mais je pige pas pourquoi tu l'as écrit XD)

Private Sub MonthCalendar1_DateChanged(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DateRangeEventArgs) Handles MonthCalendar1.DateChanged
        'If e.Start = Format(DateString, "long date") Then
        lblDate.Text = e.Start.ToLongDateString
        'Else
        'lblDate.Text = e.End.ToLongDateString
        'End If
    End Sub

    Private Sub MonthCalendar1_DateSelected(ByVal sender As Object, ByVal e As System.Windows.Forms.DateRangeEventArgs) Handles MonthCalendar1.DateSelected
        ' If e.Start = Format(DateString, "long date") Then
        ListView1.Items.Clear()
        TimeHeaderT()
        DescriptionHeaderT()
        ' Else
        ' ListView1.Items.Clear()
        ' TimeHeaderT()
        ' DescriptionHeaderT()
        ' End If
    End Sub

en supprimant tes IF dans ces deux évenements cela tourne nickel ! alors si tu peux m'expliquer pour quoi ces tests sur le formats de la date cela m'aidera à comprendre le binnsssss ^^

+++

PS 7/20 pour le boulot déja réalisé ;)

Commentaire de DanMor498 le 29/05/2008 23:45:33

        Retirer ceci
        If e.Start = Format(DateString, "long date") Then
        lblDate.Text = e.Start.ToLongDateString
        lblDate.Text = Format(e.Start, "Long Date")
        Else
        lblDate.Text = e.End.ToLongDateString
        lblDate.Text = Format(e.End, "Long Date")

        et placer cette phrase a la place

      [  lblDate.Text = Format(e.Start, "Long Date")  ]

          Sans les crochet
           cela devrait fonctionner

Commentaire de Adn56 le 10/03/2009 07:23:33

oula ben de rien :p
Et le xml cela avance ?