标题：动态控制TextBox的可编辑和不可编辑

1楼

qixia 发表于：2011/9/16 19:32:00

想通过二个按钮，分别控制 TextBox1和TextBox2可以录入内容和不可录入内容

如：点击按钮1，TextBox1和TextBox2为正常，可以录入内容和可以保存内容。

点击按钮2，TextBox1和TextBox2为不可录入内容状态。

请教老师，这样的代码如何写？

2楼

擎天柱 发表于：2011/9/16 19:42:00

这个应该很简单吧

3楼

qixia 发表于：2011/9/16 19:45:00

擎天柱老师：

麻烦你帮忙指教一下可以吗？

4楼

程兴刚 发表于：2011/9/16 19:51:00

一个按钮就可以！

5楼

程兴刚 发表于：2011/9/16 19:54:00

按钮代码：

Forms("窗口1").Controls("TextBox1").Enabled = not Forms("窗口1").Controls("TextBox1").Enabled

Forms("窗口1").Controls("TextBox2").Enabled = not Forms("窗口1").Controls("TextBox2").Enabled

6楼

擎天柱 发表于：2011/9/16 21:08:00

我也不怎么懂的，不过帮助很好看的，我用正统一点的比较好理解一点的：

不要什么按钮1或按钮2，用checkbox，在checkedCHANGED事件里:

With Forms("窗口1")
If .Controls("Checkbox1").Checked=True Then
   .Controls("Textbox1").Enabled=False
   .Controls("Textbox2").Enabled=False
Else
   .Controls("Textbox1").Enabled=True
   .Controls("Textbox2").Enabled=True
End If
End With

7楼

擎天柱 发表于：2011/9/16 21:13:00

借用程版的更方便了：

With Forms("窗口1")
.Controls("Textbox1").Enabled=not .Controls("Checkbox1").Checked

.Controls("Textbox2").Enabled=not .Controls("Checkbox1").Checked

end with

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