Recherche de SolutionRésolu

Question

Bonjours tous le monde

Je develloper un programme suit bloquer par l'utilisation de ListBox qui pourra m' aider a la gestion de grade des agents . Avant j'utiliser le textbox qui me creer un grand probleme. Puis l'aide a l'utilisation de la foction date en VB6.

cs_ShayW · Accepted Answer

Bonsoir

J'espère qu'on y arrivera

As tu ajouté le calendar component au toolbox* 
si oui bien sinon ajoutes le 
cliques sur project > components 
dans la fenetre cherche Microsoft calendar control ,coches et confirmes 

pour se servir du calendar
Ajoutes une form à ton projet 
nomme le formcalendrier
Places un calendar sur la form 
nommes le calendrier
modifies la taille du calendrier et de la form
de façon que la form a la meme taille que le
calendrier 
le code dans formcalendrier

 Public Sub ShowCalendar()
   calendrier.Today
   Me.Move 0, 0
   Me.Show vbModal
   End Sub
 Private Sub calendrier_Click()
  Me.Visible = False
  End Sub


si tu veux mettre une date dans un textbox

Private Sub Text1_Click()
 Formcalendrier.ShowCalendar
 Text1.Text = Formcalendrier.calendrier.Value
End Sub

lolokun · Answer

Bonjour,

Oui, et tu es bloqué où?
Si tu veux avoir une aide rapide et efficace, il faut être plus précis dans tes questions...


L'expérience, c'est une connerie par jour, mais jamais la même..

willyadok · Answer

Bonjours tous le monde 
Avec la fonction date j'ai essaie avec le code ci dessous ca n'a pas marche, ca me donne rien or que je besoin de calendrien  d'aumoins de 20 ans ou plus.
Dim Text8 As Date
Text8.Text = calendary
pour l'utilisation de la listbox je n'ai aucune idee.
Aidez moi.

willyadok · Answer

Bonjours,
 la listBox pour la gestion de grade des agents
par exemple j'ai le 
- le directeur
- le chef de service
- le chef de bureau
- et les autres
Je voudrais le gerer dans un liste box 
Aide moi.

willyadok · Answer

Bonjours 
Aulien de saisir à chaque fois le grade dans un text box je voudrai choisir dans la liste, et la date au lien de saisir la date je voudrai cliquer dans un calendrier .
Aidez moi

willyadok · Answer

Bonjour, 

Dit moi ce que je peus faire pour avancé. Je vraiment besoin d'avancé.

kkydav79 · Answer

Mais faut que tu sois plus explicite dans l'exposé de ce que tu veux;

On ne peut pas t'aider si tu n'est pas plus clair;

n a compris que tu voulais faire interragir une listbox avec le statut hierarchique des agents, mais de quelle façon? Ou tu coince? Tu demande comment les ajouter dans la liste? Comment avoir le grade en cliquant sur le nom de l'un des agents de la liste? Tu veux faire quoi exactement?

Sois plus clair, on sera ravi de t'aider;

willyadok · Answer

Bonjour,
Veuillez me tenir compagni car je vraiment besoin de votre aide.

willyadok · Answer

Bonjour,
Oui, je voulais faire interragir une listbox avec le statut hierarchique des agents dans le formulaire.

willyadok · Answer

Bonjour,
Qu'elle est la solution que vous me propose pour cette difficulte.

kkydav79 · Answer

Ouah lol ok... 

Ecoute si je tente d'interpréter ta demande au pluscompréhensible possible, tu veux "faire interragir la listbox avec la hirarchie de agents";

Donc pour ajouter un élément a la liste :

dim Nom_Agent as tring
Nom_Agent = Ta_Source ' fichier, control ou autre
listbox1.additem(Nom_Agent)

Pour afficher une donnée par rapport à un click dans une listox;

private sub listbox1_click()
dim Nom_Agent as string, grade as string 
open chemin & "" & fichier for input as #1
input #1, Nom_Agent, grade
close #1
msgbox "L'agent nommé : " & nom & " est au grade de : " & grade
end sub

Bon, voilà une réponse avec le peu d'information que tu m donne;

Tu vois c'est comme au quick; si tu dis pas ckil y a dans le menu de ton choix; la serveur sait pas si elle doit te servir un chicken, un fish ou un longbacon. Tu comprends?  du coups jpeux tparler que des frites puisk c le seul truc commun entr les menus

limelloyd · Answer

Franchement dit si tu n'espose pas clairement tes problème, tu n'auras pas de solutions. tu viens de quel pays ???

kkydav79 · Answer

heu et pti detail : ca la :

Dim Text8 As Date
Text8.Text = calendary

c'est pas possible. Tu peux pas donner le meme nom a une variable et un control.

... J'ai vraiment du mal a comrendre cke tu veux

willyadok · Answer

Je voudrai utilise le calendrier au lien de chaque fois saisir la date et le moi. Ce pour la calendrien que je utilise Dim date As Date 
date.Text = calendary le code qui n'a pas marche.

cs_ShayW · Answer

Bonsoir

D'abord expliques c'est quoi le calendrier ?
un  control calendar ?

willyadok · Answer

Bonjours,
Je voudrais choisir la date d'engagement dans un calendrier au lieu de chaque fois saisir la date, donc je ne sais pas si en VB il y a une fonction qui poura generer un calendrier.

cs_ShayW · Answer

Bonjour
IL y a si tu veux le control calendar 
il faut l'ajouter à ton toolbox
cliques sur project > components
dans la fenetre cherche Microsoft calendar control ,coches et confirmes
j'espère que ça fera l'affaire

willyadok · Answer

Bonjour
J'ai selectionné le textbox, pour que le calendrier s'affiche dans le textbox puis je cliquer sur project > components 
je chosis calendary dans la liste et rien n'a marché donc dans la mesure de me produire un calendrier dans le textbox au lieu de chaque fois saisir la date.

willyadok · Answer

Bonjour,
Merci bien car la calendrier s'affiche, mais sa s'affiche à haut à l'angle gauche de mon ecran et puis je choisis un date, puis sa revien à la date du jour et la formulaire calendrier reste jusqu'a ce que je le ferme.
Je voudrais que la calendrier s'affiche à petite taille à cote de textbox et en choisissant la date, la calendrier puis disparettre.
Merci pour la suite.

cs_ShayW · Answer

Salut

 ça s'affiche en haut de l'écran 
 Me.Move 0, 0
 
tu peux modifier où veux placer le calendrier
au milieux de l'écran ?

cela affiche la date d'aujourd'hui 
 calendrier.Today
si tu veux tu peux effacer calendrier.Today

willyadok · Answer

Salut,
Je voudrais que la calendrier s'affiche directement à cote du textbox. Quelle chiffre utilisé? Je efface calendrier To day rien n'a evoluer sa prend seulement la date du jours.

willyadok · Answer

Salut,
C'est-à-dire sagisant du mois et l'année en cours sa marche mais s'il faut changé par un mois ou année precedent ce là qui mes retourne au date du jours.

cs_ShayW · Answer

Bonsoir

Si tu veux afficher ton calendrier à coté 
du textbox où à gauche à droite 

ton textbox où est il placé dans un container
control ou directement sur la form
j'explique container control comme picturebox
frame qui peuvent contenir d'autre controls
c'est important pour savoir les coordonés 

si ton textbox est placé directement sur la form
pour placer le calendrier à coté à droite
dans le code du calendrier


Me.Move form1.textbox1.left + form1.textbox1.Width, form1.textbox1.top


je n'ai pas compris la date du jour
quelle date veux tu que le calendrier affiche
à chaque fois qu'il apparait ?

willyadok · Answer

Bonjour,
Oui, mon textbox est placé dans un container, c'est-à-dire dans un frame.
Pour la date je click la date choisis mais la formcalendrier reste affiché sur l'ecran et c'est la date du jours qui revien dans le textbox.

cs_ShayW · Answer

Bonsoir

dans le code de formcalendrier au lieu de 

Public Sub ShowCalendar()
   calendrier.Today
   Me.Move 0, 0
   Me.Show vbModal
   End Sub

plutot 

 Public Sub ShowCalendar(x as integer,y as integer,audessus as boolean)
   calendrier.Today
   if audessus then
      me.move x,y - me.height
   else
      Me.Move x, y
   end if 
   Me.Show vbModal
   End Sub


dans la form où tu veux afficher le calendrier
si je comprend tu as un textbox dans un frame
et tu veux inserer une date 
il faut afficher le calendrier sous l'évenement
click du textbox

Private Sub Text1_Click()
'pour afficher le calendrier audessus du textbox
 formcalendrier.ShowCalendar Me.frame1.left + Me.textbox1.left, Me.frame1.top + Me.textbox1.top, True
'pour afficher le calendrier en dessous du textbox
 formcalendrier.ShowCalendar Me.frame1.left + Me.textbox1.left, Me.frame1.top + Me.textbox1.top + Me.texbox1.Height, False
End Sub



 Pour la date je click la date choisis mais la formcalendrier reste affiché sur l'ecran 
 
dans le formcalendrier tu as bien

Private Sub calendrier_Click()
  Me.Visible = False
  End Sub




et c'est la date du jours qui revien dans le textbox. 
???? 


une date chez moi 24/11/2010

si tu veux afficher un petit calendrier 
tu peux changer sa taille ce n'est pas fixe
mais aussi ajustes la taille du formcalendrier
de la meme taille que le calendrier

willyadok · Answer

Bonjour,

Merci beaucoup pour votre encompagnement dans cet devellopement. J'aurai d'autre preocupation dans la mesure d'enregistre et d'imprimer le donner saisie dans mon formulaire. J'ai deux table acces dans la quelle j'aimerai enregistre les elements saisie dans mon formulaire puis les imprimer.
Merci, en plus.

cs_ShayW · Answer

Bonjour

Si tu as une nouvelle question mieux vaut
la publié de nouveau 

Bonne programmation

willyadok · Answer

Salut
Merci beaucoup pour votre accopagnement.
Je vait poursuivre  le recherche mais j'aimerai terminer mon projet avec vous. Si non merci pour ton attention.

cs_ShayW · Answer

Salut

Mieux vaut poser tes prochaines questions sur
le forum 
 
1 je suis débutant comme toi 
2 d'autre membres plus callé que moi 
   peuvent y répondre

Recherche de Solution

29 réponses

Votre réponse

Discussions similaires