Что не так с прокруткой в VB 6?

Доброго времени суток. Я начинающий и многое для меня еще темный лес.

Проблема такая. Есть форма. Есть multiline textbox с вертикальной прокруткой. По задумке,
когда пользователь нажимает на стрелочки скроллинга вверх или вниз (или нажимает на поле),
внутрь поля ставится курсор (устанавливаем фокус) и дальше можно уже не щелкать по стрелочкам,
а крутить колесиком мыши до нужного значения. Исполняемый файл был сделан на XP в портабельном
VB6. В результате на XP все работает как надо, а вот на 7-ке и выше прокрутка работает частично.
Вниз да, а вверх нет! Почему-то... Ну и вместо одной позиции смещается на три (но это в принципе
не проблема, т.к. настраивается в панели управления/мышь.) - возможно это даже можно поменять
при запуске экзешника через реестр - еще не проверял. Сейчас об этом подумал только.

Наверное многие сталкивались с этой проблемой и возможно есть решение, но я его не знаю и еще
меня смущает один момент. В этом портабельном VB есть менеджер дополнений и там как раз есть
такая опция "MouseWheelFix (11-09-05) с описанием: Provides support for the mouse wheel within
the VB6 IDE. 11-09-05 - new safe subclassing code, add-in can be unloaded w/o IDE crash
(Winand)." - не знаю к чему это?

Включение/выключение этой опции проблему не решает. Может надо что-то писать в самом коде,
чтобы она включалась/выключалась?.. И вообще влияет ли она на компиляцию?

В общем, помогите решить проблему.

0

Вин 10, не наблюдаю такой проблемы.

0

А Вы что использовали? Такой же портабельный IDE?

0

1

Сообщение от winuser74 портабельный

Да.

0

Остается только понять чем ваша сборка отличается от той, что я использовал.
Смущает версия форм. А можете выложить куда-нибудь архив с вашей сборкой?

Ну или, если хотите, я могу выложить ту версию, что использовал и вы сами убедитесь,
что в ней точно косяк. Я даже думаю, что сведущие люди могли бы этот косяк в ней
исправить... там есть дополнительно Spy++ и Ole view. Я не разбираюсь, но наверное
с помощью этих штуковин можно выяснить в чем со сборкой проблема.

P.S. Прошу прощения у модеров, что забыл стереть инфу на картинке.)

Добавлено через 21 минуту
В принципе архив весит ~29 МБ, так что можно даже по почте отправить.

0

123.rar

1

Thanks. Попробовал. Та же фигня с прокруткой. Но я сразу не въехал, версия форм видимо зависит от
версии установленного офиса? Но как же скомпилированный файл? Ничего не понимаю...

Даже тупо в таком виде не пашет прокрутка вверх (что за бред е мое):

В смысле на 7-ке и выше. На ХР но проблем.

0

winuser74, дело точно не в самой мыши?

0

А мышь то тут при чем? Она везде прекрасно пашет (прокрутка) и в блокноте, и в ворде.
Проблем с мышью точно нет.

Тупо текстбокс -> borderstyle = fixed, multiline = true, scrollbars = vertical. Пустая форма с
одним полем и все. И не але.

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

Добавлено через 19 минут
Елки-палки!!! Нашел причину! Посмотри пожалуйста у себя - повторится проблема или нет?
Просто на форме сделай окошко текстбокса, введи текст, что я писал при инициализации формы,
а окошко задай в твипах height = 315.

Я увеличил высоту окна просто для проверки и о чудо! Прокрутка стала работать нормально.
Вопрос в том, что надо еще теперь понять каковы границы минимальной рабочей высоты.))

0

Сообщение от winuser74 окошко задай в твипах height = 315

Это ж одна строка только поместится. Нет, тоже проблем нет.

Сообщение от winuser74 Я увеличил высоту окна просто для проверки и о чудо! Прокрутка стала работать нормально.

Ну так это здорово! Поздравляю

Добавлено через 50 секунд

Сообщение от winuser74 scrollbars = vertical

оба ставил

0

Это уже плохо. На 320 у меня тоже не пашет. Почему 315 у меня не пашет, а у тебя пашет.
Где же собака порылась?

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

А если ты задашь еще меньше, например 280 у тебя будет работать?

Добавлено через 6 минут
Может это как-то связано с твипами и разрешением экрана???

0

Сообщение от winuser74 Может это как-то связано с твипами и разрешением экрана???

Да кто ж его знает. Пока остаётся только радоваться, что в новых версиях винды VB6 еще продолжает работать.
Но я стараюсь написанные на нём проекты переводить постепенно на C#, время не стоит на месте, а майкрософт уже и развитие VB.Net прекратили c 2020 года.

Сообщение от winuser74 имитировать комбобокс

А если листбокс попробовать?

0

Но у вас то работает по-вашим же словам! Значит проблема у меня в системе или в чем-то еще.
Даже при 400 не работает. Пробовал в пиксели переставить - ни фига. Пробовал переводить
мышь в режим +1 строку при прокрутке - тоже ни фига.

А как в листбокс пользователь текст будет вводить? Не подходит. Вариант - только разбираться
с блокировкой мыши в комбобоксе, но там что-то не так с hwnd самого поля видимо, точнее
с тем, что его hwnd - это не поле, а фактически область, где находится стрелка вниз.
Т.е. проблема мне представляется не решаемой.

Кстати мне показалось, что разрешение экрана тут не при чем, т.к. в RDP сессии ты получаешь
разрешение машины с которой подключаешься, т.е. своей собственной.

Добавлено через 8 минут
В общем придется вернуться к варианту пробовать компилировать файл где-то еще, на
машине с другим офисом.
Кстати при проверке вы случаем не форму 2.0 использовали? А то у меня обычная.
Буду уже вечером проверять.

P.S. Переводить код на си шарп это круто. Для меня это неподъемная задача. Я вообще
начинающий в принципе. Я в основном скриптами занимался на вб и лишь год с формами.

0