Форум на Исходниках.RU

Common Controls

Hafis_Assad — Tue, 12 Apr 2016 17:46:44 +0000

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"

Common Controls

Seriy-Coder — Wed, 16 Jan 2013 23:27:33 +0000

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

Common Controls

DIS — Tue, 03 Jan 2012 22:47:55 +0000

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

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

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

файлы здесь
Ctrl.part01.rar (, : 1279)
Ctrl.part02.rar (, : 1313)
GrayBlue.part1.rar (, : 1271)
GrayBlue.part2.rar (, : 1354)

Common Controls

DIS — Tue, 03 Jan 2012 22:25:45 +0000

DIS:

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

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

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

Common Controls

VisualProg — Mon, 19 Dec 2011 15:40:00 +0000

VisualProg:

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

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

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

Common Controls

coder — Mon, 19 Dec 2011 15:36:23 +0000

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

Common Controls

VisualProg — Mon, 19 Dec 2011 15:29:38 +0000

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

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

Common Controls

coder — Mon, 19 Dec 2011 15:19:18 +0000

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

Common Controls

VisualProg — Mon, 19 Dec 2011 14:10:14 +0000

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 (, : 1206)

Common Controls

UFOpera — Sat, 26 Nov 2011 21:44:16 +0000

UFOpera: 1.Ok = кучка API controls + WinApiForVb library contains over 900 KB of API declarations
только до RichEdit длл путь надо изменить там он прямой
http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=62060&lngWId=1
2.и по-мелочи но много
http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=69226&lngWId=1

регистрация tlb RegTlbRegTlb.rar (, : 1173)

Common Controls

Dirk — Mon, 07 Feb 2011 11:19:52 +0000

Dirk: Вопрос такой

Как выбрать итем понятно, а как сделать прокрутку к выбранному итему (например итем ранее был в начале списка, а потом выбран итем был в конце списка)

Разобрался

Public Sub EnsureVisible(ByVal lIndex As Long)

Call SendMessage(hwndLV, LVM_ENSUREVISIBLE, lIndex - vbNull, ByVal cNull)

End Sub

Common Controls

VisualProg — Sat, 15 Jan 2011 09:58:03 +0000

VisualProg: Малость переделал, теперь WinSock.ocx не нужен

ServerControl.rar (, : 2979)

Common Controls

VisualProg — Wed, 29 Dec 2010 12:29:58 +0000

VisualProg: Предлагаю очередной контролл - ServerCTR. Он позволяет имитировать сервер и позволяет связать десяток, другой пользователей, между собой. (ведь в обычном WinSock этого не придусмотренно). Всё описание и примеры находятся в архиве, но на всякий случай описание размещу и здесь:

=========================================================
ServerCtr.ctl
=========================================================

ServerCtr - контролл, работающий как сервер, на основе компа-
нента WinSock.ocx.

=========================================================
1 Свойства
=========================================================

Свойство: Значения: Описание:
************* ************* *************
Protocol (TCP/UDP) - Протокол работы всего се-
рвера.

Port (0...65535) - Порт/список портов, для
каждого клиента сервера

SeparatorPorts (String) - разделитель портов, для да-
льнейшего парсинга.

ServerIP (IP) - IP адрес компьютера, к ко-
торому будут обращаться кли-
енты (адрес ПК, где размещён
сервер)

ClientCount (0..255) - колличество связуемых кли-
ентов.

=========================================================
2 Методы
=========================================================

Connection(ClientIndex As Byte, Value As String)
Момент подключения/выхода (Value) клиента ClientIndex.

GetData(ClientIndex As Byte, Value As String)
Момент получения данных Value от клиента ClientIndex.

InitClients(ClientIndex As Byte, ClientPort As String)
Момент инициализации ClientIndex клиента с портом ClientPort.

Error(ClientIndex As Byte, Value As String)
Момент ошибки Value, которая произошла в момент обращения к
клиенту ClientIndex.

=========================================================
3 Процедуры
=========================================================

InitServer() - процедура инициализации сервера, которая переводит
все WinSock-и в режим ожидания, после чего к ним могут подклю-
чаться клиенты.

UnloadServer() - процедура позволяющая диструктировать сервер
и сбросить все данные о нём.

ToSendToClient(ClientIndex As Byte, Value As String) - процедура
отправления клиенту ClientIndex сообщения Value.

ToSendToAll(Value As String, Optional ByVal ExceptClient As Byte = 0) -
процедура отправления сообщения Value всем пользователям,
кроме пользователя ExceptClient (как правило, это текущий по-
льзователь)

=========================================================
4 Функции
=========================================================

GetClientConnect(ClientIndex As Byte) As Boolean - функция возраща-
ющая логическое значение активности клиента ClientIndex.

Common Controls

ALXR — Wed, 08 Dec 2010 14:03:25 +0000

ALXR: Намедни пришло письмо от гражданина из Испании. Благодарит наш форум за компонент ipaddr (там указан мой старый e-mail). Дал ссылку на пример, где его использовал: http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=73614&lngWId=1

Common Controls

Trivu — Thu, 25 Nov 2010 21:11:38 +0000

Trivu: Хорошо..

Вот огромная туча контролов, включая ВСЕ те, что так желались в текущей теме.
Использовать в коммерческих продуктах не воспрещается. Автору на них уже давно наплевать, о чём он сам неоднократно говорил.

CodeBox.part01.rar (, : 1866)
CodeBox.part02.rar (, : 1609)
CodeBox.part03.rar (, : 2345)

З.Ы. Все их можно использовать по отдельности без особых сложностей.
Желаю удачи.

Common Controls

nash — Fri, 19 Nov 2010 21:21:51 +0000

nash:

Цитата Trivu @ 19.11.10, 20:54

А я думал было профессионально написать все контролы, но теперь понял, что это нафиг никому не нужно.

Если есть возможность развивать это направление, то это здорово.
Кому-то наверняка пригодится.
Просто сейчас это уже не так актуально - спустя 13 лет.

Даже по этому разделу форума это видно: сидят одни школьники и прогульщики-студенты, стареющий виндузовый админ и модерирует это все чел, у которого свои особые представления об общепринятых вещах.

У меня была идея замутить что-то совсем глобальное, проистекающее от ВБ6, но не было и нет возможностей для этого. Да и поддержки это не снискало.

PS: Я смотрел твой контрол - мне понравилось.
При некоторых общих соглашениях об оформлении исходников можно было бы что-то замутить. Зря убрал его.

Сообщения были разделены в тему "на чём же народ теперь тогда программирует?"

Common Controls

Trivu — Fri, 19 Nov 2010 20:54:41 +0000

Trivu: А я думал было профессионально написать все контролы, но теперь понял, что это нафиг никому не нужно.
Спасибо за внимание.

Common Controls

nash — Fri, 05 Nov 2010 23:28:38 +0000

nash: 2Trivu:

Цитата Trivu @ 05.11.10, 20:58

Ни один человек не удосужился взять контрол и включить в него свою наработку. Ни один.

- всем все по фигу,
- все дают только советы а показать свой ум в виде кода не суждено ибо дурь каждого видна будет.

Цитата Trivu @ 05.11.10, 20:58

А вообще, я считаю, что раз уж выкладывать что-нибудь для общего блага, то выкладывать стОящее.

а судьи кто. и противоречие следующей твоей фразе.
Выкладывать надо законченное. Чтобы вот видно было.

Common Controls

Da$aD — Fri, 29 Oct 2010 20:01:08 +0000

Da$aD:

Цитата WareX @ 28.10.10, 09:43

В CommonDialogControl у меня не работал FontDialog("говорит", что шрифты не установлены)

Я на эту тему топик создавал, проблема, оказывается, решается просто.
No fonts exist

Common Controls

WareX — Thu, 28 Oct 2010 09:43:38 +0000

WareX: Да, это - хорошая идея.
В CommonDialogControl у меня не работал FontDialog("говорит", что шрифты не установлены), надеюсь у вас такого не будет

Common Controls

SCINER — Thu, 14 Oct 2010 08:31:55 +0000

SCINER: Дак выложи. Мы обязательно добавим и код и описание в общую сборку.

Common Controls

Dirk — Wed, 13 Oct 2010 10:16:35 +0000

Dirk: Trivu

Цитата Trivu @ 06.10.10, 18:53

неизвестно как программно выбрать айтем

Я уже писал тут

Common Controls

ALXR — Mon, 11 Oct 2010 17:03:13 +0000

ALXR:

Цитата Trivu @ 06.10.10, 18:53

...нет сорта по клику...

Автору предлагается предложить вариант того, как это сделать.
Насчет стрелочек на sysheader тоже клевое замечание.

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

Common Controls

VisualProg — Sun, 03 Oct 2010 13:57:59 +0000

VisualProg:

Цитата Da$aD @ 03.10.10, 13:55

Где и как?

IconContainer1.ReceiveGetImage([Size], [Depth]) - получить изображение
ReceiveGetSize([Size], [Depth]) - получить размер изображения

Как-то так...

Common Controls

Da$aD — Sun, 03 Oct 2010 13:55:04 +0000

Da$aD:

Цитата VisualProg @ 03.10.10, 13:37

О ней-же можно получить информацию (размер).

Не догнал. Где и как?

Common Controls

VisualProg — Sun, 03 Oct 2010 13:37:31 +0000

VisualProg:

Цитата Da$aD @ 03.10.10, 13:30

А вывести в цикле несколько картинок на экран - проще сделать без контрола...

Цикл для показа, каждый элемент, если заметил, находится в своей "ячейке". О ней-же можно получить информацию (размер).

Common Controls

Da$aD — Sun, 03 Oct 2010 13:30:55 +0000

Da$aD:

Цитата VisualProg @ 03.10.10, 12:29

Предлагаю в топку ещё два контролла:

Хорошо ты свой креатив назвал :blink:

Win16Text - красиво, но...

Цитата VisualProg @ 03.10.10, 12:29

по своей функциональности не уступает TextBox-у

уступает, так как нет переноса букофф. Просто уходят за пределы экрана и все. Недоделочка :(

IconContainer - вопрос: зачем это? Данный контрол имел бы смысл, если позволял хотя бы тыркать мышкой по иконкам и выбирать их (типа свойство сделать SelectedItem). А вывести в цикле несколько картинок на экран - проще сделать без контрола...

Common Controls

VisualProg — Sun, 03 Oct 2010 12:29:00 +0000

VisualProg: Здрвствуйте!

Предлагаю в топку ещё два контролла:

Win16Text - контролл, имитирующий консоль Win16, который по своей функциональности не уступает TextBox-у (так как построен на его основе)
IconContainer - контролл, хранящий в себе все изображения контейнера "*.ICO".

Отличительной особенностью данных контроллов является отсутствие подключаемых библиотек и WinApi (это не значит, что этих библиотек я не прикреплял, это значит что они вообще не используются).

UserControls.rar (, : 815)

Common Controls

Lumen — Mon, 14 Jun 2010 22:50:10 +0000

Lumen: Походу нельзя.

Цитата MSDN

TVS_CHECKBOXES
Once a tree-view control is created with this style, the style cannot be removed. Instead, you must destroy the control and create a new one in its place. Destroying the tree-view control does not destroy the check box state image list. You must destroy it explicitly.

Common Controls

lytgeygen — Mon, 14 Jun 2010 20:58:31 +0000

lytgeygen: а можно отключить чекбоксы в дереве? если да то как ?

Common Controls

Dirk — Mon, 02 Nov 2009 08:46:18 +0000

Dirk: SCINER

Call SendMessage(hTabStrip, TCM_INSERTITEMA, 10, tsItem)

При тестах TabStrip, заметил, что позиция, где указано значение 10, отвечает за то, где будет добавлена новая вкладка.

Например если будет ноль, то все новые вкладки будут добавляться слева... Если поставить значение текущего количества вкладок, то все новые вкладки будут добавляться справа...

Ну если не сложно, обнови в исходниках TabStrip. Добавлено возможность вкладок с иконками, и установка минимальной ширины вкладки

Common Controls

SCINER — Mon, 02 Nov 2009 07:05:22 +0000

SCINER:

Цитата Dirk @ 30.10.09, 10:03

SCINER, nash

Попробуйте ещё раз

Я уже снес к чертям этот Windows Server 2008 R2 и поставил XP.

Common Controls

Dirk — Sun, 01 Nov 2009 21:56:13 +0000

Dirk: Поставил Vista x86 в виртуалке, всё нормально.

Исходники прикрепил.

Common Controls

Dirk — Fri, 30 Oct 2009 10:03:10 +0000

Dirk: SCINER, nash

Попробуйте ещё раз

Common Controls

nash — Mon, 26 Oct 2009 13:30:46 +0000

nash: На висте тоже не работает.

Common Controls

Dirk — Mon, 26 Oct 2009 11:18:37 +0000

Dirk:

Цитата SCINER @ 26.10.09, 07:40

Цитата Dirk @ 25.10.09, 20:18

SCINER
Вопрос, какая версия Win7 ?

Windows Server 2008 R2 7600 DataCenter

Ну это не совсем Windows Se7en... Серверной версии у меня под рукой нет чтобы проверить... <_<

Common Controls

SCINER — Mon, 26 Oct 2009 07:40:35 +0000

SCINER:

Цитата Dirk @ 25.10.09, 20:18

SCINER
Вопрос, какая версия Win7 ?

Windows Server 2008 R2 7600 DataCenter

Common Controls

Dirk — Sun, 25 Oct 2009 20:18:52 +0000

Dirk: SCINER

Вопрос, какая версия Win7???

Тестировал на Win7 Максимальная x86 и x64 - работает без каких либо позывов на ошибку (сборка RTM 7600.16385)

Возможно какая-то проблема в системе... Может кто другой у кого Win7 скачает, отпишется что да как???

P.S. Был удивлён, но под x64 почти в 3 раза меньше кушает оперативной памяти программа...

Common Controls

SCINER — Sun, 25 Oct 2009 14:10:19 +0000

SCINER:

Цитата Dirk @ 24.10.09, 11:50

SCINER

забирай

и эта прога падает в том-же месте судя по всему.

Common Controls

SCINER — Fri, 23 Oct 2009 08:26:22 +0000

SCINER:

Цитата Dirk @ 22.10.09, 13:02

скомпилирована программа в WinXP

кинь сюда пример скомпилированный в XP. гляну

Common Controls

Dirk — Thu, 22 Oct 2009 13:02:30 +0000

Dirk: SCINER

Вот, запускал на виртуальной машине, TabStrip реализован данным классом, работает без проблем... (единственное, что скомпилирована программа в WinXP)

Common Controls

SCINER — Thu, 22 Oct 2009 11:53:14 +0000

SCINER: Проверил твой вариант. Не работает. При запуске из студии - работает, а скомпилированный вариант - нет.
Падает естественно в том-же месте.

Common Controls

Dirk — Thu, 22 Oct 2009 11:03:53 +0000

Dirk: SCINER

Писал, так как понадобилось выделение нужной строки в ListView... Может быть понадобится...

Public Property Get SelectedItem() As Long

Dim lFlags As Long

lFlags = LVNI_SELECTED

If GetFocus() = hListView Then lFlags = lFlags Or LVNI_FOCUSED

SelectedItem = SendMessage(hListView, LVM_GETNEXTITEM, &HFFFF, ByVal lFlags)

End Property

Public Property Let SelectedItem(ByVal lIndex As Long)

Const LVIS_FOCUSED As Long = &H1

Const LVIS_SELECTED As Long = &H2

Call ListView_SetItemState(lIndex, LVIS_FOCUSED Or LVIS_SELECTED, LVIS_FOCUSED Or LVIS_SELECTED)

End Property

Private Function ListView_SetItemState(i As Long, State As Long, Mask As Long) As Boolean

Dim lvi As LVITEM

lvi.State = State

lvi.stateMask = Mask

ListView_SetItemState = SendMessage(hListView, LVM_SETITEMSTATE, ByVal i, lvi)

End Function

Да и ещё, попробуй вариант с работой под Se7en, у меня всё без проблем работает...

PS Так как коменты под Toleranto оставлять не могу, пришлось завести нового пользователя :yes-sad:

Common Controls

SCINER — Wed, 21 Oct 2009 19:43:01 +0000

SCINER:

Цитата nash @ 21.10.09, 18:35

как вариант, манифест надо делать.

манифест есть

Common Controls

nash — Wed, 21 Oct 2009 18:35:11 +0000

nash: как вариант, манифест надо делать.

Common Controls

SCINER — Wed, 21 Oct 2009 16:23:30 +0000

SCINER: в Windows7 скомпилированный вариант не работает.
Падает на строке

Call SendMessage(hTabStrip, TCM_INSERTITEMA, 10, tsItem)

Текст ошибки:

Цитата

---------------------------
CommCtrl
---------------------------
Run-time error '-2147417848 (80010108)':

Automation error
The object invoked has disconnected from its clients.
---------------------------
ОК
---------------------------

Common Controls

XOXOJI — Sat, 07 Feb 2009 09:38:14 +0000

XOXOJI: Ну что же, я продолжаю мучить тему контролов, которая для меня интерестна, но пока не понятна.

тот RichEdit который в основной паке лежит, меня не очень устроил и я нашел именно чтоб он был выполнен в виде контрола, исходники прилогаю, кому интерестно.

так вот, у этого контрола не могу сделать свойства MultiLine, пробовал по всякому, пытался взять аналог из класа который лежал в паке, но всеравно ничего не получилось.

кто сможет помочь. пока это единственное свойство, которое мне сейчас в нем дополнительно нужно.

Common Controls

ALXR — Fri, 30 Jan 2009 11:11:46 +0000

ALXR: Поле iImage в структуре LV_ITEM. Получить структуру можно методом отправки сообщения LVM_INSERTITEM.

Common Controls

XOXOJI — Thu, 29 Jan 2009 07:53:38 +0000

XOXOJI: Что-то в эту тему мало захаживают чтоли?

сам разобрался с двойным кликом ;)

делаю свой вклад, ImageList. мне понравился

Common Controls

XOXOJI — Tue, 27 Jan 2009 06:19:14 +0000

XOXOJI: Вот вторая часть архива

Common Controls

XOXOJI — Tue, 27 Jan 2009 06:18:21 +0000

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

Common Controls

varzind — Fri, 23 Jan 2009 19:32:00 +0000

varzind:

Цитата ALXR @ 13.11.06, 20:15

Выделил данный набор в отдельный проект и выделил ему отдельную страничку на сайте — http://mega-set.com/comctl/

Так много выделил ;) А страница не грузится...

Common Controls

VisualProg — Tue, 09 Dec 2008 15:10:35 +0000

VisualProg: