44.txt

介绍VB里的各种控件的使用方法,窗口控制,图像编程以及OCX等内容,还提供了一个API集供参考.

如何不用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