读书人

再请问触发有关问题

发布时间: 2012-02-05 12:07:15 作者: rapoo

再请教触发问题?
DEFINE CLASS myhandler AS Session
PROCEDURE MouseDown
LPARAMETERS nButton, nShift, nXCoord, nYCoord
THISFORM.ACTIVECONTROL.NewObject( 'AA ', 'B ', 'ABC ')
THISFORM.ACTIVECONTROL.AA.VISIBLE=.T.
ENDPROC
ENDDEFINE
*THISFORM.ACTIVECONTROL.NewObject( 'AA ', 'B ', 'ABC ')
*THISFORM.ACTIVECONTROL.AA.VISIBLE=.T.
*abc.vcx
*现在不能显示

[解决办法]
你先正常调试

THISFORM.NewObject( 'AA ', 'B ', 'ABC ')
THISFORM.AA.VISIBLE=.T.


看看能显示吗?如果能是这段
THISFORM.ACTIVECONTROL.NewObject( 'AA ', 'B ', 'ABC ')
THISFORM.ACTIVECONTROL.AA.VISIBLE=.T.
有问题,
如果不能显示就是NewObject有问题。

读书人网 >VFP

热点推荐