Returns the immediate descendants of the specified class. This feature is provided as a convenience to you, but it has not yet been thoroughly tested.
ldWinSubClass = GetSubClasses (dWinClass)
Variable | Description |
---|---|
ldWinSubClass | The names of the descendent classes of dWinClass or NULL, if none. LIST OF DATACLASS. |
dWinClas | The class whose descendant classes you want to identify. DATACLASS. |
[ ] //My declarations [ ] window MainWin TestApplication [-] window DialogBox xCheckBox [ ] [-] main() [ ] LIST OF WINDOW lw = {TestApplication, xCheckBox} [ ] WINDOW w [-] for each w in lw [ ] RelatedClasses(w) [ ] [-] testcase RelatedClasses(WINDOW w) appstate none [ ] ResPrintList ("Class is: {ClassOf(w)}, Subclasses are:", GetSubClasses(ClassOf(w))) [ ] [ ] // Testcase returns for TestApplication and xCheckBox: [ ] // Class is: MainWin, Subclasses are: {VBMainForm, VBMDIForm} [ ] // Class is: DialogBox, Subclasses are: {MessageBoxClass, VBForm}