Commandbutton lcb
int i
int j
j = upperbound(parent.Control)
FOR i = 1 TO j
IF parent.Control[i].TypeOf() = commandbutton! THEN
IF parent.Control[i].ClassName() = "cb_1" THEN
// we got it!
lcb = parent.Control[i]
EXIT
END IF
END IF
NEXT
IF NOT IsNull(lcb) THEN
lcb.enabled = false
lcb.text = "DISABLED"
END IFWritten and compiled by Réal Gagnon ©1998-2005
[ home ]