窗口按键的标题可否动态显示？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 窗口按键的标题可否动态显示？

共有13649人关注过本帖树形打印复制链接主题：窗口按键的标题可否动态显示？

pc005637

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1038 积分：12915 威望：0 精华：0 注册：2011/5/29 15:19:00

窗口按键的标题可否动态显示？ 发帖心情

Post By：2012/1/21 11:16:00 [只看该作者]

有数据表中有一列：列名"锁定"，取值为"未锁定"和"已锁定"。

建立一个窗口，一个按键，作用为切换"锁定"列的状态。

能否实现以下效果：

点击一下，可以在"已锁定"和"未锁定"之间切换，而且按键的标题也可以动态显示出"已锁定"和"未锁定"的字样，甚至显示不同的颜色。

谢谢指点。

don

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1812 积分：12999 威望：0 精华：14 注册：2008/10/11 18:07:00

Post By：2012/1/21 12:03:00 [只看该作者]

Dim cl as Col = Tables("表名").Cols("锁定")

Dim bn as Boolean =cl .AllowEdit

e.sender.text = iif(e.sender.text ="未锁定","已锁定","未锁定")

e.sender.BackColor = iif(e.sender.BackColor =Color.Red,Color.Green,Color.Red)

cl.AllowEdit = Not bn

程兴刚

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：7258 积分：40773 威望：0 精华：16 注册：2008/8/31 23:23:00

Post By：2012/1/21 12:07:00 [只看该作者]

CurrentTable.Current("锁定") ＝ not CurrentTable.Current("锁定")

if CurrentTable.Current("锁定") ＝ true

e.Form.Controls("按钮").text ＝ "解除锁定"

else

e.Form.Controls("按钮").text ＝ "锁定"

end if

pc005637

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1038 积分：12915 威望：0 精华：0 注册：2011/5/29 15:19:00

回复：（程兴刚）CurrentTable.Current("锁定") ＝ no... 发帖心情

Post By：2012/1/21 12:25:00 [只看该作者]

弱弱地问一下，上面的代码写在哪个事件里面？图片点击可在新窗口打开查看

程兴刚

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：7258 积分：40773 威望：0 精华：16 注册：2008/8/31 23:23:00

Post By：2012/1/21 13:46:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目7.table

易服

小大 6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：787 积分：6349 威望：0 精华：0 注册：2008/9/1 8:26:00

Post By：2012/1/21 22:25:00 [只看该作者]

以下是引用don在2012-1-21 12:03:00的发言：

Dim cl as Col = Tables("表名").Cols("锁定")

Dim bn as Boolean =cl .AllowEdit

e.sender.text = iif(e.sender.text ="未锁定","已锁定","未锁定")

e.sender.BackColor = iif(e.sender.BackColor =Color.Red,Color.Green,Color.Red)

cl.AllowEdit = Not bn

按钮虽可切换包括颜色但并未锁定/解锁

下载信息 [文件大小：下载次数： ]
点击浏览该文件:一键双用.table

方法三

Dim chk As WinForm.CheckBox
chk = Forms("窗口1").Controls("CheckBox1")
If chk.Checked = True Then
chk.text= "锁定"
CurrentTable.Current("锁定") = False
End If

If chk.Checked = False Then
chk.text= "解锁"
CurrentTable.Current("锁定") = True
End If

[此贴子已经被作者于2012-1-21 22:30:19编辑过]

程兴刚

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：7258 积分：40773 威望：0 精华：16 注册：2008/8/31 23:23:00

Post By：2012/1/22 9:17:00 [只看该作者]

再完善一下：

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目7.table

易服

小大 8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：787 积分：6349 威望：0 精华：0 注册：2008/9/1 8:26:00

Post By：2012/1/22 18:58:00 [只看该作者]

这个较简单一个按钮就行，能满足楼主要求

CurrentTable.Current("锁定") = not CurrentTable.Current("锁定")
If CurrentTable.Current("锁定") = False
    e.Form.Controls("Button1").text = "解除锁定"
    e.sender.text = iif(e.sender.text ="解除锁定","锁定","解除锁定")
    e.sender.BackColor = iif(e.sender.BackColor =Color.Red,Color.Green,Color.Red)
Else
    e.Form.Controls("Button1").text = "锁定"
    e.sender.text = iif(e.sender.text ="锁定","解除锁定","锁定")
    e.sender.BackColor = iif(e.sender.BackColor =Color.Red,Color.Green,Color.Red)
End If

下一主题 >> << 上一主题

主题：窗口按键的标题可否动态显示？