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 Кбайт, скачиваний: 5641)

Была ошибка в свойстве Key(index). Пофиксил.

Теперь для контролов TabStrip, TreeView и ListView при загрузке формы необходимов вызывать процедуру Initialize().

SCINER
о, супер!
А скажи, для чего появилось:

Dim g_hShell32 As Long ' LoadLibrary(shell32)
Private Declare Function LoadLibraryA Lib "kernel32" (ByVal lpLibFileName As String) As Long
Public Declare Function SetFocusAPI Lib "user32.dll" Alias "SetFocus" (ByVal hWnd As Long) As Long

это важные аспекты?

И добавь пожалуйста событие:

Public Event MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)

нужно отслеживать, какой кнопкой мышатины кликнули по листвьюхе.

SetFocusAPI важен, но эту функцию можно поместить внутрь контрола
shell32 не столь важен

MouseDown, MouseUp в ListView1 сделал.
Добавил свойство StatusBar.Height

SCINER
а что за косяки могут быть с MouseUp?
Чего он выёживается? Я тоже пытаюсь присобачить, но до него чего-то событие вообще не доходит

Добавлено:
Прикрути пожалуйста в Lvw, если не сложно, ForeColor, и Bold к фонту...

Сообщение отредактировано: OneWay - 11.12.07, 10:08

SCINER
воу, круто, наконец-то нашлись люди, которые думают как и я (насчёт перетаскивания mscomctl32)
а действительно, будет ли возможность подключить это событие MouseUp?
Ну очень нужно.

П.С. могу поделиться изменением шрифта в ColumnHeader (цвет, наклонный, курсив)

посмотрите внимательней сообщение №65.

А как справиться со странным глюком: при закрытии программы, использующей некоторые выложенные здесь контролы (проверял со статусбаром, прогрессбаром и табстрипом), выскакивает сообщение типа "Project1.exe - обнаружена ошибка... и бла-бла-бла". В примере, прилагающемся с контролами этого нет. Может быть я как-то некорректно высвобождаю ресурсы?

Lumen
так выложи на тест проект...
а то мало ли что там может быть

Добавлено 25.12.07, 12:42
SCINER!
как ты смотришь на то, чтобы добавить к листвьюхе:
1. Background color
2. Item.Font (Bold, Color)
3. SubItem.Icon

SCINER
ну скинер, будь другом. хотябы первые два пункта.
или один из двух

Добавлено: 01.01.2008
у меня появилось два важных вопроса:
1. Как уничтожить объект листвью? Т.к., если в мди-приложении закрыть форму с листвьюхой, то при следующем открытии и инициализации, возникают серьёзные ошибки (пропадают иконки, и последний чекбокс уходит выше всех фиелдов).
2. Если айтем выбран, и потом ещё раз кликнув на нём, то событие ListView1_ItemClick(Index As Long, ByVal Key As String) не выполняется. Как заставить повторно обработаться событию?

Сообщение отредактировано: OneWay - 01.01.08, 21:57

Глюк с табстрипом как-то связан с манифестом и стилем XP. Без манифеста всё работает вроде нормально. Проект с демонстрацией глюка прикладываю:
Прикреплённый файлПроект.rar (14.85 Кбайт, скачиваний: 746)

А какой глюк то?

Некорректно завершается программа. С этим компонентом и манифестом в ресурсах при закрытии вылетает сообщение "Обнаружена ошибка, приложение будет закрыто бла бла бла, отправить отчет/не отправлять"

В модуле добавь

Option Explicit
 
Private Declare Sub InitCommonControls Lib "comctl32" ()
 
Public m_hMod As Long
 
Public Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" ( _
    ByVal lpLibFileName As String) As Long
Public Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long
 
Sub Main()
 m_hMod = LoadLibrary("shell32.dll")
 Call InitCommonControls
 Load "ФОРМА"
end sub

В форме:

Private Sub Form_Unload(Cancel As Integer)
 FreeLibrary m_hMod
end sub

Сообщение отредактировано: Toleranto - 23.01.08, 20:28

Причем можно(и даже лучше) без последнего...