Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
How to find where a control is used?
Message
 
General information
Forum:
Visual FoxPro
Category:
Other
Environment versions
Visual FoxPro:
VFP 9 SP1
Miscellaneous
Thread ID:
01214200
Message ID:
01214528
Views:
20
>>
>>Add Files after ActiveProject, e.g.
>>
_VFP.ActiveProject.Files
>>
>>That will teach me for a moment to think before answering.
>
>Adding .Files does the job. But I don't find any references still. In Tamar's code she uses .Type = "K". I believe I use this control in containers only. Do you know if I can change the Type from "K" to "?" to look for containers?
>
>Thank you for your help.
>
>P.S. I don't understand what do you mean by saying "will teach me for a moment ...." You didn't say anything wrong.

I didn't try the code and didn't really read it.

K is for form's only. I also added V for VCX.
FOR EACH oFile in _VFP.ActiveProject.Files 
  IF oFile.Type $ "KV" && form
     USE (oFile.Name) ALIAS __FORM
     SCAN FOR __FORM.Class = 'ccombobox'
         =MESSAGEBOX(__Form.Objname)
     ENDSCAN

     USE IN select("__FORM")
  ENDIF
ENDFOR
If it's not broken, fix it until it is.


My Blog
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform