如何不用API使文本框属性只读 来源
本站原创 佚名
以下两种方法都可实现：
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
关联文档