以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  动态控制TextBox的可编辑和不可编辑  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=12832)
--  作者：qixia
--  发布时间：2011/9/16 19:32:00
--  动态控制TextBox的可编辑和不可编辑

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

 

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

 

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

 

 

请教老师，这样的代码如何写？
--  作者：擎天柱
--  发布时间：2011/9/16 19:42:00
--  
这个应该很简单吧
--  作者：qixia
--  发布时间：2011/9/16 19:45:00
--  

擎天柱老师：

 

麻烦你帮忙指教一下可以吗？
--  作者：程兴刚
--  发布时间：2011/9/16 19:51:00
--  
一个按钮就可以！
--  作者：程兴刚
--  发布时间：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

--  作者：擎天柱
--  发布时间：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
--  作者：擎天柱
--  发布时间：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