pascal10000
Nombre de messages : 812
Localisation : Troyes
Date d'inscription : 05/02/2011
 | | Sujet: option DTP de kgf Dim 29 Mai 2016 - 10:02 | |
| bjr et bon dimanche Klaus y a t' il une erreur dans le source suivant? dès que je veut changé la date de DTP, le texte de l'objet edit inscrit toujours la date d' aujourd’hui pourquoi? merci pour ce renseignement - Code:
-
label change_DTP
dim res%, no_date%,aaaa%,mm%,jj%,mm$,dating$
edit 10 : on_change 10,change_DTP
dll_on "kgf.dll"
' création d'un l'objet DTP date en (30,100)
no_date% = DLL_call6("DTP",1, handle(0),handle(10),30,100,1)
no_date% = DLL_call6("DTP",4, 1,adr(aaaa%),adr(mm%),adr(jj%),1)
end
change_DTP:
mm$=str$(mm%)
if mm%<10 then mm$="0"+str$(mm%)
text 10,str$(jj%)+"/"+mm$+"/"+str$(aaaa%)
return
| |
|
Klaus
Nombre de messages : 12331
Age : 75
Localisation : Ile de France
Date d'inscription : 29/12/2009
| | Sujet: Re: option DTP de kgf Dim 29 Mai 2016 - 10:13 | |
| Ca marchera mieux comme ça: - Code:
-
label change_DTP
dim res%, no_date%,aaaa%,mm%,jj%,mm$,dating$
edit 10 : on_change 10,change_DTP
dll_on "kgf.dll"
' création d'un l'objet DTP date en (30,100)
no_date% = DLL_call6("DTP",1, handle(0),handle(10),30,100,1)
end
change_DTP:
no_date% = DLL_call6("DTP",4, 1,adr(aaaa%),adr(mm%),adr(jj%),1)
mm$=str$(mm%)
if mm%<10 then mm$="0"+str$(mm%)
text 10,str$(jj%)+"/"+mm$+"/"+str$(aaaa%)
return en fait, avec le code 4 de la fonction DTP, on lit le contenu du DTP, au moment de l'appel de la fonction. Il faut donc faire cela dans la routine évènement, pas uniquement juste après la création de l'objet. Sinon, tu n'as effectivement que la valeur par défaut qui est la date du jour... | |
|
pascal10000
Nombre de messages : 812
Localisation : Troyes
Date d'inscription : 05/02/2011
| | Sujet: Re: option DTP de kgf Dim 29 Mai 2016 - 10:17 | |
| merci klaus!
bonne continuation pour kgf! | |
|
Contenu sponsorisé
| | Sujet: Re: option DTP de kgf | |
| |
|
Calendrier