0 / 0 / 1
Регистрация: 17.11.2015
Сообщений: 42

ComboBox и Scroll

28.02.2016, 13:59. Показов 2198. Ответов 5
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Доброго времени суток!
Люди добрые помогите с проблемкой. Имется VB 6.3. в графической СКАДЕ (iFix называется). Используется для написания кастомных скриптов. Я создал в скрипте ComboBox и прописал необходимый выбор из списка. В режиме выполнения, на моем объекте (а это тулбар) все работает замечательно, вот только нет возможности прокручивать этот список скролом мыши И кстати в режиме редактирования тоже. Покурив интернет, нашел, что это беда VB 6 и на офсайте майкрософта к нему есть add'on который исправляет эту проблему. Скачал, поставил по инструкции, в режиме редактирования все заработало, в режиме выполнения нет. Кто нибудь знает, как можно заставить скролл заработать и в режиме выполнения? Возможно вопрос глупый, но сорр, я в VB достаточно слабовато разбираюсь...
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
28.02.2016, 13:59
Ответы с готовыми решениями:

Как сделать чтобы при выборе в combobox , менялись значения в других combobox? Visual Basic 6.0
Есть несколько компонентов Combobox, списки через Form_load я прописал, теперь списки отображаются. Но как сделать так чтобы при выборе в...

Scroll bar для Form
Вообщем SoftIce поделился своей программкой, но она разрослась до больших значений, я решил выкрутится двумя+ столбцами, ну это не...

Почему на мышке в VB не работает Scroll?
Подскажите, пожалуйста,начинающему программисту почему на мышке в VB не работает Scroll? Это возможно как-то усранить? Бывают большие...

5
70 / 62 / 19
Регистрация: 03.05.2013
Сообщений: 397
28.02.2016, 16:18
Можно при помощи API ловить скролл в пределах комбо, и выставлять значение,если вы имеете ввиду именно его значение, а не значение в его выпадающем списке.
0
0 / 0 / 1
Регистрация: 17.11.2015
Сообщений: 42
29.02.2016, 09:32  [ТС]
К сожалению, как раз преследуется цель, либо выделение строки в выпавшем меню, прокручивая скролл, либо же просто прокрутка скроллом от верха до конца без выделения, а выделять и выбирать нажатием (как обычно).
А есть ли примеры использования API?
0
oh my god
 Аватар для fever brain
1456 / 796 / 161
Регистрация: 05.01.2016
Сообщений: 2,307
Записей в блоге: 8
29.02.2016, 10:40
Лучший ответ Сообщение было отмечено The trick как решение

Решение

Попробуй для своей программы вставить манифест
1) создай текстовый документ
2) вставь строки:
XML
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
<?xml version="1.0" encoding="UTF-8"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
  <assemblyIdentity
    version="1.1.0.0"
    processorArchitecture="X86"
    name="Manifest Creator"
    type="win32"
    />
  <description>Manifest Creation Application</description>
    <dependency>
        <dependentAssembly>
            <assemblyIdentity
                type="win32"
                name="Microsoft.Windows.Common-Controls"
                version="6.0.0.0"
                processorArchitecture="X86"
                publicKeyToken="6595b64144ccf1df"
                language="*"
             />
        </dependentAssembly>
    </dependency>
<!-- Identify the application security requirements: Vista and above -->
  <trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
      <security>
        <requestedPrivileges>
          <requestedExecutionLevel
            level="asInvoker"
            uiAccess="false"
            />
        </requestedPrivileges>
      </security>
  </trustInfo>
</assembly>
3) Сохрани этот текстовый документ таким образом ([Название программы].Exe.Manifest)

А в программе должна быть следующая инициализация:
например у меня в модуле первой формы
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Option Explicit
Private Declare Sub InitCommonControls Lib "comctl32.dll" ()
Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long
Private m_hMod As Long
 
Private Sub Form_Initialize()
    m_hMod = LoadLibrary("shell32.dll") 'Загрузка библиотеки "shell32.dll"
    InitCommonControls 'Инициализация системных контролов
    '
    'Здесь код для начала программы если нужен, если не нужен то и не надо
    '
End Sub
 
Private Sub Form_Load()
    'Тестовая часть
    Dim v
    For Each v In Split("Люди добрые помогите с проблемкой. Имется VB 6.3. в графической СКАДЕ (iFix называется). Используется для написания кастомных скриптов. Я создал в скрипте ComboBox и прописал необходимый выбор из списка. В режиме выполнения, на моем объекте (а это тулбар) все работает замечательно, вот только нет возможности прокручивать этот список скролом мыши И кстати в режиме редактирования тоже. Покурив интернет, нашел, что это беда VB 6 и на офсайте майкрософта к нему есть add'on который исправляет эту проблему. Скачал, поставил по инструкции, в режиме редактирования все заработало, в режиме выполнения нет. Кто нибудь знает, как можно заставить скролл заработать и в режиме выполнения? Возможно вопрос глупый, но сорр, я в VB достаточно слабовато разбираюсь")
        Combo1.AddItem v
    Next
    
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    '
    'Здесь код для завершения
    '
    FreeLibrary m_hMod 'Высвобождение библиотеки "shell32.dll"
End Sub
Затем всё скомпелируй и проверь, работаит ли ?

Ниже прилагаю архив с работающим ComboBox и его Scroll'ом
Вложения
Тип файла: rar Test-Manifest.rar (6.2 Кб, 9 просмотров)
0
oh my god
 Аватар для fever brain
1456 / 796 / 161
Регистрация: 05.01.2016
Сообщений: 2,307
Записей в блоге: 8
29.02.2016, 10:50
Если и после этого не заработает, то выброси мышку которой пользуешься ))

Добавлено через 5 минут
А вообще, для серёзного написания программ, всё должно храниться в ресурсах
Цитата Сообщение от BReDD Посмотреть сообщение
Имется VB 6.3
Это где такой есть ?
0
0 / 0 / 1
Регистрация: 17.11.2015
Сообщений: 42
29.02.2016, 11:48  [ТС]
Спасибо, большое! Попробую и отпишусь чуть позже.
А на счет версии не обманываю нисколько.


Есть такая SCADA, DeltaV называется, с ней в связке используется графическая SCADA iFix. Эта скада отвечает за отрисовку мнемосхем. Вот в в iFix'e то и встроен VB 6.3. Назначение такое же как и в том же екселе, делать то, что невозможно сделать стандарнтыми средствами. Только конечно в данном случае со специфическим уклоном, от того и версия такая...
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
29.02.2016, 11:48
Помогаю со студенческими работами здесь

Задача по Scroll Bar в List Box
Помогите пожалуйста такая задачка: Я добавляю текст в лист бокс и каждая новая строчка ниже предыдуших а бегунок на скрол баре...

Как внедрить вертикальный и/или горизонтальный Scroll
Недавно мне понадобилось создать код, который по идее должна будет создать программа (способная извлекать и компилировать коды) так...

Добавление горизонтальной полосы прокрутки Scroll Bar в List Box
Столкнулся с некоторым интересным эффектом при использовании примера http://www.relib.com/code.asp?id=119 При первом вызове данного...

Как прокрутить Scroll в TextBox-е если текст не влезает в окно?
Помогите пожалуйста....!!! Добавляю в TextBox имена листов из Excel файла по очереди на каждую строчку вот так примерно... For с...

Как сделать Scroll для формы, размеры которой могут изменяться?
на форме размещен PictureBox (210*295мм). Как сделать Scroll для формы, размеры которой могут изменяться. Может заодно подскажете как...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

Новые блоги и статьи
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов.
anaschu 08.04.2026
работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20%
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики.
Hrethgir 07.04.2026
Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .
Горе от ума
kumehtar 07.04.2026
Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .
Использование значений реквизитов справочника в документе, с определенными условиями и правами
Maks 07.04.2026
1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
Доступность команды формы по условию
Maks 07.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .
Уведомление о неверно выбранном значении справочника
Maks 06.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .
Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt
8Observer8 05.04.2026
Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .
AkelPad-скрипты, структуры, и немного лирики..
testuser2 05.04.2026
Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru