Foxtable(狐表)用户栏目专家坐堂 → [求助]窗口设计时,能不能动态改变控件属性(已解决)


  共有11708人关注过本帖树形打印复制链接

主题:[求助]窗口设计时,能不能动态改变控件属性(已解决)

帅哥哟,离线,有人找我吗?
dlovef
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:172 积分:1323 威望:0 精华:0 注册:2011/6/6 12:22:00
[求助]窗口设计时,能不能动态改变控件属性(已解决)  发帖心情 Post By:2011/6/21 14:14:00 [只看该作者]

如题,窗口设计时,能不能动态改变控件属性。譬如,传统编辑方式.table的系统例子中,在编辑窗口中,我希望在到达最后一条时,【最末条】按钮变为不可用,或者更改了内容后,【上一条】等按钮变为不可用。
有没有可能实现?
[此贴子已经被作者于2011-6-21 16:08:15编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
hhbb
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:等待验证 帖子:386 积分:2482 威望:0 精华:1 注册:2011/5/10 11:13:00
  发帖心情 Post By:2011/6/21 14:16:00 [只看该作者]

Enabled

逻辑型,返回或者设置控件是否可用。
默认为True,如果设为False,控件将不会对用户的操作作出响应,也就是不可用。

示例

例如窗口中有一个Button(按钮)的名称为“btnAdd”,希望该Button对于普通用户不可用,可以在窗口的AfterLoad事件中加入如下的代码:

If User.Type = UserTypeEnum.User Then
    e.Form.Controls(
"btnAdd").Enabled = False
End
If


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/6/21 14:26:00 [只看该作者]

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目70.table


 回到顶部
帅哥哟,离线,有人找我吗?
dlovef
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:172 积分:1323 威望:0 精华:0 注册:2011/6/6 12:22:00
  发帖心情 Post By:2011/6/21 15:21:00 [只看该作者]

谢谢hhbb和狐爸。狐爸的实现更接近于我想问的问题。
但是还有一点疑问,狐爸的例子中,判断代码是放在Table控件的PositionChanged中的。可是假如像传统编辑方式.table的系统例子中没有表控制,而是用窗口进行的显示,判断代码应该放在哪个事件中呢?

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/6/21 15:42:00 [只看该作者]

一样,例如要根据表A判断,在表A的PositionChange事件判断,不过要加一行代码,判断此窗口是否打开:

 

 

If Forms("窗口1").Opened Then
    forms("窗口1").Controls("Button1").Enabled =(e.Table.Position > 0 )
    forms("窗口1").Controls("Button2").Enabled =(e.Table.Position < e.Table.Rows.Count -1)
    forms("窗口1").Controls("Button3").Enabled =(e.Table.Position < e.Table.Rows.Count - 1)
    forms("窗口1").Controls("Button4").Enabled =(e.Table.Position > 0)
End If


 回到顶部
帅哥哟,离线,有人找我吗?
dlovef
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:172 积分:1323 威望:0 精华:0 注册:2011/6/6 12:22:00
  发帖心情 Post By:2011/6/21 16:08:00 [只看该作者]

3Q

 回到顶部