ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

un autre calendrier

	Description
Retour à la liste L'auteur eric leissler France Membre Simple # 0000002784 enregistré le 06/03/2010 http://www.aumeric.fr 68 ans LEISSLER Eric 85290 MORTAGNE SUR SEVRE de la société AUMERIC LOGICIELS Fiche personnelle Note des membres pas de note	Contributions > 01 - PRG : Programmation > Temps - heures - Dates - Calendriers un autre calendrier # 0000000136 ajouté le 12/01/2005 15:24:11 et modifié le 10/06/2006 consulté 10821 fois Niveau débutant Version(s) Foxpro : VFP 9.0 VFP 8.0 VFP 7.0 VFP 6.0 VFP 5.0 VFP 3.0 FPW 2.6 Télécharger le ZIP (4.59 Ko)
	Bonjour Voiçi un autre calendrier . On peut s'en servir en programme, ou en faire une classe. C'est du pur fox. Pas un pet d'activex! que du fox Bonne année à tous Eric POUR CHOISIR UNE DATE DEPUIS UN TEXTBOX DANS LA PROPRIETE WHEN this.value=choisirdate(this.value) DEPUIS UN PRG POUR AFFECTER UNE VARIABLE TOTO= ctod(" / /") toto= choisirdate(date()) ----------------------------------
	Code source :
	function choisirdate parameters queldat oform=createobject("choixdate") oform.show() return queldat DEFINE CLASS choixdate AS form Top = 33 Left = 55 Height = 277 Width = 368 DoCreate = .T. ShowTips = .T. BorderStyle = 2 Caption = " Le calendrier d'AUMERIC" MaxButton = .F. WindowType = 1 WindowState = 0 MacDesktop = 1 BackColor = RGB(213,236,253) Name = "choixdate" dateencours = date() retour = .F. oldselect = .F. ADD OBJECT contai11 AS contai1 WITH ; Top = 0, ; Left = 0, ; Width = 369, ; Height = 277, ; TabIndex = 5, ; Name = "Contai11" ADD OBJECT command1 AS commandbutton WITH ; Top = 245, ; Left = 36, ; Height = 27, ; Width = 84, ; Picture = "wzback.bmp", ; Caption = "<<", ; Name = "Command1" ADD OBJECT command2 AS commandbutton WITH ; Top = 245, ; Left = 166, ; Height = 27, ; Width = 84, ; Picture = "wznext.bmp", ; Caption = ">>", ; Name = "Command2" ADD OBJECT text1 AS textbox WITH ; Height = 23, ; Left = -74, ; TabIndex = 6, ; Top = 206, ; Visible = .F., ; Width = 100, ; Name = "Text1" ADD OBJECT cbo1 AS combobox WITH ; BoundColumn = 2, ; ColumnCount = 2, ; ColumnWidths = "228,0", ; RowSourceType = 1, ; RowSource = "JANVIER,1,FEVRIER,2,MARS,3,AVRIL,4,MAI,5,JUIN,6,JUILLET,7,AOUT,8,SEPTEMBRE,9,OCTOBRE,10,NOVEMBRE,11,DECEMBRE,12", ; Value = (month(thisform.dateencours)), ; FirstElement = 1, ; Height = 24, ; Left = 7, ; NumberOfElements = 0, ; Style = 2, ; TabIndex = 1, ; ToolTipText = "Pour choisir le mois", ; Top = 23, ; Width = 108, ; Name = "Cbo1" ADD OBJECT spinner1 AS spinner WITH ; Height = 24, ; KeyboardHighValue = 2500, ; KeyboardLowValue = 2000, ; Left = 116, ; SpinnerHighValue = 2500.00, ; SpinnerLowValue = 2000.00, ; TabIndex = 2, ; ToolTipText = "Pour choisir l'année", ; Top = 23, ; Width = 121, ; Value = (year(thisform.dateencours)), ; Name = "Spinner1" ADD OBJECT commandgroup1 AS commandgroup WITH ; ButtonCount = 42, ; Value = 1, ; Height = 176, ; Left = 4, ; SpecialEffect = 0, ; Top = 67, ; Width = 360, ; TabIndex = 7, ; Name = "Commandgroup1", ; Command1.Top = 5, ; Command1.Left = 5, ; Command1.Height = 27, ; Command1.Width = 49, ; Command1.FontBold = .F., ; Command1.Caption = "Command1", ; Command1.Style = 0, ; Command1.Name = "Command1", ; Command2.Top = 5, ; Command2.Left = 55, ; Command2.Height = 27, ; Command2.Width = 49, ; Command2.Caption = "Command2", ; Command2.Name = "Command2", ; Command3.Top = 5, ; Command3.Left = 105, ; Command3.Height = 27, ; Command3.Width = 49, ; Command3.Caption = "Command3", ; Command3.Name = "Command3", ; Command4.Top = 5, ; Command4.Left = 154, ; Command4.Height = 27, ; Command4.Width = 49, ; Command4.Caption = "Command4", ; Command4.Name = "Command4", ; Command5.Top = 5, ; Command5.Left = 203, ; Command5.Height = 27, ; Command5.Width = 49, ; Command5.Caption = "Command5", ; Command5.Name = "Command5", ; Command6.Top = 5, ; Command6.Left = 252, ; Command6.Height = 27, ; Command6.Width = 49, ; Command6.Caption = "Command6", ; Command6.Name = "Command6", ; Command7.Top = 5, ; Command7.Left = 302, ; Command7.Height = 27, ; Command7.Width = 49, ; Command7.Caption = "Command7", ; Command7.Name = "Command7", ; Command8.Top = 32, ; Command8.Left = 5, ; Command8.Height = 27, ; Command8.Width = 49, ; Command8.Caption = "Command8", ; Command8.Name = "Command8", ; Command9.Top = 32, ; Command9.Left = 55, ; Command9.Height = 27, ; Command9.Width = 49, ; Command9.Caption = "Command9", ; Command9.Name = "Command9", ; Command10.Top = 32, ; Command10.Left = 105, ; Command10.Height = 27, ; Command10.Width = 49, ; Command10.Caption = "Command10", ; Command10.Name = "Command10", ; Command11.Top = 32, ; Command11.Left = 154, ; Command11.Height = 27, ; Command11.Width = 49, ; Command11.Caption = "Command11", ; Command11.Name = "Command11", ; Command12.Top = 32, ; Command12.Left = 203, ; Command12.Height = 27, ; Command12.Width = 49, ; Command12.Caption = "Command12", ; Command12.Name = "Command12", ; Command13.Top = 32, ; Command13.Left = 252, ; Command13.Height = 27, ; Command13.Width = 49, ; Command13.Caption = "Command13", ; Command13.Name = "Command13", ; Command14.Top = 32, ; Command14.Left = 302, ; Command14.Height = 27, ; Command14.Width = 49, ; Command14.Caption = "Command14", ; Command14.Name = "Command14", ; Command15.Top = 59, ; Command15.Left = 5, ; Command15.Height = 27, ; Command15.Width = 49, ; Command15.Caption = "Command15", ; Command15.Name = "Command15", ; Command16.Top = 59, ; Command16.Left = 55, ; Command16.Height = 27, ; Command16.Width = 49, ; Command16.Caption = "Command16", ; Command16.Name = "Command16", ; Command17.Top = 59, ; Command17.Left = 105, ; Command17.Height = 27, ; Command17.Width = 49, ; Command17.Caption = "Command17", ; Command17.Name = "Command17", ; Command18.Top = 59, ; Command18.Left = 154, ; Command18.Height = 27, ; Command18.Width = 49, ; Command18.Caption = "Command18", ; Command18.Name = "Command18", ; Command19.Top = 59, ; Command19.Left = 203, ; Command19.Height = 27, ; Command19.Width = 49, ; Command19.Caption = "Command19", ; Command19.Name = "Command19", ; Command20.Top = 59, ; Command20.Left = 252, ; Command20.Height = 27, ; Command20.Width = 49, ; Command20.Caption = "Command20", ; Command20.Name = "Command20", ; Command21.Top = 59, ; Command21.Left = 302, ; Command21.Height = 27, ; Command21.Width = 49, ; Command21.Caption = "Command21", ; Command21.Name = "Command21", ; Command22.Top = 86, ; Command22.Left = 6, ; Command22.Height = 27, ; Command22.Width = 49, ; Command22.Caption = "Command22", ; Command22.Name = "Command22", ; Command23.Top = 86, ; Command23.Left = 55, ; Command23.Height = 27, ; Command23.Width = 49, ; Command23.Caption = "Command23", ; Command23.Name = "Command23", ; Command24.Top = 86, ; Command24.Left = 105, ; Command24.Height = 27, ; Command24.Width = 49, ; Command24.Caption = "Command24", ; Command24.Name = "Command24", ; Command25.Top = 86, ; Command25.Left = 154, ; Command25.Height = 27, ; Command25.Width = 49, ; Command25.Caption = "Command25", ; Command25.Name = "Command25", ; Command26.Top = 86, ; Command26.Left = 203, ; Command26.Height = 27, ; Command26.Width = 49, ; Command26.Caption = "Command26", ; Command26.Name = "Command26", ; Command27.Top = 86, ; Command27.Left = 252, ; Command27.Height = 27, ; Command27.Width = 49, ; Command27.Caption = "Command27", ; Command27.Name = "Command27", ; Command28.Top = 86, ; Command28.Left = 302, ; Command28.Height = 27, ; Command28.Width = 49, ; Command28.Caption = "Command28", ; Command28.Name = "Command28", ; Command29.Top = 114, ; Command29.Left = 6, ; Command29.Height = 27, ; Command29.Width = 49, ; Command29.Caption = "Command29", ; Command29.Name = "Command29", ; Command30.Top = 114, ; Command30.Left = 55, ; Command30.Height = 27, ; Command30.Width = 49, ; Command30.Caption = "Command30", ; Command30.Name = "Command30", ; Command31.Top = 114, ; Command31.Left = 105, ; Command31.Height = 27, ; Command31.Width = 49, ; Command31.Caption = "Command31", ; Command31.Name = "Command31", ; Command32.Top = 114, ; Command32.Left = 154, ; Command32.Height = 27, ; Command32.Width = 49, ; Command32.Caption = "Command32", ; Command32.Name = "Command32", ; Command33.Top = 114, ; Command33.Left = 203, ; Command33.Height = 27, ; Command33.Width = 49, ; Command33.Caption = "Command33", ; Command33.Name = "Command33", ; Command34.Top = 114, ; Command34.Left = 252, ; Command34.Height = 27, ; Command34.Width = 49, ; Command34.Caption = "Command34", ; Command34.Name = "Command34", ; Command35.Top = 114, ; Command35.Left = 302, ; Command35.Height = 27, ; Command35.Width = 49, ; Command35.Caption = "Command35", ; Command35.Name = "Command35", ; Command36.Top = 142, ; Command36.Left = 6, ; Command36.Height = 27, ; Command36.Width = 49, ; Command36.Caption = "Command36", ; Command36.Name = "Command36", ; Command37.Top = 142, ; Command37.Left = 55, ; Command37.Height = 27, ; Command37.Width = 49, ; Command37.Caption = "Command37", ; Command37.Name = "Command37", ; Command38.Top = 142, ; Command38.Left = 105, ; Command38.Height = 27, ; Command38.Width = 49, ; Command38.Caption = "Command38", ; Command38.Name = "Command38", ; Command39.Top = 142, ; Command39.Left = 154, ; Command39.Height = 27, ; Command39.Width = 49, ; Command39.Caption = "Command39", ; Command39.Name = "Command39", ; Command40.Top = 142, ; Command40.Left = 203, ; Command40.Height = 27, ; Command40.Width = 49, ; Command40.Caption = "Command40", ; Command40.Name = "Command40", ; Command41.Top = 142, ; Command41.Left = 252, ; Command41.Height = 27, ; Command41.Width = 49, ; Command41.Caption = "Command41", ; Command41.Name = "Command41", ; Command42.Top = 142, ; Command42.Left = 302, ; Command42.Height = 27, ; Command42.Width = 49, ; Command42.Caption = "Command42", ; Command42.Name = "Command42" ADD OBJECT text3 AS textbox WITH ; Format = "D", ; Height = 23, ; Left = 240, ; TabIndex = 3, ; Top = 23, ; Width = 100, ; Name = "Text3" ADD OBJECT bouton21 AS commandbutton WITH ; Top = 243, ; Left = 306, ; Height = 29, ; Width = 59, ; Picture = "wzclose.bmp", ; Caption = "Ok", ; TabIndex = 4, ; Name = "Bouton21" ADD OBJECT label1 AS label WITH ; FontName = "Arial Black", ; FontSize = 10, ; BackStyle = 0, ; Caption = "L M M J V S D", ; Height = 25, ; Left = 26, ; Top = 51, ; Width = 324, ; ForeColor = RGB(0,0,0), ; DisabledForeColor = RGB(0,0,0), ; Name = "Label1" ADD OBJECT label2 AS label WITH ; FontName = "Arial Black", ; FontSize = 10, ; BackStyle = 0, ; Caption = "L M M J V S D", ; Height = 25, ; Left = 24, ; Top = 49, ; Width = 324, ; ForeColor = RGB(255,255,255), ; DisabledForeColor = RGB(255,255,255), ; Name = "Label2" ADD OBJECT label3 AS label WITH ; BackStyle = 0, ; Caption = "Date choisie", ; Height = 16, ; Left = 258, ; Top = 8, ; Width = 78, ; Name = "Label3" ADD OBJECT label4 AS label WITH ; BackStyle = 0, ; Caption = "Date choisie", ; Height = 16, ; Left = 257, ; Top = 6, ; Width = 78, ; ForeColor = RGB(255,255,255), ; DisabledForeColor = RGB(255,255,255), ; Name = "Label4" ADD OBJECT label5 AS label WITH ; BackStyle = 0, ; Caption = "Année", ; Height = 16, ; Left = 127, ; Top = 9, ; Width = 78, ; Name = "Label5" ADD OBJECT label6 AS label WITH ; BackStyle = 0, ; Caption = "Année", ; Height = 16, ; Left = 126, ; Top = 7, ; Width = 78, ; ForeColor = RGB(255,255,255), ; DisabledForeColor = RGB(255,255,255), ; Name = "Label6" ADD OBJECT label7 AS label WITH ; BackStyle = 0, ; Caption = "Mois", ; Height = 16, ; Left = 7, ; Top = 9, ; Width = 78, ; Name = "Label7" ADD OBJECT label8 AS label WITH ; BackStyle = 0, ; Caption = "Mois", ; Height = 16, ; Left = 6, ; Top = 7, ; Width = 78, ; ForeColor = RGB(255,255,255), ; DisabledForeColor = RGB(255,255,255), ; Name = "Label8" PROCEDURE Release thisform.retour=thisform.text3.value ENDPROC PROCEDURE Init parameters quoi thisform.oldselect=select() if empty(quoi) thisform.dateencours=date() else thisform.dateencours=quoi endif ThisForm.Spinner1.value=year(thisform.dateencours) ThisForm.Cbo1.listindex=month(thisform.dateencours) ThisForm.Cbo1.value=month(thisform.dateencours) ThisForm.Text3.value=thisform.dateencours ENDPROC PROCEDURE Unload select (thisform.oldselect) queldat=thisform.retour return thisform.retour ENDPROC PROCEDURE contai11.MouseMove LPARAMETERS nbutton,nshift,nxcoord,nycoord * ENDPROC PROCEDURE command1.Click ThisForm.Cbo1.value=iif(ThisForm.Cbo1.value>1,thisform.Cbo1.value-1,12) ThisForm.Spinner1.value=iif(ThisForm.Cbo1.value=12,ThisForm.Spinner1.value-1,ThisForm.Spinner1.value) thisform.refresh() ENDPROC PROCEDURE command2.Click ThisForm.Cbo1.value=iif(ThisForm.Cbo1.value<12,thisform.Cbo1.value+1,1) ThisForm.Spinner1.value=iif(ThisForm.Cbo1.value=1,ThisForm.Spinner1.value+1,ThisForm.Spinner1.value) thisform.refresh() ENDPROC PROCEDURE text1.Refresh private jourch dimension calend(42) for i=1 to 42 calend(i)=space(10) next i STORE SET('FDOW') TO gnPjds && Enregistre la valeur courante SET FDOW TO 2 && Définit dimanche comme le premier jour de la semaine, ce qui est la valeur par défaut for i = 1 to ThisForm.Commandgroup1.buttoncount cmd="ThisForm.Commandgroup1.Command"+alltrim(str(i))+".caption=' '" &cmd next I ThisForm.Text1.value=ctod("01/"+alltrim(str(This.Parent.Cbo1.value))+"/"+alltrim(str(This.Parent.Spinner1.value))) finmois=ctod("01/"+alltrim(str(iif(This.Parent.Cbo1.value=12,0,This.Parent.Cbo1.value)+1))+"/"+alltrim(str(iif(This.Parent.Cbo1.value=12,This.Parent.Spinner1.value+1,This.Parent.Spinner1.value )))) jourch=dow(thisform.text1.value,2) j=1 for i = 1 to finmois-thisform.text1.value cmd="ThisForm.Commandgroup1.Command"+alltrim(str((jourch-1)+i))+".caption=alltrim(str(i))" &cmd cmd="ThisForm.Commandgroup1.Command"+alltrim(str((jourch-1)+i))+".forecolor=rgb(0,0,0)" &cmd cmd="ThisForm.Commandgroup1.Command"+alltrim(str((jourch-1)+i))+".fontbold=.f." &cmd if i==day(thisform.dateencours).and. ThisForm.Cbo1.value=month(thisform.dateencours) .and. ThisForm.Spinner1.value=year(thisform.dateencours) cmd="ThisForm.Commandgroup1.Command"+alltrim(str((jourch-1)+i))+".forecolor=rgb(0,0,128)" &cmd cmd="ThisForm.Commandgroup1.Command"+alltrim(str((jourch-1)+i))+".fontbold=.T." &cmd endif next I SET FDOW TO &gnPjds && Restaure le jour d'origine ENDPROC PROCEDURE cbo1.InteractiveChange ThisForm.Text1.refresh() thisform.refresh() ENDPROC PROCEDURE cbo1.Init this.listindex=month(date()) ENDPROC PROCEDURE spinner1.InteractiveChange ThisForm.Text1.refresh() thisform.refresh() ENDPROC PROCEDURE commandgroup1.Command1.Click if this.caption#"" ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value))) endif ENDPROC PROCEDURE commandgroup1.Command1.Refresh if this.caption="" this.enabled=.f. else THIS.enabled=.t. endif ENDPROC PROCEDURE commandgroup1.Command2.Click if this.caption#"" ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value))) endif ENDPROC PROCEDURE commandgroup1.Command2.Refresh if this.caption="" this.enabled=.f. else THIS.enabled=.t. endif ENDPROC PROCEDURE commandgroup1.Command3.Click if this.caption#"" ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value))) endif ENDPROC PROCEDURE commandgroup1.Command3.Refresh if this.caption="" this.enabled=.f. else THIS.enabled=.t. endif ENDPROC PROCEDURE commandgroup1.Command4.Click if this.caption#"" ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value))) endif ENDPROC PROCEDURE commandgroup1.Command4.Refresh if this.caption="" this.enabled=.f. else THIS.enabled=.t. endif ENDPROC PROCEDURE commandgroup1.Command5.Click if this.caption#"" ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value))) endif ENDPROC PROCEDURE commandgroup1.Command5.Refresh if this.caption="" this.enabled=.f. else THIS.enabled=.t. endif ENDPROC PROCEDURE commandgroup1.Command6.Click if this.caption#"" ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value))) endif ENDPROC PROCEDURE commandgroup1.Command6.Refresh if this.caption="" this.enabled=.f. else THIS.enabled=.t. endif ENDPROC PROCEDURE commandgroup1.Command7.Click if this.caption#"" ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value))) endif ENDPROC PROCEDURE commandgroup1.Command7.Refresh if this.caption="" this.enabled=.f. else THIS.enabled=.t. endif ENDPROC PROCEDURE commandgroup1.Command8.Click if this.caption#"" ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value))) endif ENDPROC PROCEDURE commandgroup1.Command8.Refresh if this.caption="" this.enabled=.f. else THIS.enabled=.t. endif ENDPROC PROCEDURE commandgroup1.Command9.Click if this.caption#"" ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value))) endif ENDPROC PROCEDURE commandgroup1.Command9.Refresh if this.caption="" this.enabled=.f. else THIS.enabled=.t. endif ENDPROC PROCEDURE commandgroup1.Command10.Click if this.caption#"" ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value))) endif ENDPROC PROCEDURE commandgroup1.Command10.Refresh if this.caption="" this.enabled=.f. else THIS.enabled=.t. endif ENDPROC PROCEDURE commandgroup1.Command11.Click if this.caption#"" ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value))) endif ENDPROC PROCEDURE commandgroup1.Command11.Refresh if this.caption="" this.enabled=.f. else THIS.enabled=.t. endif ENDPROC PROCEDURE commandgroup1.Command12.Click if this.caption#"" ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value))) endif ENDPROC PROCEDURE commandgroup1.Command12.Refresh if this.caption="" this.enabled=.f. else THIS.enabled=.t. endif ENDPROC PROCEDURE commandgroup1.Command13.Click if this.caption#"" ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value))) endif ENDPROC PROCEDURE commandgroup1.Command13.Refresh if this.caption="" this.enabled=.f. else THIS.enabled=.t. endif ENDPROC PROCEDURE commandgroup1.Command14.Click if this.caption#"" ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value))) endif ENDPROC PROCEDURE commandgroup1.Command14.Refresh if this.caption="" this.enabled=.f. else THIS.enabled=.t. endif ENDPROC PROCEDURE commandgroup1.Command15.Click if this.caption#"" ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value))) endif ENDPROC PROCEDURE commandgroup1.Command15.Refresh if this.caption="" this.enabled=.f. else THIS.enabled=.t. endif ENDPROC PROCEDURE commandgroup1.Command16.Click if this.caption#"" ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value))) endif ENDPROC PROCEDURE commandgroup1.Command16.Refresh if this.caption="" this.enabled=.f. else THIS.enabled=.t. endif ENDPROC PROCEDURE commandgroup1.Command17.Click if this.caption#"" ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value))) endif ENDPROC PROCEDURE commandgroup1.Command17.Refresh if this.caption="" this.enabled=.f. else THIS.enabled=.t. endif ENDPROC PROCEDURE commandgroup1.Command18.Click if this.caption#"" ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value))) endif ENDPROC PROCEDURE commandgroup1.Command18.Refresh if this.caption="" this.enabled=.f. else THIS.enabled=.t. endif ENDPROC PROCEDURE commandgroup1.Command19.Click if this.caption#"" ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value))) endif ENDPROC PROCEDURE commandgroup1.Command19.Refresh if this.caption="" this.enabled=.f. else THIS.enabled=.t. endif ENDPROC PROCEDURE commandgroup1.Command20.Click if this.caption#"" ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value))) endif ENDPROC PROCEDURE commandgroup1.Command20.Refresh if this.caption="" this.enabled=.f. else THIS.enabled=.t. endif ENDPROC PROCEDURE commandgroup1.Command21.Click if this.caption#"" ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value))) endif ENDPROC PROCEDURE commandgroup1.Command21.Refresh if this.caption="" this.enabled=.f. else THIS.enabled=.t. endif ENDPROC PROCEDURE commandgroup1.Command22.Click if this.caption#"" ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value))) endif ENDPROC PROCEDURE commandgroup1.Command22.Refresh if this.caption="" this.enabled=.f. else THIS.enabled=.t. endif ENDPROC PROCEDURE commandgroup1.Command23.Click if this.caption#"" ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value))) endif ENDPROC PROCEDURE commandgroup1.Command23.Refresh if this.caption="" this.enabled=.f. else THIS.enabled=.t. endif ENDPROC PROCEDURE commandgroup1.Command24.Click if this.caption#"" ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value))) endif ENDPROC PROCEDURE commandgroup1.Command24.Refresh if this.caption="" this.enabled=.f. else THIS.enabled=.t. endif ENDPROC PROCEDURE commandgroup1.Command25.Click if this.caption#"" ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value))) endif ENDPROC PROCEDURE commandgroup1.Command25.Refresh if this.caption="" this.enabled=.f. else THIS.enabled=.t. endif ENDPROC PROCEDURE commandgroup1.Command26.Click if this.caption#"" ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value))) endif ENDPROC PROCEDURE commandgroup1.Command26.Refresh if this.caption="" this.enabled=.f. else THIS.enabled=.t. endif ENDPROC PROCEDURE commandgroup1.Command27.Click if this.caption#"" ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value))) endif ENDPROC PROCEDURE commandgroup1.Command27.Refresh if this.caption="" this.enabled=.f. else THIS.enabled=.t. endif ENDPROC PROCEDURE commandgroup1.Command28.Click if this.caption#"" ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value))) endif ENDPROC PROCEDURE commandgroup1.Command28.Refresh if this.caption="" this.enabled=.f. else THIS.enabled=.t. endif ENDPROC PROCEDURE commandgroup1.Command29.Click if this.caption#"" ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value))) endif ENDPROC PROCEDURE commandgroup1.Command29.Refresh if this.caption="" this.enabled=.f. else THIS.enabled=.t. endif ENDPROC PROCEDURE commandgroup1.Command30.Click if this.caption#"" ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value))) endif ENDPROC PROCEDURE commandgroup1.Command30.Refresh if this.caption="" this.enabled=.f. else THIS.enabled=.t. endif ENDPROC PROCEDURE commandgroup1.Command31.Click if this.caption#"" ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value))) endif ENDPROC PROCEDURE commandgroup1.Command31.Refresh if this.caption="" this.enabled=.f. else THIS.enabled=.t. endif ENDPROC PROCEDURE commandgroup1.Command32.Click if this.caption#"" ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value))) endif ENDPROC PROCEDURE commandgroup1.Command32.Refresh if this.caption="" this.enabled=.f. else THIS.enabled=.t. endif ENDPROC PROCEDURE commandgroup1.Command33.Click if this.caption#"" ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value))) endif ENDPROC PROCEDURE commandgroup1.Command33.Refresh if this.caption="" this.enabled=.f. else THIS.enabled=.t. endif ENDPROC PROCEDURE commandgroup1.Command34.Click if this.caption#"" ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value))) endif ENDPROC PROCEDURE commandgroup1.Command34.Refresh if this.caption="" this.enabled=.f. else THIS.enabled=.t. endif ENDPROC PROCEDURE commandgroup1.Command35.Click if this.caption#"" ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value))) endif ENDPROC PROCEDURE commandgroup1.Command35.Refresh if this.caption="" this.enabled=.f. else THIS.enabled=.t. endif ENDPROC PROCEDURE commandgroup1.Command36.Click if this.caption#"" ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value))) endif ENDPROC PROCEDURE commandgroup1.Command36.Refresh if this.caption="" this.enabled=.f. else THIS.enabled=.t. endif ENDPROC PROCEDURE commandgroup1.Command37.Click if this.caption#"" ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value))) endif ENDPROC PROCEDURE commandgroup1.Command37.Refresh if this.caption="" this.enabled=.f. else THIS.enabled=.t. endif ENDPROC PROCEDURE commandgroup1.Command38.Click if this.caption#"" ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value))) endif ENDPROC PROCEDURE commandgroup1.Command38.Refresh if this.caption="" this.enabled=.f. else THIS.enabled=.t. endif ENDPROC PROCEDURE commandgroup1.Command39.Click if this.caption#"" ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value))) endif ENDPROC PROCEDURE commandgroup1.Command39.Refresh if this.caption="" this.enabled=.f. else THIS.enabled=.t. endif ENDPROC PROCEDURE commandgroup1.Command40.Click if this.caption#"" ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value))) endif ENDPROC PROCEDURE commandgroup1.Command40.Refresh if this.caption="" this.enabled=.f. else THIS.enabled=.t. endif ENDPROC PROCEDURE commandgroup1.Command41.Click if this.caption#"" ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value))) endif ENDPROC PROCEDURE commandgroup1.Command41.Refresh if this.caption="" this.enabled=.f. else THIS.enabled=.t. endif ENDPROC PROCEDURE commandgroup1.Command42.Click if this.caption#"" ThisForm.Text3.value= ctod(alltrim(this.caption)+'/'+alltrim(str(ThisForm.Cbo1.value))+'/'+alltrim(str(ThisForm.Spinner1.value))) endif ENDPROC PROCEDURE commandgroup1.Command42.Refresh if this.caption="" this.enabled=.f. else THIS.enabled=.t. endif ENDPROC PROCEDURE text3.ProgrammaticChange ThisForm.Bouton21.click() ENDPROC PROCEDURE text3.KeyPress LPARAMETERS nKeyCode, nShiftAltCtrl ? nkeycode ENDPROC PROCEDURE bouton21.Click thisform.release ENDPROC ENDDEFINE * -- EndDefine: choixdate ************************************************* * DEFINE CLASS contai1 AS container Width = 200 Height = 200 Picture = "" BorderWidth = 3 SpecialEffect = 1 BackColor = RGB(0,128,192) Name = "contai1" PROCEDURE MouseMove LPARAMETERS nButton, nShift, nXCoord, nYCoord thisform.message.value="" ENDPROC ENDDEFINE
	Commentaires
	Aucun commentaire enregistré ...

un autre calendrier

Contributions > 01 - PRG : Programmation > Temps - heures - Dates - Calendriers