Restrict cursor within textbox

[ShieBoon]

Hi all, i want to restrict the user from clicking the textbox. But i also want the user to see the values of the textbox clearly. So i can't use textbox1.enabled = false. Any ideas?

i'm using excel 2003

Thanks
Shie boon

 

[Jon von der Heyden]

Can't you use a label instead?

 

[AlphaFrog]

This sets the focus to CommandButton1 when the try to click on TextBox1.

Private Sub TextBox1_Enter()
CommandButton1.SetFocus
End Sub

 

[ShieBoon]

Hi Jon, Alpha

To Jon: I don't think so. Because I want to allow users to be able to edit the values, on the same page, when they click an 'edit' button on the user interface.

To Alpha: Good Solution, but i have 33 textboxes. Haha, are there any other alternatives?

Thanks

 

[Jon von der Heyden]

Hi

Try using the Locked property. It doesn't stop the user from placing the cursor in the control but it effectively makes the control read-only. You can set the text box Locked to True as a default, and then configure your Edit command button to change all of the textbox Locked properties to False. If it is every textbox then you should be able to loop through the controls on the userform and change the property if the TypeName of the control is "TextBox".

 

[ShieBoon]

Hi Jon,

I've already locked them. Haha, just wanna get rid of the cursor! Thanks for the ideas anws!

 

[ShieBoon]

Hi Alpha,

i tried your method. The cursor still remains in the textbox. :|

 

[Jaafar Tribak]

Follow these steps :

1- Add a Class module to your Project and give it the name of C_LockedTextBox

2- Put in it the code below :

Option Explicit

Private WithEvents TxtBoxInst As MSForms.TextBox

Private Declare Function HideCaret Lib "User32" _
(ByVal hWnd As Long) As Long

Private Declare Sub CopyMemory Lib "kernel32" Alias _
"RtlMoveMemory" ( _
pDest As Any, pSrc As Any, _
ByVal ByteLen As Long)

Private oTempObj As Object


'**************************************************
'\Public Property.

Public Property Let GetTextBoxPtr(ByVal Ptr As Long)

    CopyMemory oTempObj, Ptr, 4
    HideCaretAndLock oTempObj
    Set TxtBoxInst = oTempObj

End Property

'***************************************************


'**************************************************
'Private Routines.

Private Sub Class_Terminate()
  CopyMemory oTempObj, 0&, 4
End Sub

Private Sub TxtBoxInst_DblClick _
(ByVal Cancel As MSForms.ReturnBoolean)

    Cancel = True

End Sub

Private Sub TxtBoxInst_KeyPress _
(ByVal KeyAscii As MSForms.ReturnInteger)

    HideCaretAndLock TxtBoxInst
    
End Sub

Private Sub TxtBoxInst_MouseDown _
(ByVal Button As Integer, ByVal Shift As Integer, _
ByVal X As Single, ByVal Y As Single)

    HideCaretAndLock TxtBoxInst
    
End Sub

Private Sub HideCaretAndLock(TextBox As Object)

    TextBox.TabStop = False
    TextBox.Locked = True
    DoEvents
    HideCaret 0

End Sub

'******************************************************

3- Put the code below in the UserForm Module :

Option Explicit

Private oClass As C_LockedTextBox

Private oCol As New Collection

Private Sub UserForm_Initialize()

    Dim oTxtBox As Control
    
    For Each oTxtBox In Me.Controls
        If TypeOf oTxtBox Is MSForms.TextBox Then
            Set oClass = New C_LockedTextBox
            oClass.GetTextBoxPtr = ObjPtr(oTxtBox)
            oCol.Add oClass
        End If
    Next

End Sub

This should lock all the textboxes (User Interface only) on your Form and still allow the Edit Button to edit the textboxes.