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

1楼

pc005637 发表于：2012/1/21 11:16:00

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

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

能否实现以下效果：

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

谢谢指点。

2楼

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

3楼

程兴刚 发表于：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

4楼

pc005637 发表于：2012/1/21 12:25:00

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

5楼

程兴刚 发表于：2012/1/21 13:46:00

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

6楼

易服发表于：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楼

程兴刚 发表于：2012/1/22 9:17:00

再完善一下：

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

8楼

易服发表于：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

共8 条记录, 每页显示 10 条, 页签: [1]