| Меджикивис |
Дата: Сб, 24.08.2019, 18:44 | Сообщение # 1 |
![]( "Меджикивис")
Группа:
Проверенные
Ранг:
Начал соображать
Сообщений:
25
Замечания:
±
На сайте с 11.04.2016
Статус:
Offline
|
Короткое предисловие: я работаю с Visual Basic 6.0
Поэтому всё, что ниже описано, относится именно к нему.
Ничего особенного или сложного тут нет, надо просто знать правильные приемы. Но пока я дошел до них - много поту и времени было затрачено. Надеюсь, что мой пост сэкономит ваши силы.
Итак.
Окно приложения в Windows можно масштабировать (изменять размеры) взявшись мышкой за уголок. (При разработке в VB будущее окно называется формой).
Однако при изменении размеров формы, VB не изменяет и не перемещает расположенные на форме объекты автоматически.
Чтобы объекты масштабировались вместе с изменением размеров формы, нужно написать код их масштабирования в подпрограмме Form_Resize(). Она отрабатывает всякий раз, когда размеры формы изменились. Об этом упомянуто в любом учебнике по VB.
НО ЕСТЬ НЮАНС!
Когда окно приложения свертывается в панель задач, его размеры становятся нулевыми, и операции масштабирования объектов с нулем сразу выбрасывают ошибку выполнения.
Я попробовал ограничить минимальный размер формы - но не тут-то было! - при сворачивании этот фокус не работает! Я долго корпел над этой ситуацией, заблокировывал через If каждое действие в случае нуля, а решение оказалось совсем простым: проверяем параметр Me.WindowState и если он единица, то выходим из подпрограммы, без совершения каких-либо действий.
ВТОРОЙ НЮАНС связан с позиционированием.
Чтобы объект постоянно находился около нижнего или правого края и перемещался вместе с ним, казалось бы - ничего сложного: нужно лишь посчитать его координаты через высоту и ширину формы (т.к. начало отсчета - слева вверху).
Однако при этом приходится учесть высоту заголовка окна и толщину строки меню, если меню есть.
Хотелось бы просто вычесть эти величины - поскольку заголовок не масштабируется, но тогда попадаешь в скрытую ловушку: на другом компе высота заголовка может оказаться другой, и объекты около нижнего края формы уедут в результате за края, в никуда(((((((
Я потратил много времени и сил, пытаясь получить в программе высоту заголовка, чуть не влез уже в API, а решение оказалось опять-таки до смешного простым:
надо использовать параметры Me.ScaleHeight и Me.ScaleWidth (а не Height и Width, как казалось бы!)
Потому что Height и Width - это внешние размеры формы, а ScaleHeight и ScaleWidth - это границы внутреннего рабочего поля формы в ее системе координат, то есть как раз то, что нам и было нужно))))))))
Для "живого" примера, как это всё делается, - во вложении простая демошка. (В ней, кстати, учтено еще два мелких нюанса.)
В программе на форме - графическое окно, которое масштабируется вместе с формой (оно содрано с одной моей программы, которая показывала график). Но тут опять засада! При масштабировании графического окна, рисунок в нем, опять же, не масштабируется вместе с ним! Его каждый раз надо перерисовывать заново.
Так вот, чтобы не путаться с каждый раз разными размерами и координатами точек, надо задать свою собственную систему координат для графического окна. Ее масштабы будут Mx и My. Таким образом, числовой масштаб остается постоянным, размеры окна в нем больше не фигурируют, и можно делать все вычисления в абсолютном размере. Во-вторых, масштаб легко сменить, задав новые значения для Mx и My и вызвав Form_Resize().
В этой демошке рисуется простой косинус, смещенный на единицу в плюс. Но в реальных программах тут может оказаться сильно навороченная кривая, с использованием массивов, сложными вычислениями и весьма большим количеством точек. И может быть, даже не одна.
Такую картинку даже мощный комп может не успевать отрисовать каждый раз по новому шагу мышки, если движение быстрое.
Поэтому я сделал так: вынес отрисовку графика в подпрограмму таймера. Resize включает таймер, который делает задержку 0.4 сек, к этому времени движение мышки обыкновенно уже закончилось, и график отрисовывается, а таймер останавливается.
Еще в программе есть текстовая метка Label1, которую размещаем около правого края. Будучи поставленной на графическое поле, она попадает в систему координат графического поля, которую мы сделали постоянной. Так что, задаем положение метки постоянным, через Mx (и My, если нужно).
Если же метка прямо на форме, то ее координаты надо задавать через те же ScaleHeight и ScaleWidth формы.
|
|
|
|
| VeraAFM |
Дата: Вт, 17.05.2022, 05:42 | Сообщение # 2 |
![]( "VeraAFM")
Группа:
Заблокированные
Ранг:
Новенький
Сообщений:
3
Замечания:
±
На сайте с 14.05.2022
Статус:
Offline
|
Народный Целитель ВЕРА https://vk.com/id205956862 Помогает ВСЕМ!
|
|
|
|
| Victoregc |
Дата: Ср, 22.06.2022, 02:45 | Сообщение # 3 |
Группа:
Заблокированные
Ранг:
Начал соображать
Сообщений:
20
Замечания:
±
На сайте с 27.11.2020
Статус:
Offline
|
Доброго времени суток дамы и господа!
Есть такой замечательный сайт https://dengi-do-zarplaty.ru/
Первое, что приходит в голову – это обратиться в банк. Но здесь есть нюансы. Чтобы оформить деньги в кредит в банке, понадобиться время, которого иногда нет. Или к примеру, если человек имеет плохую кредитную историю, банк однозначно не одобрит ему запрашиваемые средства. Получить желаемую сумму будет также сложно тем, кто не имеет официальной работы и постоянного дохода.Если в Ваши планы входит взять деньги в долг без банков и поручителей, в таком случае единственным выходом из ситуации будет - оформление микрозайма в МФО. Все выше перечисленные категории заемщиков, которые считаются максимально рискованными для банковского сектора, в МФО получают положительное решение по выдачи средств.
декоративная пленка для стекла купить
|
|
|
|
| Antoniowmr |
Дата: Ср, 12.04.2023, 05:23 | Сообщение # 4 |
Группа:
Пользователи
Ранг:
Новенький
Сообщений:
11
Замечания:
±
На сайте с 08.07.2021
Статус:
Offline
|
Привет друзья! https://r-notebook.ru/
Подарим ноутбуку вторую жизнь! Восстановим технику, которая вообще не включается или работает со сбоями. Сервисный центр «Р-Ноутбук» - это команда специалистов со стажем в сфере ремонта от 5 лет, которые устраняют поломки любой сложности в сжатые сроки. Мы ремонтируем в Москве игровые и профессиональные ноутбуки, а также ультрабуки разных моделей и производителей. Кроме того, мы устанавливаем программное обеспечение, настраиваем работу техники, чистим ее от пыли и меняем термопасту. Большинство неисправностей мастер ликвидирует в день обращения клиента.Запчасти для замены – всегда в наличии на складе компании. Мы работаем только с брендовыми комплектующими. После ремонта на услуги и детали предоставляется гарантия – мы полностью отвечаем за качество выполненных работ. Чтобы воспользоваться помощью мастера сервиса, оставьте заявку на сайте https://r-notebook.ru.
Хорошего дня!
водопонижение минск
|
|
|
|
