Essai avec ceci
PUBLIC oform1
oform1=NEWOBJECT (« form1 »)
oform1.Show
RETOUR
DÉFINIR LA CLASSE form1 COMME forme
Dessus = -1
Gauche = 1
Taille = 562
Largeur = 997
DoCreate =. T.
Légende = « ma forme de VFP »
Nom = « Form1 »
AJOUTER L'OBJET grid1 COMME grille AVEC ;
ColumnCount = 3 ;
Taille = 361 ;
Gauche = 84 ;
RecordSource = « temp » ;
Dessus = 60 ;
Largeur = 733 ;
Nom = « Grid1 » ;
Column1.ControlSource = « temp.fld » ;
Column1.Name = « Column1 » ;
Column2.ControlSource = « temp.check1 » ;
Column2.Name = « Column2 » ;
Column3.ControlSource = « temp.check2 » ;
Column3.Name = « Column3 »
AJOUTER L'OBJET container1 COMME container1 AVEC ;
Dessus = 432 ;
Gauche = 132 ;
Largeur = 325 ;
Taille = 61 ;
Nom = « Container1 »
Charge de PROCÉDÉ
CRÉER le temp de TABLE (fld c (10), check1 l, check2 l)
POUR i=1 à 1000
INSERTION DANS LES VALEURS de temp (système (2015), COUCHE-POINT () >0.75, COUCHE-POINT () >.75)
ENDFOR
DISPARAISSENT LE DESSUS DANS le temp
ENDPROC
PROCÉDÉ grid1.AfterRowColChange
nColIndex de LPARAMETERS
SI this.RowColChange= 1 OU this.RowColChange= 3
thisform.container1.Refresh
ENDIF
ENDPROC
ENDDEFINE
DÉFINIR LA CLASSE container1 comme récipient
AJOUTER L'OBJET check1 COMME checkbox AVEC ;
Dessus = 12 ;
Gauche = 84 ;
Taille = 17 ;
Largeur = 60 ;
Alignement = 0 ;
Légende = « Check1 » ;
ControlSource = « temp.check1 » ;
Nom = « Check1 »
AJOUTER L'OBJET check2 COMME checkbox AVEC ;
Dessus = 12 ;
Gauche = 180 ;
Taille = 17 ;
Largeur = 60 ;
Alignement = 0 ;
Légende = « Check1 » ;
ControlSource = « temp.check2 » ;
Nom = « Check2 »
ENDDEFINE