VFP 愛用者社區

[forest]

有没有象VB中的语法
for each ctl in form.controls

next ctl

[syntech]

就 FORM.CONTROLS

HELP 很重要

[CCB2000]

please reference:

DEFINE class custom_setreadonly AS custom

FUNCTION savereadonly

PARAMETER q_container,m.q_containername

* q_container =
* m.q_containername =

this.setreadonly("SAVE",q_container,m.q_containername)

RETU

* END OF FUNCTION SAVEREADONLY.

FUNCTION setreadonly

PARAMETER m.q_readonly,q_container,m.q_containername

* m.q_readonly =
* q_container =
* m.q_containername =

IF TYPE("m.q_containername")#"C"
m.q_containername=""
ENDI

IF ALLTRIM(m.q_containername)==""
q_container=thisform
m.q_containername="THISFORM"
ENDI

IF !(TYPE("q_container")="O".AND.!isnull(q_container))
RETU
ENDI

PRIVATE q_controlparent,m.q_controlparentname
q_controlparent=q_container
m.q_controlparentname=m.q_containername

IF UPPE(ALLTRIM(q_controlparent.class))==UPPE(ALLTRIM("Custom_setreadonly"))
RETU
ENDI

PRIVATE m.q_ctrlcount
m.q_ctrlcount=0
DO CASE
CASE UPPE(ALLTRIM(q_controlparent.baseclass))==UPPE(ALLTRIM("Pageframe"))
m.q_ctrlcount=q_controlparent.pagecount
PRIVATE m.q_nn
m.q_nn=1
DO WHILE m.q_nn<=m.q_ctrlcount
this.setreadonly(m.q_readonly,q_controlparent.pages(m.q_nn),m.q_controlparentname+".PAGES("+LTRIM(STR(m.q_nn,64))+")")
m.q_nn=m.q_nn+1
ENDDO
CASE UPPE(ALLTRIM(q_controlparent.baseclass))==UPPE(ALLTRIM("Optiongroup")).OR.;
UPPE(ALLTRIM(q_controlparent.baseclass))==UPPE(ALLTRIM("Commandgroup"))
m.q_ctrlcount=q_controlparent.buttoncount
PRIVATE m.q_nn
m.q_nn=1
DO WHILE m.q_nn<=m.q_ctrlcount
this.setreadonly(m.q_readonly,q_controlparent.buttons(m.q_nn),m.q_controlparentname+".BUTTONS("+LTRIM(STR(m.q_nn,64))+")")
m.q_nn=m.q_nn+1
ENDDO
CASE UPPE(ALLTRIM(q_controlparent.baseclass))==UPPE(ALLTRIM("Grid"))
m.q_ctrlcount=q_controlparent.columncount
PRIVATE m.q_nn
m.q_nn=1
DO WHILE m.q_nn<=m.q_ctrlcount
this.setreadonly(m.q_readonly,q_controlparent.columns(m.q_nn),m.q_controlparentname+".COLUMNS("+LTRIM(STR(m.q_nn,64))+")")
m.q_nn=m.q_nn+1
ENDDO
CASE UPPE(ALLTRIM(q_controlparent.baseclass))==UPPE(ALLTRIM("Column"))
m.q_ctrlcount=q_controlparent.controlcount
PRIVATE m.q_nn
m.q_nn=1
DO WHILE m.q_nn<=m.q_ctrlcount
this.setreadonly(m.q_readonly,q_controlparent.controls(m.q_nn),m.q_controlparentname+".CONTROLS("+LTRIM(STR(m.q_nn,64))+")")
m.q_nn=m.q_nn+1
ENDDO
IF UPPE(ALLTRIM(q_controlparent.baseclass))==UPPE(ALLTRIM("Column"))
DO CASE
CASE TYPE("m.q_readonly")="C".AND.UPPE(ALLTRIM(m.q_readonly))==UPPE(ALLTRIM("SAVE"))
IF TYPE("q_controlparent.READONLY")="L"
q_controlparent.addproperty("f_readonlydata")
q_controlparent.f_readonlydata=q_controlparent.readonly
ENDI
CASE TYPE("m.q_readonly")="L".AND.m.q_readonly=.T.
IF TYPE("q_controlparent.READONLY")="L"
q_controlparent.readonly=.T.
ENDI
CASE TYPE("m.q_readonly")="L".AND.!m.q_readonly=.T.
IF TYPE("q_controlparent.READONLY")="L"
IF TYPE("q_controlparent.f_readonlydata")="L"
q_controlparent.readonly=q_controlparent.f_readonlydata
ENDI
ENDI
ENDC
ENDI
CASE TYPE("q_controlparent.CONTROLCOUNT")="N"
m.q_ctrlcount=q_controlparent.controlcount
PRIVATE m.q_nn
m.q_nn=1
DO WHILE m.q_nn<=m.q_ctrlcount
this.setreadonly(m.q_readonly,q_controlparent.controls(m.q_nn),m.q_controlparentname+".CONTROLS("+LTRIM(STR(m.q_nn,64))+")")
m.q_nn=m.q_nn+1
ENDDO
OTHER
IF UPPE(ALLTRIM(q_controlparent.baseclass))==UPPE(ALLTRIM("CheckBox")).OR.;
UPPE(ALLTRIM(q_controlparent.baseclass))==UPPE(ALLTRIM("ComboBox")).OR.;
UPPE(ALLTRIM(q_controlparent.baseclass))==UPPE(ALLTRIM("EditBox")).OR.;
UPPE(ALLTRIM(q_controlparent.baseclass))==UPPE(ALLTRIM("Spinner")).OR.;
UPPE(ALLTRIM(q_controlparent.baseclass))==UPPE(ALLTRIM("TextBox"))
DO CASE
CASE TYPE("m.q_readonly")="C".AND.UPPE(ALLTRIM(m.q_readonly))==UPPE(ALLTRIM("SAVE"))
IF TYPE("q_controlparent.READONLY")="L"
q_controlparent.addproperty("f_readonlydata")
q_controlparent.f_readonlydata=q_controlparent.readonly
ENDI
CASE TYPE("m.q_readonly")="L".AND.m.q_readonly=.T.
IF TYPE("q_controlparent.READONLY")="L"
q_controlparent.readonly=.T.
ENDI
CASE TYPE("m.q_readonly")="L".AND.!m.q_readonly=.T.
IF TYPE("q_controlparent.READONLY")="L"
IF TYPE("q_controlparent.f_readonlydata")="L"
q_controlparent.readonly=q_controlparent.f_readonlydata
ENDI
ENDI
ENDC
ENDI
IF UPPE(ALLTRIM(q_controlparent.baseclass))==UPPE(ALLTRIM("*CheckBox")).OR.;
UPPE(ALLTRIM(q_controlparent.baseclass))==UPPE(ALLTRIM("ComboBox")).OR.;
UPPE(ALLTRIM(q_controlparent.baseclass))==UPPE(ALLTRIM("*Spinner")).OR.;
UPPE(ALLTRIM(q_controlparent.baseclass))==UPPE(ALLTRIM("OLEBoundControl")).OR.;
UPPE(ALLTRIM(q_controlparent.baseclass))==UPPE(ALLTRIM("OptionButton"))
DO CASE
CASE TYPE("m.q_readonly")="C".AND.UPPE(ALLTRIM(m.q_readonly))==UPPE(ALLTRIM("SAVE"))
IF TYPE("q_controlparent.ENABLED")="L"
q_controlparent.addproperty("f_enableddata")
q_controlparent.f_enableddata=q_controlparent.enabled
ENDI
CASE TYPE("m.q_readonly")="L".AND.m.q_readonly=.T.
IF TYPE("q_controlparent.ENABLED")="L"
q_controlparent.enabled=.F.
ENDI
CASE TYPE("m.q_readonly")="L".AND.!m.q_readonly=.T.
IF TYPE("q_controlparent.ENABLED")="L"
IF TYPE("q_controlparent.f_enableddata")="L"
q_controlparent.enabled=q_controlparent.f_enableddata
ENDI
ENDI
ENDC
ENDI
IF UPPE(ALLTRIM(q_controlparent.baseclass))==UPPE(ALLTRIM("OLEControl"))
DO CASE
CASE TYPE("m.q_readonly")="C".AND.UPPE(ALLTRIM(m.q_readonly))==UPPE(ALLTRIM("SAVE"))
IF TYPE("q_controlparent.ENABLED")="L"
q_controlparent.addproperty("f_enableddata")
q_controlparent.f_enableddata=q_controlparent.enabled
ENDI
CASE TYPE("m.q_readonly")="L".AND.m.q_readonly=.T.
IF TYPE("q_controlparent.ENABLED")="L"
q_controlparent.enabled=.F.
ENDI
IF TYPE("q_controlparent.OBJECT.ENABLED")="L"
q_controlparent.object.enabled=.F.
ENDI
CASE TYPE("m.q_readonly")="L".AND.!m.q_readonly=.T.
IF TYPE("q_controlparent.ENABLED")="L"
IF TYPE("q_controlparent.f_enableddata")="L"
q_controlparent.enabled=q_controlparent.f_enableddata
ENDI
ENDI
IF TYPE("q_controlparent.OBJECT.ENABLED")="L"
IF TYPE("q_controlparent.f_enableddata")="L"
q_controlparent.object.enabled=q_controlparent.f_enableddata
ENDI
ENDI
ENDC
ENDI
ENDCASE

RETU

* END OF FUNCTION SETREADONLY.

enddefine