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

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

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

易服

小大 1楼 | 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编辑过]

易服

小大 2楼 | 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

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

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