Common Controls

[ALXR]

Есть небольшое предложение, сделать набор классов или 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 Кбайт, скачиваний: 5603)

[VisualProg]

Компанент, написанный по мотивам ShellListView из Delphi. Смыслв том, чтобы заменить совокупность DirListBox и FileListBox одним, более привычным компанентом TreeView, но не простым TreeView-ом, а специализированным Explorer-ом. Не требует никаких сторонних библиотек (только самое необходимое - stdole2.tlb).

Отрисовка и прочие алгоритмы выполненны без WinApi, силами VB6.0

Основные свойтва:
DragAndDrop As Long - включить/выключить режим DAD
Path As String - путь (при смене пути происходит отрисовка)
Filter As Long - фильтр отображаемых файлов и папок (vbFileAttributes)
IntervalX - отступ между иконками по ширине
SizeIconX/SizeIconY - размер иконок при отрисовке

На данный момент реализовываю DragAndDrop технологию. Основные модули готовы, и компанент уже может применяться, однако хотелось бы довести его до ума.

Всем кому не лень, просьба помочь "научить" контролл правельно запускать программы (Shell ...) так как это делает Explorer.exe, а то VB почему то запускает программу с параметром текущего App.Path (реализованно)

Explorer.rar
Прикреплённый файлExplorer.rar (9,03 Кбайт, скачиваний: 1141)

Сообщение отредактировано: VisualProg - 19.12.11, 15:37

[coder]

Для таких задач есть ShellExecute.

[VisualProg]

Цитата coder @ 19.12.11, 15:19

Для таких задач есть ShellExecute.

Спасибо! даже не знал о подобном, думал Shell-ом всё ограничивается

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
  (ByVal hWnd As Long, ByVal lpOperation As String, _
  ByVal lpFile As String, ByVal lpParameters As String, _
  ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
 
Private Declare Function ShellExecuteForExplore Lib "shell32.dll" Alias "ShellExecuteA" _
  (ByVal hWnd As Long, ByVal lpOperation As String, _   ByVal lpFile As String, lpParameters As Any, _
  lpDirectory As Any, ByVal nShowCmd As Long) As Long

буду применять

[coder]

Ещё в добавку: Для Shell нужно указать запускающую программу, а ShellExecute сам определяеть какой файл чем открыть.

[VisualProg]

Цитата coder @ 19.12.11, 15:36

ShellExecute сам определяеть какой файл чем открыть.

Заметил, но в ОС должны быть ассоциации программ и файлов, поэтому всё равно придётся "учить" ос, что *.ini;*.inf и прочие файлы, можно открыть как текст

[DIS]

Цитата VisualProg @ 19.12.11, 15:40

поэтому всё равно придётся "учить" ос, что *.ini;*.inf и прочие файлы, можно открыть как текст

так вроде ini и inf и так по умолчанию открываются блокнотом...

[DIS]

Эх, добавлю-ка сюда свою коллекцию контролов. Разрабатывались с нуля (без использования оберток) для одного крупного проекта, который сейчас заброшен, почти все компоненты поддерживают скины.

Ctrl.zip - библиотека, исходники и тестовый проект.
GrayBlue.zip - скин.

Кому понадобится, может причесать (хотя вроде бы все нормально работает). Если кто-нибудь захочет их использовать, просьба сообщить.

файлы здесь
Прикреплённый файлCtrl.part01.rar (195,31 Кбайт, скачиваний: 1215)
Прикреплённый файлCtrl.part02.rar (163,28 Кбайт, скачиваний: 1240)
Прикреплённый файлGrayBlue.part1.rar (195,31 Кбайт, скачиваний: 1208)
Прикреплённый файлGrayBlue.part2.rar (13,79 Кбайт, скачиваний: 1289)

[Seriy-Coder]

Скинер, а помнишь, я тебе как-то давал свою реализацию HotKey контрола? Можешь её прикрепить, т.к. мои исходники канули в лету с винтом старым.

[Hafis_Assad]

Если подключить в форму программы какой-нибудь контрол-элемент ActiveX, то возможен такой вариант, что при каждом запуске микрик будет выдавать MessageBox примерно следующего содержания:
This application is about to initialize ActiveX Controls that might be unsafe. If you trust the source of this document, select Yes and ... и т.д. и т.п.
Скажу честно, это просто достает...
Нашел выход: надо добавить в реестр
HKEY_CURRENT_USERSoftwareMicrosoftVBASecurity
значение DWORD параметра LoadControlsInForms = 1
тогда это сообщение перестает появляться
Код:

Сообщения были разделены в тему "Flood"