vb_如何锁定文本框中的内容?

Question

请问怎样实现如下功能:     锁定文本框Text1中的内容。按Ctrl+Alt+Z后，文本框解锁，可以修改文本！      当Text1 LostFocus时，文本再度被锁定，使其按Ctrl+Alt+Z后才能修改。请问VB6.0有可能实现此种功能吗？？？
急盼回复。在线等。。

Answer 1

Dim iboolean As Boolean
Private Sub Form_Load()iboolean = True
End SubPrivate Sub Text1_Change()
Debug.Print iboolean
End SubPrivate Sub Text1_GotFocus()
If iboolean = True Then
Text1.Locked = True
Else
Text1.Locked = False
End If
End SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Dim ShiftDown, AltDown, CtrlDown, Txt
   ShiftDown = (Shift And vbShiftMask) > 0
   AltDown = (Shift And vbAltMask) > 0
   CtrlDown = (Shift And vbCtrlMask) > 0
   If KeyCode = vbKeyZ Then   ' 显示键组合.
If CtrlDown And AltDown Then
iboolean = False
Debug.Print iboolean
Text1.Locked = False
End If
End If
If KeyCode = vbKeyReturn Then
Text1.Locked = True
End If
End Sub

Answer 2

增加一点:
Private Sub Text1_LostFocus()
Text1.Locked = True
End Sub

Answer 3

增加的应该是:
Private Sub Text1_LostFocus()
Text1.Locked = True
iboolean = True
End Sub

Answer 4

Private Sub Form_Load()
   Text1.Locked = True
End SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
   If Shift = 6 And KeyCode = 90 Then
      Debug.Print "组合键：Ctrl+Alt+Z"
      Text1.Locked = False
   End If
End SubPrivate Sub Text1_LostFocus()
   Text1.Locked = True
End Sub

Answer 5

老张的代码很好,也很详细,先谢谢了~~~~
现在有一个问题,就是Text1中输入的内容保存不了。如果再次重新打开表格的话，Text1中始终是空的，请问怎么解决？？？有劳了。

Answer 6

写在一个.txt文件里,每次打开时先将它读入 Text1

Answer 7

问题解决了。用GetSetting函数。再次衷心感谢老张的回复~~~