begin process at 2008 07 25 19:43:25
1 216 468 membres
421 nouveaux aujourd'hui
14 182 membres club

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

3 commentaire(s) de tmcuh sur des sources sur foxprofr

Le : 29/11/2006 11:37:21
Source : PROGRESBAR
Bon boulot.
Juste pour rappel, il y a une classe déjà faite dans le dossier "foxpro\ffc" : _therm.vcx.


Le : 01/09/2006 09:28:16
Source : CREER UNE TABLE CONTENANT LA LITES COMPLÈTE DES OBJETS CONTENUS DANS UN FORMULAIRE
Function SearchForms
Parameters psNameForm
Local i
i = 0
For Each oFrm In _Screen.Forms && boucle sur chaque fenêtre
i = i +1
If(Alltrim(Upper(oFrm.Name)) = Alltrim(Upper(psNameForm))) && la feuille est trouvé
Exit
Endif
Next
Return i
Endfunc

après tu n'a plus qu'à faire _screen.Forms[SearchForms("nomdelafeuille")].saveas("lstobj.dbf")

Sinon bien joué aumeric, j'avais pas pensé à cette technique xD


Le : 18/05/2006 16:02:35
Source : COULEUR HEXADECIMAL
Merci pour cette proposition mais en testant celà pose un problème :

c_color = "D1010E"
r = evaluate("0x"+substr(c_Color,1,2))
g = evaluate("0x"+substr(c_Color,3,2))
b = evaluate("0x"+substr(c_Color,5,2))
_screen.backcolor = RGB(r,g,b) && le fond est rouge comme la valeur de départ le désigne
? right(TRANSFORM(_screen.BackColor, "@0"),6)  && la couleur renvoyé correspond à du bleu

Il affiche 0E01D1 ... Une propostion?



[ ]

Pub



Appels d'offres

Animation Flash alimen...
Budget : 6 000€
Intranet client pour t...
Budget : 5 000€
Creation portail video
Budget : 3 000€

CalendriCode

Juillet 2008
LMMJVSD
 123456
78910111213
14151617181920
21222324252627
28293031   

Boutique

Boutique de goodies CodeS-SourceS