Bonjour,
J'ai joué un peu "dans le temps" avec VB4 mais j'ai tout oublié et VB
Express me déboussole encore plus !
J'ai sur une feuille MonthCalendar, et deux labels.
Je voudrais récupérer le nom de la variable date selected afin de la
réduire à mmjj . (au lancement et après changement)
Je sais bricoler ds une chaine mais où trouver le nom de celle utilisée et
où saisir le code ?
Ensuite, avec ma valeur mmjj, je dois aller chercher des données
correspondantes dans un fichier texte et les afficher ds les labels. Ca,
ça devrait aller... une fois parti !
Merci pour le coup de pouce.
alainL
Bonjour,
J'ai joué un peu "dans le temps" avec VB4 mais j'ai tout oublié et VB
Express me déboussole encore plus !
J'ai sur une feuille MonthCalendar, et deux labels.
Je voudrais récupérer le nom de la variable date selected afin de la
réduire à mmjj . (au lancement et après changement)
Je sais bricoler ds une chaine mais où trouver le nom de celle utilisée et
où saisir le code ?
Ensuite, avec ma valeur mmjj, je dois aller chercher des données
correspondantes dans un fichier texte et les afficher ds les labels. Ca,
ça devrait aller... une fois parti !
Merci pour le coup de pouce.
alainL
Bonjour,
J'ai joué un peu "dans le temps" avec VB4 mais j'ai tout oublié et VB
Express me déboussole encore plus !
J'ai sur une feuille MonthCalendar, et deux labels.
Je voudrais récupérer le nom de la variable date selected afin de la
réduire à mmjj . (au lancement et après changement)
Je sais bricoler ds une chaine mais où trouver le nom de celle utilisée et
où saisir le code ?
Ensuite, avec ma valeur mmjj, je dois aller chercher des données
correspondantes dans un fichier texte et les afficher ds les labels. Ca,
ça devrait aller... une fois parti !
Merci pour le coup de pouce.
alainL
Bonjour,
J'ai joué un peu "dans le temps" avec VB4 mais j'ai tout oublié et VB
Express me déboussole encore plus !
J'ai sur une feuille MonthCalendar, et deux labels.
Je voudrais récupérer le nom de la variable date selected afin de la
réduire à mmjj . (au lancement et après changement)
Je sais bricoler ds une chaine mais où trouver le nom de celle utilisée
et où saisir le code ?
Ensuite, avec ma valeur mmjj, je dois aller chercher des données
correspondantes dans un fichier texte et les afficher ds les labels. Ca,
ça devrait aller... une fois parti !
Merci pour le coup de pouce.
alainL
Bonjour,
J'ai joué un peu "dans le temps" avec VB4 mais j'ai tout oublié et VB
Express me déboussole encore plus !
J'ai sur une feuille MonthCalendar, et deux labels.
Je voudrais récupérer le nom de la variable date selected afin de la
réduire à mmjj . (au lancement et après changement)
Je sais bricoler ds une chaine mais où trouver le nom de celle utilisée
et où saisir le code ?
Ensuite, avec ma valeur mmjj, je dois aller chercher des données
correspondantes dans un fichier texte et les afficher ds les labels. Ca,
ça devrait aller... une fois parti !
Merci pour le coup de pouce.
alainL
Bonjour,
J'ai joué un peu "dans le temps" avec VB4 mais j'ai tout oublié et VB
Express me déboussole encore plus !
J'ai sur une feuille MonthCalendar, et deux labels.
Je voudrais récupérer le nom de la variable date selected afin de la
réduire à mmjj . (au lancement et après changement)
Je sais bricoler ds une chaine mais où trouver le nom de celle utilisée
et où saisir le code ?
Ensuite, avec ma valeur mmjj, je dois aller chercher des données
correspondantes dans un fichier texte et les afficher ds les labels. Ca,
ça devrait aller... une fois parti !
Merci pour le coup de pouce.
alainL
Je voudrais récupérer le nom de la variable date selected afin de la
réduire à mmjj . (au lancement et après changement)
Votre question n'est pas très claire... Pouvez vous être plus explicit ?
C'est quoi pour vous "le nom de la variable date selected" ?
C'est quoi pour vois "réduire à mmjj"
Je sais bricoler ds une chaine (en VB4, mais ça devrait aller) mais où
trouver le nom de celle utilisée et où saisir le code ?
........... ????
Ensuite, avec ma valeur mmjj, je dois aller chercher des données
correspondantes dans un fichier texte et les afficher ds les labels.
Je voudrais récupérer le nom de la variable date selected afin de la
réduire à mmjj . (au lancement et après changement)
Votre question n'est pas très claire... Pouvez vous être plus explicit ?
C'est quoi pour vous "le nom de la variable date selected" ?
C'est quoi pour vois "réduire à mmjj"
Je sais bricoler ds une chaine (en VB4, mais ça devrait aller) mais où
trouver le nom de celle utilisée et où saisir le code ?
........... ????
Ensuite, avec ma valeur mmjj, je dois aller chercher des données
correspondantes dans un fichier texte et les afficher ds les labels.
Je voudrais récupérer le nom de la variable date selected afin de la
réduire à mmjj . (au lancement et après changement)
Votre question n'est pas très claire... Pouvez vous être plus explicit ?
C'est quoi pour vous "le nom de la variable date selected" ?
C'est quoi pour vois "réduire à mmjj"
Je sais bricoler ds une chaine (en VB4, mais ça devrait aller) mais où
trouver le nom de celle utilisée et où saisir le code ?
........... ????
Ensuite, avec ma valeur mmjj, je dois aller chercher des données
correspondantes dans un fichier texte et les afficher ds les labels.
"Gilles TOURREAU" a écrit dans le message de
groupe de discussion :
.............Je voudrais récupérer le nom de la variable date selected afin de la
réduire à mmjj . (au lancement et après changement)
Votre question n'est pas très claire... Pouvez vous être plus explicit ?
"Gilles TOURREAU" <gilles.tourreau@pos.fr> a écrit dans le message de
groupe de discussion : op.t2kf3sxdr4w555@bureau1.pos.fr...
.............
Je voudrais récupérer le nom de la variable date selected afin de la
réduire à mmjj . (au lancement et après changement)
Votre question n'est pas très claire... Pouvez vous être plus explicit ?
"Gilles TOURREAU" a écrit dans le message de
groupe de discussion :
.............Je voudrais récupérer le nom de la variable date selected afin de la
réduire à mmjj . (au lancement et après changement)
Votre question n'est pas très claire... Pouvez vous être plus explicit ?
"Gilles TOURREAU" a écrit dans le message de
groupe de discussion :
.............Je voudrais récupérer le nom de la variable date selected afin de la
réduire à mmjj . (au lancement et après changement)
Votre question n'est pas très claire... Pouvez vous être plus explicit ?
C'est quoi pour vous "le nom de la variable date selected" ?
C'est quoi pour vois "réduire à mmjj"
Lorsque s'affiche le calendrier du mois, une date est sélectionnée (par
défaut, celle du jour, mais on peut changer avec la souris)
Ca doit bien donner quelque part un code du style: "date/29/2007"
Je sais bricoler ds une chaine (en VB4, mais ça devrait aller) mais où
trouver le nom de celle utilisée et où saisir le code ?
........... ????
En récupérant cette chaine, je peux convertir en un "index" qui donnera
1129....
Mais ce bout de code (conversion, ouverture fichier recherche lecture
écriture.. ) je le tape où ?
Public Class Form1
Ici ?
Private Sub DateTimePicker1_ValueChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs)
Ici ?
End Sub
Ensuite, avec ma valeur mmjj, je dois aller chercher des données
correspondantes dans un fichier texte et les afficher ds les labels.
Dans un fichier texte indépendant déjà construit, je cherche la valeur
1129 dans la première colonne... je lis les données dans les deux ou
trois autres colonnes de la ligne... et j'affiche dans mes labels "Saint
Truc" et "anniversaire de mon petit fils" par exemple.....
Merci d'avoir pris en compte mon SOS !
alain
"Gilles TOURREAU" <gilles.tourreau@pos.fr> a écrit dans le message de
groupe de discussion : op.t2kf3sxdr4w555@bureau1.pos.fr...
.............
Je voudrais récupérer le nom de la variable date selected afin de la
réduire à mmjj . (au lancement et après changement)
Votre question n'est pas très claire... Pouvez vous être plus explicit ?
C'est quoi pour vous "le nom de la variable date selected" ?
C'est quoi pour vois "réduire à mmjj"
Lorsque s'affiche le calendrier du mois, une date est sélectionnée (par
défaut, celle du jour, mais on peut changer avec la souris)
Ca doit bien donner quelque part un code du style: "date/29/2007"
Je sais bricoler ds une chaine (en VB4, mais ça devrait aller) mais où
trouver le nom de celle utilisée et où saisir le code ?
........... ????
En récupérant cette chaine, je peux convertir en un "index" qui donnera
1129....
Mais ce bout de code (conversion, ouverture fichier recherche lecture
écriture.. ) je le tape où ?
Public Class Form1
Ici ?
Private Sub DateTimePicker1_ValueChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs)
Ici ?
End Sub
Ensuite, avec ma valeur mmjj, je dois aller chercher des données
correspondantes dans un fichier texte et les afficher ds les labels.
Dans un fichier texte indépendant déjà construit, je cherche la valeur
1129 dans la première colonne... je lis les données dans les deux ou
trois autres colonnes de la ligne... et j'affiche dans mes labels "Saint
Truc" et "anniversaire de mon petit fils" par exemple.....
Merci d'avoir pris en compte mon SOS !
alain
"Gilles TOURREAU" a écrit dans le message de
groupe de discussion :
.............Je voudrais récupérer le nom de la variable date selected afin de la
réduire à mmjj . (au lancement et après changement)
Votre question n'est pas très claire... Pouvez vous être plus explicit ?
C'est quoi pour vous "le nom de la variable date selected" ?
C'est quoi pour vois "réduire à mmjj"
Lorsque s'affiche le calendrier du mois, une date est sélectionnée (par
défaut, celle du jour, mais on peut changer avec la souris)
Ca doit bien donner quelque part un code du style: "date/29/2007"
Je sais bricoler ds une chaine (en VB4, mais ça devrait aller) mais où
trouver le nom de celle utilisée et où saisir le code ?
........... ????
En récupérant cette chaine, je peux convertir en un "index" qui donnera
1129....
Mais ce bout de code (conversion, ouverture fichier recherche lecture
écriture.. ) je le tape où ?
Public Class Form1
Ici ?
Private Sub DateTimePicker1_ValueChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs)
Ici ?
End Sub
Ensuite, avec ma valeur mmjj, je dois aller chercher des données
correspondantes dans un fichier texte et les afficher ds les labels.
Dans un fichier texte indépendant déjà construit, je cherche la valeur
1129 dans la première colonne... je lis les données dans les deux ou
trois autres colonnes de la ligne... et j'affiche dans mes labels "Saint
Truc" et "anniversaire de mon petit fils" par exemple.....
Merci d'avoir pris en compte mon SOS !
alain
Le Thu, 29 Nov 2007 21:47:28 +0100, alainL a
écrit:.........................................
Vous parlez de quel contrôle en fait ? De MonthCalendar ou de
DateTimePicker ?
.............
Ensuite, avec ma valeur mmjj, je dois aller chercher des données
correspondantes dans un fichier texte et les afficher ds les labels.
Dans un fichier texte indépendant déjà construit, je cherche la valeur
1129 dans la première colonne... je lis les données dans les deux ou
trois autres colonnes de la ligne... et j'affiche dans mes labels "Saint
Truc" et "anniversaire de mon petit fils" par exemple.....
Quel est la structure de votre fichier texte ? Est-ce que les "colonnes"
sont séparées par un ";", un espace,... ? Est-ce que ce sont des colonnes
de taille fixe ?
Le Thu, 29 Nov 2007 21:47:28 +0100, alainL <jarailet@club-internet.fr> a
écrit:
.........................................
Vous parlez de quel contrôle en fait ? De MonthCalendar ou de
DateTimePicker ?
.............
Ensuite, avec ma valeur mmjj, je dois aller chercher des données
correspondantes dans un fichier texte et les afficher ds les labels.
Dans un fichier texte indépendant déjà construit, je cherche la valeur
1129 dans la première colonne... je lis les données dans les deux ou
trois autres colonnes de la ligne... et j'affiche dans mes labels "Saint
Truc" et "anniversaire de mon petit fils" par exemple.....
Quel est la structure de votre fichier texte ? Est-ce que les "colonnes"
sont séparées par un ";", un espace,... ? Est-ce que ce sont des colonnes
de taille fixe ?
Le Thu, 29 Nov 2007 21:47:28 +0100, alainL a
écrit:.........................................
Vous parlez de quel contrôle en fait ? De MonthCalendar ou de
DateTimePicker ?
.............
Ensuite, avec ma valeur mmjj, je dois aller chercher des données
correspondantes dans un fichier texte et les afficher ds les labels.
Dans un fichier texte indépendant déjà construit, je cherche la valeur
1129 dans la première colonne... je lis les données dans les deux ou
trois autres colonnes de la ligne... et j'affiche dans mes labels "Saint
Truc" et "anniversaire de mon petit fils" par exemple.....
Quel est la structure de votre fichier texte ? Est-ce que les "colonnes"
sont séparées par un ";", un espace,... ? Est-ce que ce sont des colonnes
de taille fixe ?
Le Fri, 30 Nov 2007 17:15:44 +0100, alainL a
écrit:
Le code suivant fonctionne sans problème chez moi :
Le Fri, 30 Nov 2007 17:15:44 +0100, alainL <jarailet@club-internet.fr> a
écrit:
Le code suivant fonctionne sans problème chez moi :
Le Fri, 30 Nov 2007 17:15:44 +0100, alainL a
écrit:
Le code suivant fonctionne sans problème chez moi :
"Gilles TOURREAU" a écrit dans le message de
groupe de discussion :Le Thu, 29 Nov 2007 21:47:28 +0100, alainL
a écrit:.........................................
Vous parlez de quel contrôle en fait ? De MonthCalendar ou de
DateTimePicker ?
.............
L'objet ouvert sur ma page est MonthCalendar.
J'ai tapé ça:
Private Sub MonthCalendar1_DateChanged(ByVal sender As System.Object,
ByVal e As System.Windows.Forms.DateRangeEventArgs) Handles
MonthCalendar1.DateChanged
MoisChoisi = MonthCalendar1.SelectionStart.Month
JourChoisi = MonthCalendar1.SelectionStart.Day
RichTextBox1.Text = JourChoisi
End Sub
déclaré MoisChoisi et JourChoisi as string... (public new components)
mais je ne récupère rien sauf message d'erreur.
Ensuite, avec ma valeur mmjj, je dois aller chercher des données
correspondantes dans un fichier texte et les afficher ds les labels.
Dans un fichier texte indépendant déjà construit, je cherche la valeur
1129 dans la première colonne... je lis les données dans les deux ou
trois autres colonnes de la ligne... et j'affiche dans mes labels
"Saint Truc" et "anniversaire de mon petit fils" par exemple.....
Quel est la structure de votre fichier texte ? Est-ce que les
"colonnes" sont séparées par un ";", un espace,... ? Est-ce que ce sont
des colonnes de taille fixe ?
Fichier txt, séparateur : la virgule , colonnes de largeur non définie ,
Utilisé en VB4: avec :
fic = FreeFile
fichier = rep & "Fetes.txt"
Open fichier For Input As fic
Do While Not EOF(fic)
Input #fic, jr, saint, fete, jours, note1, note2
Alain
"Gilles TOURREAU" <gilles.tourreau@pos.fr> a écrit dans le message de
groupe de discussion : op.t2lniux1r4w555@bureau1.pos.fr...
Le Thu, 29 Nov 2007 21:47:28 +0100, alainL <jarailet@club-internet.fr>
a écrit:
.........................................
Vous parlez de quel contrôle en fait ? De MonthCalendar ou de
DateTimePicker ?
.............
L'objet ouvert sur ma page est MonthCalendar.
J'ai tapé ça:
Private Sub MonthCalendar1_DateChanged(ByVal sender As System.Object,
ByVal e As System.Windows.Forms.DateRangeEventArgs) Handles
MonthCalendar1.DateChanged
MoisChoisi = MonthCalendar1.SelectionStart.Month
JourChoisi = MonthCalendar1.SelectionStart.Day
RichTextBox1.Text = JourChoisi
End Sub
déclaré MoisChoisi et JourChoisi as string... (public new components)
mais je ne récupère rien sauf message d'erreur.
Ensuite, avec ma valeur mmjj, je dois aller chercher des données
correspondantes dans un fichier texte et les afficher ds les labels.
Dans un fichier texte indépendant déjà construit, je cherche la valeur
1129 dans la première colonne... je lis les données dans les deux ou
trois autres colonnes de la ligne... et j'affiche dans mes labels
"Saint Truc" et "anniversaire de mon petit fils" par exemple.....
Quel est la structure de votre fichier texte ? Est-ce que les
"colonnes" sont séparées par un ";", un espace,... ? Est-ce que ce sont
des colonnes de taille fixe ?
Fichier txt, séparateur : la virgule , colonnes de largeur non définie ,
Utilisé en VB4: avec :
fic = FreeFile
fichier = rep & "Fetes.txt"
Open fichier For Input As fic
Do While Not EOF(fic)
Input #fic, jr, saint, fete, jours, note1, note2
Alain
"Gilles TOURREAU" a écrit dans le message de
groupe de discussion :Le Thu, 29 Nov 2007 21:47:28 +0100, alainL
a écrit:.........................................
Vous parlez de quel contrôle en fait ? De MonthCalendar ou de
DateTimePicker ?
.............
L'objet ouvert sur ma page est MonthCalendar.
J'ai tapé ça:
Private Sub MonthCalendar1_DateChanged(ByVal sender As System.Object,
ByVal e As System.Windows.Forms.DateRangeEventArgs) Handles
MonthCalendar1.DateChanged
MoisChoisi = MonthCalendar1.SelectionStart.Month
JourChoisi = MonthCalendar1.SelectionStart.Day
RichTextBox1.Text = JourChoisi
End Sub
déclaré MoisChoisi et JourChoisi as string... (public new components)
mais je ne récupère rien sauf message d'erreur.
Ensuite, avec ma valeur mmjj, je dois aller chercher des données
correspondantes dans un fichier texte et les afficher ds les labels.
Dans un fichier texte indépendant déjà construit, je cherche la valeur
1129 dans la première colonne... je lis les données dans les deux ou
trois autres colonnes de la ligne... et j'affiche dans mes labels
"Saint Truc" et "anniversaire de mon petit fils" par exemple.....
Quel est la structure de votre fichier texte ? Est-ce que les
"colonnes" sont séparées par un ";", un espace,... ? Est-ce que ce sont
des colonnes de taille fixe ?
Fichier txt, séparateur : la virgule , colonnes de largeur non définie ,
Utilisé en VB4: avec :
fic = FreeFile
fichier = rep & "Fetes.txt"
Open fichier For Input As fic
Do While Not EOF(fic)
Input #fic, jr, saint, fete, jours, note1, note2
Alain
"Gilles TOURREAU" a écrit dans le message de
groupe de discussion :Le Fri, 30 Nov 2007 17:15:44 +0100, alainL
a écrit:
....................>Le code suivant fonctionne sans problème chez moi :
Merci, c'est super ! J'ai entré ça :
_______________________________________________________________________________________________________________________________________
Private Sub MonthCalendar1_DateChanged(ByVal sender As System.Object,
ByVal e As System.Windows.Forms.DateRangeEventArgs) Handles
MonthCalendar1.DateChanged
Dim MoisChoisi As String
Dim JourChoisi As String
MoisChoisi = MonthCalendar1.SelectionStart.Month
If Len(MoisChoisi) = 1 Then
MoisChoisi = "0" & MoisChoisi
End If
JourChoisi = MonthCalendar1.SelectionStart.Day
If Len(JourChoisi) = 1 Then
JourChoisi = "0" & JourChoisi
End If
TextBox1.Text = "Numero du jour : " & MoisChoisi & JourChoisi
End Sub
_____________________________________________________________________________________________________________________________________
Impeccable.... mais comment faire pour que le jour sélectionné à
l'ouverture (aujourd'hui donc) soit utilisé lui aussi. Car là, la
procédure ne se déclenche que si on "Change" calendar.
Je vais maintenant tenter les accès au fichier de données...
Cordialement
"Gilles TOURREAU" <gilles.tourreau@pos.fr> a écrit dans le message de
groupe de discussion : op.t2nxuhzqr4w555@bureau1.pos.fr...
Le Fri, 30 Nov 2007 17:15:44 +0100, alainL <jarailet@club-internet.fr>
a écrit:
....................>
Le code suivant fonctionne sans problème chez moi :
Merci, c'est super ! J'ai entré ça :
_______________________________________________________________________________________________________________________________________
Private Sub MonthCalendar1_DateChanged(ByVal sender As System.Object,
ByVal e As System.Windows.Forms.DateRangeEventArgs) Handles
MonthCalendar1.DateChanged
Dim MoisChoisi As String
Dim JourChoisi As String
MoisChoisi = MonthCalendar1.SelectionStart.Month
If Len(MoisChoisi) = 1 Then
MoisChoisi = "0" & MoisChoisi
End If
JourChoisi = MonthCalendar1.SelectionStart.Day
If Len(JourChoisi) = 1 Then
JourChoisi = "0" & JourChoisi
End If
TextBox1.Text = "Numero du jour : " & MoisChoisi & JourChoisi
End Sub
_____________________________________________________________________________________________________________________________________
Impeccable.... mais comment faire pour que le jour sélectionné à
l'ouverture (aujourd'hui donc) soit utilisé lui aussi. Car là, la
procédure ne se déclenche que si on "Change" calendar.
Je vais maintenant tenter les accès au fichier de données...
Cordialement
"Gilles TOURREAU" a écrit dans le message de
groupe de discussion :Le Fri, 30 Nov 2007 17:15:44 +0100, alainL
a écrit:
....................>Le code suivant fonctionne sans problème chez moi :
Merci, c'est super ! J'ai entré ça :
_______________________________________________________________________________________________________________________________________
Private Sub MonthCalendar1_DateChanged(ByVal sender As System.Object,
ByVal e As System.Windows.Forms.DateRangeEventArgs) Handles
MonthCalendar1.DateChanged
Dim MoisChoisi As String
Dim JourChoisi As String
MoisChoisi = MonthCalendar1.SelectionStart.Month
If Len(MoisChoisi) = 1 Then
MoisChoisi = "0" & MoisChoisi
End If
JourChoisi = MonthCalendar1.SelectionStart.Day
If Len(JourChoisi) = 1 Then
JourChoisi = "0" & JourChoisi
End If
TextBox1.Text = "Numero du jour : " & MoisChoisi & JourChoisi
End Sub
_____________________________________________________________________________________________________________________________________
Impeccable.... mais comment faire pour que le jour sélectionné à
l'ouverture (aujourd'hui donc) soit utilisé lui aussi. Car là, la
procédure ne se déclenche que si on "Change" calendar.
Je vais maintenant tenter les accès au fichier de données...
Cordialement
Le Fri, 30 Nov 2007 21:07:58 +0100, alainL a
écrit:
et dans DateChanged vous appelez cette fonction :
Private Sub MonthCalendar1_DateChanged(ByVal sender As System.Object,
ByVal e As System.Windows.Forms.DateRangeEventArgs) Handles
MonthCalendar1.DateChanged
Rafraichir()
End Sub
Et vous traiter l'événement Load de la Form et vous ajoutez aussi un appel
un autre appel à cette fonction
Le Fri, 30 Nov 2007 21:07:58 +0100, alainL <jarailet@club-internet.fr> a
écrit:
et dans DateChanged vous appelez cette fonction :
Private Sub MonthCalendar1_DateChanged(ByVal sender As System.Object,
ByVal e As System.Windows.Forms.DateRangeEventArgs) Handles
MonthCalendar1.DateChanged
Rafraichir()
End Sub
Et vous traiter l'événement Load de la Form et vous ajoutez aussi un appel
un autre appel à cette fonction
Le Fri, 30 Nov 2007 21:07:58 +0100, alainL a
écrit:
et dans DateChanged vous appelez cette fonction :
Private Sub MonthCalendar1_DateChanged(ByVal sender As System.Object,
ByVal e As System.Windows.Forms.DateRangeEventArgs) Handles
MonthCalendar1.DateChanged
Rafraichir()
End Sub
Et vous traiter l'événement Load de la Form et vous ajoutez aussi un appel
un autre appel à cette fonction