VFP中在什么情况下需要向表单添加新方法
展开全部
举列说明1、如果有表格控件想设置不同的列宽度
建立一个新方法setgrid
代码为:
thisform.grid1.column1.width=thisform.grid1.width/10
thisform.grid2.column2.width=thisform.grid2.width/5
然后可以在表单的init调用此方法
thisform.setgrid
thisform.refresh
2、有些时候按添加按钮时修改按钮不可用,退出按钮不可用,保存按钮可用、
还原按钮可用,删除按钮不可用 ,如何能实现这样的效果呢
可以添加新属性formmode,新方法setmode
在setmode方法里写代码为:
formmode=.F.
if thisform.formmode="brow" &&浏览状态下
formmode=".F."
else
Formmode=.T.
endif
**控制表单中文本框控件状态
thisform.setall("readonly",!formmode,"textbox")&&这句话意思是设置表单中所有文本框中可读性为formmode取反,如果formmode为.T. 即不是浏览状态下文本框readonly=.f.即不可读就是文本框可能使用相反如果是浏览状态下文本框只读。。。
**控制表单中的命令按钮状态
thisform.command1.enabled=!formmode &&command1为添加按钮,浏览状态下可用
。。。
在表单的init里调用
thisform.formmode="brow"
thisform.setmode
thisform.refresh
formmode=".t."
建立一个新方法setgrid
代码为:
thisform.grid1.column1.width=thisform.grid1.width/10
thisform.grid2.column2.width=thisform.grid2.width/5
然后可以在表单的init调用此方法
thisform.setgrid
thisform.refresh
2、有些时候按添加按钮时修改按钮不可用,退出按钮不可用,保存按钮可用、
还原按钮可用,删除按钮不可用 ,如何能实现这样的效果呢
可以添加新属性formmode,新方法setmode
在setmode方法里写代码为:
formmode=.F.
if thisform.formmode="brow" &&浏览状态下
formmode=".F."
else
Formmode=.T.
endif
**控制表单中文本框控件状态
thisform.setall("readonly",!formmode,"textbox")&&这句话意思是设置表单中所有文本框中可读性为formmode取反,如果formmode为.T. 即不是浏览状态下文本框readonly=.f.即不可读就是文本框可能使用相反如果是浏览状态下文本框只读。。。
**控制表单中的命令按钮状态
thisform.command1.enabled=!formmode &&command1为添加按钮,浏览状态下可用
。。。
在表单的init里调用
thisform.formmode="brow"
thisform.setmode
thisform.refresh
formmode=".t."
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
thisform.text3.value.=thisform.text1.value..............
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询