Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
The VFP speed can still improve a lot.
Message
De
14/03/2003 12:38:40
 
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Titre:
The VFP speed can still improve a lot.
Divers
Thread ID:
00765940
Message ID:
00765940
Vues:
66
After to have read vary messages, I would want some comment to this test.

Clear All
Close Databases All
_SCREEN.FontName="COURIER NEW"

PRIVATE a,oArr,nItCount

STORE 500 TO nItCount

Dimension oArr[m.nItCount]

? 'N° : ',m.nItCount

STORE Seconds() To tTime
For a = 1 TO m.nItCount
Store Createobject('FORM_CB') TO oArr[m.a]
ENDFOR
STORE .NULL. TO oArr
? PADR('30 Text Box Class: ',30) + Transform(SECONDS()-m.tTime)

STORE Seconds() To tTime
For a = 1 TO m.nItCount
Store Createobject('FORM_tx') TO oArr[m.a]
ENDFOR
STORE .NULL. TO oArr
? PADR('30 Text Box Class: ',30) + Transform(SECONDS()-m.tTime)

DEFINE CLASS form_cb AS form

Height = 500
Width = 600
Name = "form_cb"

ADD OBJECT combo1 AS combobox WITH Left = 20, Top = 10
ADD OBJECT combo2 AS combobox WITH Left = 20, Top = 40

PROCEDURE Init
RETURN .F.
ENDPROC

ENDDEFINE

DEFINE CLASS form_tx AS form

Height = 500
Width = 600
Name = "form_tx"

ADD OBJECT text01 AS textbox WITH Left = 0, Top = 0
ADD OBJECT text02 AS textbox WITH Left = 0, Top = 20
ADD OBJECT text03 AS textbox WITH Left = 0, Top = 40
ADD OBJECT text04 AS textbox WITH Left = 0, Top = 60
ADD OBJECT text05 AS textbox WITH Left = 0, Top = 80
ADD OBJECT text06 AS textbox WITH Left = 0, Top = 100
ADD OBJECT text07 AS textbox WITH Left = 0, Top = 120
ADD OBJECT text08 AS textbox WITH Left = 0, Top = 140
ADD OBJECT text09 AS textbox WITH Left = 0, Top = 160
ADD OBJECT text10 AS textbox WITH Left = 0, Top = 180
ADD OBJECT text11 AS textbox WITH Left = 110, Top = 0
ADD OBJECT text12 AS textbox WITH Left = 110, Top = 20
ADD OBJECT text13 AS textbox WITH Left = 110, Top = 40
ADD OBJECT text14 AS textbox WITH Left = 110, Top = 60
ADD OBJECT text15 AS textbox WITH Left = 110, Top = 80
ADD OBJECT text16 AS textbox WITH Left = 110, Top = 100
ADD OBJECT text17 AS textbox WITH Left = 110, Top = 120
ADD OBJECT text18 AS textbox WITH Left = 110, Top = 140
ADD OBJECT text19 AS textbox WITH Left = 110, Top = 160
ADD OBJECT text20 AS textbox WITH Left = 110, Top = 180

PROCEDURE Init
RETURN .F.
ENDPROC

ENDDEFINE

The result is that the practical time in order to create a ComboBox
( with rowsource empty ) is medium 10 times the time necessary to create a textBox.

Ok, ComboBox and Spinner is composite object, but 10 times it is difficult to comprise.

Strangely, for a ListBox the time is inferior.

Strangely, now editbox is more fast of textBox.

The optimal Fox Team job carried out from the VFP6 to the VFP7 ( gain 5 times on more control) and now to the VFP8 ( gain 10 times on grid !!! ) makes us to hope that also for Spinner and the ComboBox the time comes reduced.

Hello to All
Fabio
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform