Убрать рамку из listbox

[The trick]

Здравствуйте. У меня вопрос по поводу изменения внешнего вида Листбокса. У него отсутствует свойство BorderStyle, есть только Appearance. При установке Appearance в Flat вокруг листбокса отображается черная рамка. Как ее можно убрать?

[Хакер]

Зачем?

[The trick]

Я делаю всплывающий листбох, который расположен на отдельной форме, и его черная рамка выглядит очень некрасиво. Хотелось бы ее убрать а вместо нее нарисовать уже другую. Просто сделав ее на два пикселя меньше чем форма, и сдвинуть на один пиксель(чтобы осталось между формой и листом пространство в один пиксель), а на форме в свою очередь нарисовать с помощью LINE цветную.

[Viper]

Здравствуйте. У меня вопрос по поводу изменения внешнего вида Листбокса. У него отсутствует свойство BorderStyle, есть только Appearance. При установке Appearance в Flat вокруг листбокса отображается черная рамка. Как ее можно убрать?

Если уж чертовски хочется, то есть такая штука как ownerdraw, в поиск по этому слову. Но таки присоединяюсь к Хакеру с вопросом: "Зачем?"

[The trick]

За OwnerDraw спасибо-разобрался. А как можно сделать такое окно как в ВБ выскакивает(выпадающий список со свойствами).Пытался через SetWindowPos c параметрами SWP_SHOWWINDOW Or SWP_NOACTIVATE, появляется окно, но при щелчке мыши на нем главное окно теряет фокус, а нужно чтобы и в выпадающем можно было производить действия и в главном. Пробывал через SetWindowLong с GWL_STYLE и WS_POPUP, но ничего почемуто не меняется

[FireFenix]

Но таки присоединяюсь к Хакеру с вопросом: "Зачем?"

наверное аналог IntelliSense

[The trick]

Зачем?

Это для стилизации я сделал свой tooltip на UC для него можно выбрать цвет фона а в соответствии с цветом фона рисуется рамка, так и для списка я хотел сделать.
Как в ToolTipe фон зеленый и рамка светло зеленая.

[Хакер]

я сделал свой tooltip на UC для него можно выбрать цвет фона

Маразм.

• Тултип должен быть только того цвета, какой выбран в этом системном окне настройки:
  

  

  
  И никакого иного.
• UC для тултипа — это сверхизбыточно в плане ресурсов, и недостатоно в плане правильного поведения (тултип обрежется границей клиентской области окна-родителя, а не должен). Для тултипа достаточно одного окна с POPUP-стилем, более того, в системе уже есть заготовка для этого.

[The trick]

тултип обрежется границей клиентской области окна-родителя, а не должен

Не обрезается.

Display.JPG (7.91 Кб) Просмотров: 1536

[Хакер]

По скриншоту не видно, где родитель. Скриншот ничего не говорит. Обрезается — говорят знания.

[The trick]

А насчет моего второго вопросаникто не знает как можно реализовать

[Mikle]

По первому вопросу - создаёшь новый UserControl, закидываешь на него ListBox, код такой:

Код: Выделить всё

Option Explicit

Private Sub UserControl_Initialize()
  ScaleMode = vbPixels
End Sub

Private Sub UserControl_Resize()
  List1.Move -2, -2, ScaleWidth + 4, ScaleHeight + 4
  UserControl.Height = (List1.Height - 4) * Screen.TwipsPerPixelY
End Sub

Public Property Get ListBox() As ListBox
  Set ListBox = List1
End Property

Пользуешься через свойство ListBox, как полноценным листбоксом без рамки, только экспортируй все нужные события.