Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Disable all except labels
Message
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
00287091
Message ID:
00287098
Views:
22
Hi Alan,

Try this code:

lnControls = ALEN( THISFORM.Controls )
FOR lnLoop = 1 TO lnControls
IF UPPER( THISFORM.Controls[ lnLoop ].BaseClass ) # "LABEL"
THISFORM.Controls[ lnLoop ].Enabled = .F.

ENDIF && check for all non-label controls
ENDFOR && lnLoop

>What's the best way to disable all of the controls on a form except labels?
>
>TIA
Evan Pauley, MCP
Positronic Technology Systems LLC
Knoxville, TN

If a vegetarian eats vegetables, what does a humanitarian eat?
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform