Question

vb中能不能通过按钮改变文本框是否可编辑？

就是说通过点击按钮使一个文本框在可编辑和不可编辑之间切换
如果单单这样：
Private Sub button1_Click()
text1.Locked = True
End Sub
是不行的
请指教
暂时不要求切换，只要能从不可编辑转成可编辑就可以了

Answer 1

Private Sub button1_Click()
static x#
x=x+1
if x mod 2=1 then
button1.caption="现在不可编辑！"
text1.Locked = True
elseif x mod 2=0 then
button1.caption="现在可编辑！"
text1.Locked = false
end if
End Sub

请把按钮控件画宽点！我试过了， 可以切换的，当然行了！ （1击就是不可以编辑状态，2击就回到可以编辑状态，3击就又是不可以编辑状态………………!!
可以无限次任意切换！）

Answer 2

我建议不要用locked，用Enabled属性和locked是一个样，没区别，改这个就可以用text1.Enabled=True来设置了，相信我吧

Answer 3

可以定义一个函数，如function ValiedTextBox(vTextBox as TextBox)，当文本框执行粘贴和修改事件时调用。
然后声明一个变量 如 bolLocked as Boolean
当点击按纽后，改变bolLocked的值就可实现这个功能了

Answer 4

4楼的有一个不叫缺陷的缺陷，就是当x超过变量上限之后，程序会崩溃。
最好把代码改成：
Private Sub button1_Click()
if text1.Locked = false then
button1.caption="现在不可编辑！"
text1.Locked = True
else
button1.caption="现在可编辑！"
text1.Locked = false
end if
End Sub

Answer 5

切换是这样:
Private Sub button1_Click()
text1.Locked = not text1.Locked
End Sub
因为.locked=true是不可编辑