VB Coding Tip: Testing the locked property of a text box

Developer.com content and product recommendations are editorially independent. We may make money when you click on links to our partners. Learn More.

This sample again uses the GetWindowLong API call and the GWL_STYLE constant.

Private Declare Function _
   GetWindowLong _
      Lib "user32" Alias _
   "GetWindowLongA" (ByVal hWnd As Long, _
           ByVal nIndex As Long) As Long
Private Const GWL_STYLE As Long = (-16)
Private Const ES_READONLY As Long = &H800
Private MyStyle As Long
Private Sub Command1_Click()
    Text1.Locked = Not Text1.Locked
End Sub
Private Sub Command2_Click()
    MyStyle = GetWindowLong(Text1.hWnd, _
                            GWL_STYLE)
    If MyStyle And ES_READONLY Then
        MsgBox "Text Box is Locked"
    Else
        MsgBox "Text Box is Unlocked"
    End If
End Sub