Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Browse command
Message
De
11/02/2010 12:58:42
 
 
À
11/02/2010 12:46:52
Dragan Nedeljkovich
Now officially retired
Zrenjanin, Serbia
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Titre:
Versions des environnements
Visual FoxPro:
VFP 8
OS:
Vista
Divers
Thread ID:
01448796
Message ID:
01448822
Vues:
51
>>>Hi.
>>>I used this.
>>> BROWSE FIELDS clamed:h="Codigo",medica:h="Producto",precio:h="Precio",catdeme->pordes:p="999%":h="Desc.",lprecio=precio-(precio*(catdeme->pordes/100)):p="99,999.99":h="P./Desc.",sales:h="Sales",unidad:h="Unidad",ubicacion:h="Ubicación" TITLE "Consulta de precios" NOEDIT NOWAIT WINDOW prods IN WINDOW rebeca
>>>
>>>but when i run for first time, the background color change, and hide the "say" labels.
>>>
>>>at second time run this no change the color. ??????
>>
>>You have VFP8 and you use browse? Browse should ONLY be used interactively from the command window, it should NEVER be used in a real application. There is a reason why nobody helps you with problem, and that is that NOBODY uses browse in an application anymore.
>>
>>Look at the calendar, it's 2010 my friend, not 1985. Use a grid, period.
>
>And the browse command is actually just a wrapper around a grid, which is created automatically. At least, we can use "browse ... name oGrd nowait" and then manipulate oGrd just like any other grid.

Actually I use Browse a few places for a quick look up. But I always use the "double browse" technique which is really cool since it gives you a lot of flexibility. Here's a sample
Use (Set("Resource",1)) Again
DEFINE WINDOW FoxWindow FROM 10,10 SIZE 1,1 NAME FoxWindow Font "ariel,14"
FoxWindow.top=50
FoxWindow.left=50
FoxWindow.WIDTH=550 
FoxWindow.HEIGHT=500 
FoxWindow.Caption='Test'
Browse In Window FoxWindow Save Name FoxBrowse nowait
FoxBrowse.left=0
FoxBrowse.top=0
FoxBrowse.width=FoxWindow.width
FoxBrowse.height=FoxWindow.height
FoxBrowse.HighlightStyle= 1
FoxBrowse.HighlightBackColor=0x00ff00
FoxBrowse.setall('DynamicBackColor', 'IIF(Mod(Recno(),2)=0,Rgb(255,255,255),Rgb(170,170,170))')
FoxBrowse.AutoFit()
Activate Window FoxWindow
On Key Label Enter Keyboard '{esc}' Plain 
Browse last
On Key Label ENTER 
Release Windows FoxBrowse
Release Windows FoxWindow
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform