На главную
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
! Правила раздела Visual Basic: Общие вопросы
Здесь обсуждаются вопросы по языку Visual Basic 1-6 (а так же по схожим языкам, как, например, PowerBASIC).
Вопросы по Visual Basic .NET (это который входит в состав Visual Studio 2002/2003/2005/2008+, для тех, кто не в курсе) обсуждаются в разделе .NET.

Обратите внимание:
1. Прежде чем начать новую тему или отправить сообщение, убедитесь, что Вы не нарушаете правил форума!
2. Обязательно воспользуйтесь поиском. Возможно, Ваш вопрос уже обсуждали. Полезные ссылки приведены ниже.
3. Темы с просьбой выполнить какую-либо работу за автора в этом разделе не обсуждаются. Студенты, вам сюда: ПОМОЩЬ СТУДЕНТАМ!
4. Используйте теги [ code=vba ] ...текст программы... [ /code ] для выделения текста программы подсветкой.
5. Помните, здесь телепатов нет. Формулируйте свой вопрос максимально грамотно и чётко: Как правильно задавать вопросы
6. Запрещено отвечать в темы месячной (и более) давности, без веских на то причин.

Полезные ссылки:
user posted image FAQ Сайта user posted image FAQ Раздела user posted image Кладовка user posted image Наши Исходники user posted image API-Guide user posted image Поиск по Разделу user posted image MSDN Library Online user posted image Google

Ваше мнение о модераторах: user posted image SCINER, user posted image B.V.
Модераторы: SCINER, B.V.
Страницы: (10) « Первая ... 8 9 [10]  все  ( Перейти к последнему сообщению )  
> 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 -

    Прикреплённый файлПрикреплённый файлcommctrl.zip (171.21 Кбайт, скачиваний: 2914)
    user posted image
    ЩИТО?
      Компанент, написанный по мотивам 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 Кбайт, скачиваний: 285)
      Сообщение отредактировано: VisualProg -
      CyberLock | BloodBath-LAN
      Немного творчества - альбом ArtMetal [Metal, Instrumental, Orchestral]
        Для таких задач есть ShellExecute.
        Мой Add-in для VB и VBA: VBStyleCode
          Цитата coder @
          Для таких задач есть ShellExecute.

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

          ExpandedWrap disabled
            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


          буду применять
          CyberLock | BloodBath-LAN
          Немного творчества - альбом ArtMetal [Metal, Instrumental, Orchestral]
            Ещё в добавку: Для Shell нужно указать запускающую программу, а ShellExecute сам определяеть какой файл чем открыть.
            Мой Add-in для VB и VBA: VBStyleCode
              Цитата coder @
              ShellExecute сам определяеть какой файл чем открыть.

              Заметил, но в ОС должны быть ассоциации программ и файлов, поэтому всё равно придётся "учить" ос, что *.ini;*.inf и прочие файлы, можно открыть как текст
              CyberLock | BloodBath-LAN
              Немного творчества - альбом ArtMetal [Metal, Instrumental, Orchestral]
                Цитата VisualProg @
                поэтому всё равно придётся "учить" ос, что *.ini;*.inf и прочие файлы, можно открыть как текст

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

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

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

                  файлы здесь
                  Прикреплённый файлПрикреплённый файлCtrl.part01.rar (195,31 Кбайт, скачиваний: 320)
                  Прикреплённый файлПрикреплённый файлCtrl.part02.rar (163,28 Кбайт, скачиваний: 309)
                  Прикреплённый файлПрикреплённый файлGrayBlue.part1.rar (195,31 Кбайт, скачиваний: 296)
                  Прикреплённый файлПрикреплённый файлGrayBlue.part2.rar (13,79 Кбайт, скачиваний: 291)
                    Скинер, а помнишь, я тебе как-то давал свою реализацию HotKey контрола? Можешь её прикрепить, т.к. мои исходники канули в лету с винтом старым. :yes-sad:
                    user posted imageuser posted image
                      Если подключить в форму программы какой-нибудь контрол-элемент 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
                      тогда это сообщение перестает появляться
                      Код:
                      1 пользователей читают эту тему (1 гостей и 0 скрытых пользователей)
                      0 пользователей:


                      Рейтинг@Mail.ru
                      [ Script Execution time: 0,1340 ]   [ 23 queries used ]   [ Generated: 7.12.19, 20:12 GMT ]