动态控制TextBox的可编辑和不可编辑 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 动态控制TextBox的可编辑和不可编辑

共有12012人关注过本帖树形打印复制链接主题：动态控制TextBox的可编辑和不可编辑

擎天柱

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

加好友

发短信

等级：二尾狐帖子：542 积分：4243 威望：0 精华：4 注册：2008/9/1 8:27:00

Post By：2011/9/16 19:42:00 [显示全部帖子]

这个应该很简单吧

擎天柱

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

加好友

发短信

等级：二尾狐帖子：542 积分：4243 威望：0 精华：4 注册：2008/9/1 8:27:00

Post By：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

擎天柱

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

加好友

发短信

等级：二尾狐帖子：542 积分：4243 威望：0 精华：4 注册：2008/9/1 8:27:00

Post By：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

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

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