如何不用API使文本框属性只读？

来源： 互联网 作者： rocket   2008-03-18/09:35

软件频道 编程学院 VB vb高手 正文

• 属性
• 文本
• 不用
• 如何
• Sub
• Private
• End
• As

以下两种方法都可实现：

Private Sub Text1_GotFocus()
  Text1.Locked = True
End Sub
Private Sub Text1_LostFocus()
  Text1.Locked = False
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, _
Shift As Integer)
  KeyCode = 0
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
  KeyAscii = 0
End Sub