Common Controls

Есть небольшое предложение, сделать набор классов или UserControls (хотя, более чем уверен, что он уже существует в том или ином виде), которые смогут полностью заменить ActiveX MS Common Control, дабы не возникало тем, вроде этой, а так же в целях избавить себя от перетаскивания почти 1 МБ, чтобы пользовать, к примеру, банальный ProgressBar. Если тема имеет смысл, то могу набросать еще для TabControl по прототипу PropertySheet с возможностью добавлять Frame. В качестве поддержки темы набросал класс ProgressBar'а...

Реализовано:
SysListView32 — ListView.ctl — Обновлено 10/12/2007
msctls_progress32 — Progress.ctl
SysDateTimePick32 — SysDateTimePick.ctl
SysTabControl32 — TabStrip.ctl — Обновлено 10/12/2007
SysTreeView32 — TreeView.ctl
msctls_statusbar32 — StatusBar.ctl — Обновлено 10/12/2007
SysIpAddress32 — IpAddress.ctl

CODEBOX controls
CodeBox.part01.rar
CodeBox.part02.rar
CodeBox.part03.rar
EOF CODEBOX controls

Сообщение отредактировано: ALXR - 08.12.10, 17:30

Прикреплённый файлcommctrl.zip (171.21 Кбайт, скачиваний: 5520)

Примерно так:

hFont = CreateFont(...)
SendMessage(hMyControl, WM_SETFONT, hFont, True)

Только не следует забывать вызывать DeleteObject(hFont) после того, как контрол (или данный шрифт) больше не нужен.

Примеров по установке шрифтов в сети много, но не один не работает!
Шрифт становится жирным и всё.

Цитата

реализовано:
- msctls_progress32
- SysDateTimePick32

В SysDateTimePick32 есть один глюк (только на VB): открываем этот пример и добавляем на форму TextBox; переводим фокус на него (просто щёлкаем), а потом щелкаем на стрелочку контрола SysDateTimePick32. Стрелка остаётся нажатой а окошечка выбора даты не появляется.

Вот 4 API-контрола
[Компонент помещен в общий пакет]

Сообщение отредактировано: SCINER - 26.11.07, 12:54

класс TabStrip
всё в одном файле с примером...
[Компонент помещен в общий пакет]

Сообщение отредактировано: SCINER - 26.11.07, 12:53

Собрал все в один архив.

а на форуме vbstreets.ru от Antonariy есть сборка ucComCtl http://bbs.vbstreets.ru/viewtopic.php?t=34151&start=30
там чтото похожее, но может оттуда можно почерпнуть чтото для дела?
А вообще, отличная затея с этим контролом.
Спасибо ребята

не могу понять, в ListView можно выставить чекбоксы?

Добавь стиль LVS_EX_CHECKBOXES

Сообщение отредактировано: Arcady_XQST - 02.12.07, 20:02

Arcady_XQST
я не могу понять где его врубить...
если в этом кусочке кода:

  'изменение стиля отображения
  With ListView1
    .View = LVS_REPORT
    .GridLines = True
    .FullRowSelect = True
  End With

то нет такого стиля

'Добавить в раздел декларации
Private Const LVS_EX_CHECKBOXES         As Long = &H4&
 
'Добавить в раздел кода
Property Get Style() As ListBoxConstants
  Dim dwStyle As Long
  Style = LView.Style And LVS_EX_CHECKBOXES
End Property
 
Property Let Style(ByVal vNewValue As ListBoxConstants)
  Call pSetExtendedStyle(LVS_EX_CHECKBOXES, vNewValue = vbListBoxCheckbox)
End Property

Как использовать новое свойство:

  'изменение стиля отображения
  With lv
    .View = LVS_REPORT
    .GridLines = True
    .FullRowSelect = True
    .Style = vbListBoxCheckbox
  End With

Обновил архив

Цитата

14:26 03.12.2007
ListView
- Добавлены события Click, Check
- Добавлен стиль CheckBox
- Теперь получает и отдает фокус на форме, как стандартные VB контролы.

SCINER
По поводу ListView
В Style неплохо было бы добавить ещё LVS_SINGLESEL (&H4)

Public Enum eListViewStyle
  LVS_ICON = &H0
  LVS_REPORT = &H1
  LVS_SMALLICON = &H2
  LVS_LIST = &H3
  LVS_SINGLESEL =&H4
End Enum

Сообщение отредактировано: SCINER - 04.12.07, 08:53

Люди!
Не бросайте на полпути с этим контролом!!
Вкинул в проект и хочу доделать.
Помогите, чтобы было:
1. При клике на ListView_ItemClick(Index As Long) можно было бы получить Key(который добавляется через ItemAdd.)

Сообщение отредактировано: OneWay - 08.12.07, 01:19

ok посмотрю

SCINER
вот человек один помог дописать, посмотри, может сгодится
[прикрепленный файл удален модератором]

Сообщение отредактировано: SCINER - 10.12.07, 11:24

Я уже сам сделал. Архив обновил.

-Added 10.12.07, 11:24

Цитата OneWay @ 10.12.07, 11:03

SCINER
вот человек один помог дописать, посмотри, может сгодится
[прикрепленный файл удален модератором]

Не совсем неоптимально.