切换按钮能不能显示不同的文字？

zx994398

意思就是按下和弹起的时候显示不同的文字？

naozhong

谢谢，长见识了

tz-chf

第3楼的用true和false比较好，再改一下

If Me.编辑 Then

   Me.编辑.Caption = "禁止编辑"

else

   Me.编辑.Caption = "允许编辑"

end if

无忧

Private Sub 编辑_Click()
If Me.编辑.Caption = "禁止编辑" Then  
Me.编辑.Caption = "允许编辑"
else
Me.编辑.Caption = "禁止编辑"
end if
End Sub

这样写就可以了！不用别的事件

zx994398

谢谢，我试试！

为什么不可以，keyup事件和keydown事件为什么实现不了？

我是这样实现的

Private Sub 编辑_Click()
If Me.编辑 = True Then Me.编辑.Caption = "禁止编辑"
If Me.编辑 = False Then Me.编辑.Caption = "允许编辑"
End Sub

是不是这样？有没有别的好方法？

[此贴子已经被作者于2006-5-5 15:50:43编辑过]

一点通

可以的,用代码更改Caption(标题)就行了