以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  如何能简单的重复执行一组语句？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=131135)
--  作者：pp1210
--  发布时间：2019/2/18 14:20:00
--  如何能简单的重复执行一组语句？
新人请教问题，在窗口操作中，有如下的两组语句需要根据不同的需求执行，如何能简单化？不用每次都把下列语句重复输入
以下内容能通过类似自定义的函数或者模块后调用执行吗？在网站上下载的说明里没看到这部分，请指教
举例
一、设置一批控件不可编辑

TextBox1.locked=true
TextBox3.locked=true
TextBox4.locked=true
DateTimePicker1.locked=true
以上为非规律控件都设置成能显示但不能修改


二、设置一批控件可编辑
TextBox1.locked=false
TextBox3.locked=false
TextBox4.locked=false
DateTimePicker1.locked=false
以上为非规律控件都设置成能显示但不能修改
--  作者：pp1210
--  发布时间：2019/2/18 14:48:00
--  
还得请问一句，哪里能获得完整的控件属性？如果设置控件不可用，是用.locked吗？
--  作者：有点蓝
--  发布时间：2019/2/18 15:59:00
--  
控件的属性，先去帮助把这个控件的帮助看一看，在把【通用成员】看完：http://www.foxtable.com/webhelp/scr/0713.htm


比如有函数，setControls

dim e  = args(0)
Dim value As Boolean = args(1)
e.form.controls("TextBox1").enabled = value 
e.form.controls("TextBox2").enabled = value

设置一批控件不可编辑按钮事件
Functions.Execute("setControls",e,false)

设置一批控件可编辑按钮事件
Functions.Execute("setControls",e,true)