Creating an Enabled FileList in which you cannot make Selections.

[Millerni456]

Hey all!

My objective is to have a FileList which has black color text, but I don't want the user to be able to make selections (which highlights an item)

I was also looking to see if it was possible to disable the FileList, and re-color the text, but this won't work.


Is there a way where I can prevent the user from making selections? Perhaps by cancelling the MouseDown event?

I'm looking for a very simple solution. If it's too much effort, I'll just leave it as is. :P



Thanks for the help, it's greatly appreciated.
God Bless,
-Nick.

[Bonnie West]

'In a BAS module

Option Explicit

Private Declare Function DefSubclassProc Lib "comctl32.dll" Alias "#413" (ByVal hWnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function SetWindowSubclass Lib "comctl32.dll" Alias "#410" (ByVal hWnd As Long, ByVal pfnSubclass As Long, ByVal uIdSubclass As Long, ByVal dwRefData As Long) As Long
Private Declare Function RemoveWindowSubclass Lib "comctl32.dll" Alias "#412" (ByVal hWnd As Long, ByVal pfnSubclass As Long, ByVal uIdSubclass As Long) As Long

Public Function Subclass(ByRef FileLstBox As FileListBox) As Boolean
    Subclass = SetWindowSubclass(FileLstBox.hWnd, AddressOf SubclassProc, ObjPtr(FileLstBox), AddressOf SubclassProc)
End Function

Private Function SubclassProc(ByVal hWnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long, _
                              ByVal uIdSubclass As Long, ByVal dwRefData As Long) As Long
    Const WM_CHAR = &H102&, WM_DESTROY = &H2&, WM_KEYDOWN = &H100&, WM_LBUTTONDOWN = &H201&

    Select Case uMsg
        Case WM_LBUTTONDOWN, WM_KEYDOWN, WM_CHAR
            Exit Function

        Case WM_DESTROY
            uIdSubclass = RemoveWindowSubclass(hWnd, dwRefData, uIdSubclass):  Debug.Assert uIdSubclass
    End Select

    SubclassProc = DefSubclassProc(hWnd, uMsg, wParam, lParam)
End Function

'Call it like this

Private Sub Form_Load()
    Subclass File1
End Sub