List Box properties

[jmazorra]

Does anyone know if there is a way to remove that ugly white background from a listbox? If not, is there any other activex or form control that does the same or similar function and has no background?

 

[diddi]

heres an API that might work for you (not tested)

declare:

Option Explicit
Private Const WS_EX_TRANSPARENT = &H20&
Private Const GWL_EXSTYLE = (-20)

Private Declare Function SetWindowLong Lib "user32" _
  Alias "SetWindowLongA" (ByVal hwnd As Long, _
  ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

function:

Public Function MakeListTransparent(ListCtl As Object) As Boolean
    On Error Resume Next
    ListCtl.BackColor = ListCtl.Parent.BackColor
    SetWindowLong ListCtl.hwnd, GWL_EXSTYLE, WS_EX_TRANSPARENT
    MakeListTransparent = Err.LastDllError = 0
End Function

in your sub:

    MakeListTransparent(Me.Listbox1)

 

[jmazorra]

Thanks, I will try it.