Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Shorter Code...
Message
De
10/06/1998 05:10:05
Mark Hall
Independent Developer & Voip Specialist
Keston, Kent, Royaume Uni
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Titre:
Divers
Thread ID:
00106623
Message ID:
00106624
Vues:
36
>What is the shortes code for this (optimized).
>
>WITH This.MyGrid
> .Column1.Width = 40
> .Column1.Backcolor = RGB(255,255,0)
> .Column2.Width = 40
> .Column2.Backcolor = RGB(255,255,0)
> .Column3.Width = 40
> .Column3.Backcolor = RGB(255,255,0)
> .Column4.Width = 40
> .Column4.Backcolor = RGB(255,255,0)
> .Column5.Width = 40
> .Column5.Backcolor = RGB(255,255,0)
> .Column6.Width = 40
> .Column6.Backcolor = RGB(255,255,0)
> .Column7.Width = 40
> .Column7.Backcolor = RGB(255,255,0)
> .Column8.Width = 40
> .Column8.Backcolor = RGB(255,255,0)
> .Column9.Width = 40
> .Column9.Backcolor = RGB(255,255,0)
> .Column10.Width = 40
> .Column10.Backcolor = RGB(255,255,0)
>ENDWITH
>
>TIA

Hi, you should use the SetAll method, so:

This.MyGrid.SetAll("BackColor", RGB(255, 255, 0), "Column")
This.MyGrid.SetAll("Width", 40, "Column")
Regards
Mark

Microsoft VFP MCP
Menulib - OO Menus for VFP www.hidb.com/menulib
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform