Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Addobject()
Message
 
À
11/04/2004 12:16:54
Nancy Folsom
Pixel Dust Industries
Washington, États-Unis
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Titre:
Divers
Thread ID:
00893864
Message ID:
00893951
Vues:
26
Hi Nancy,


Thing what I'm investigating here is that all this work if you add a control
to a column in a form designer but work with a hicupp if you do it programmatically.

Evenif it works with setting sparse=.F. I found that using TRY...ENDTRY has minumum property changes effect f.ex.


oform1.grdgriddbf1.column2.Bound = .F.
oform1.grdgriddbf1.column2.ADDOBJECT("check1","checkbox")
With oform1.grdgriddbf1.column2.check1
.Controlsource = ""
.Top = 23
.Left = 13
.Height = 10
.Width = 10
.Caption = "Check1"
.Name = "Check1"
.Visible = .T.
ENDWITH
oform1.grdgriddbf1.column2.Bound = .T.

Generates an error

but next does't and work like control added in form designer

Try
oform1.grdgriddbf1.column2.ADDOBJECT("check1","checkbox")
With oform1.grdgriddbf1.column2.check1
.Controlsource = ""
.Top = 23
.Left = 13
.Height = 10
.Width = 10
.Caption = "Check1"
.Name = "Check1"
.Visible = .T.
ENDWITH
Catch
Endtry


AT
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform