Размеры PictureBox и его картинки

@aptos · Регистрация: 04.06.2013

Студворк — интернет-сервис помощи студентам

Для решения одной задачи нужно отношение размера картинки к размеру PictureBox. Вот как находил:

Visual Basic
1
2
Text1 = pic.Picture.Height / Screen.TwipsPerPixelX
Text2 = pic.Height / Screen.TwipsPerPixelX

Тут и появляется проблема. Высота картинки оказывается примерно 1800, а высота PictureBox - 60. Но по факту - картинка в компоненте выглядит так, как будто она не более чем в три раза больше компонента, т.е. от силы 200. Скорее всего картинка отображается не в полном размере в компоненте.

Как сделать, чтобы картинка отображалась в реальном размере?

@The trick · 22.04.2014, 22:26

Text1 = pic.ScaleY(pic.Picture.Height, vbHimetric, vbPixels)
Text2 = pic.ScaleHeight / Screen.TwipsPerPixelY

@NewBrain · 22.04.2014, 22:52

Попробуй в свойствах Pictures Box в BackgroundImageLoyout поставить значение Noun. У меня стоит Strech и размер картинки фиксируется в Боксе. Глянь, вдруг получится

@aptos · 23.04.2014, 12:46 **[ТС]**

То ли я слеп, то ли нету у PictureBox такого свойства

@The trick · 23.04.2014, 12:47

Сообщение от aptos

То ли я слеп, то ли нету у PictureBox такого свойства

NewBrain, не туда зашел и написал тебе не для того языка программирования.

@aptos · 23.04.2014, 16:46 **[ТС]**

Сообщение от The trick

NewBrain, не туда зашел и написал тебе не для того языка программирования.

Снова коня словил. Проблема оказалась в том, что у меня значения уже были в пикселях, а я еще и делил на Screen.TwipsPerPixel. Спасибо!

@Неуч · 10.12.2014, 10:14

Тоже вопрос по этому боксу. Гружу в него картинку 2000 х 3000, что выходит за размеры бокса и формы. Возможно ли сделать так, чтобы получить возможность двигать картинку в боксе? В идеале бы приставить полосы прокрутки.

SoftIce · 10.12.2014, 10:26

Таскай рукой

@Неуч · 10.12.2014, 10:35

Тоже вариант. Спасибо.

Новые блоги и статьи Все статьи Все блоги /
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ

@The trick Модератор 10057 / 3902 / 884 Регистрация: 22.02.2013 Сообщений: 5,853 Записей в блоге: 79
	22.04.2014, 22:26
	Сообщение было отмечено aptos как решение Решение Text1 = pic.ScaleY(pic.Picture.Height, vbHimetric, vbPixels) Text2 = pic.ScaleHeight / Screen.TwipsPerPixelY 1

@NewBrain 1 / 1 / 0 Регистрация: 10.02.2014 Сообщений: 18
	22.04.2014, 22:52
	Попробуй в свойствах Pictures Box в BackgroundImageLoyout поставить значение Noun. У меня стоит Strech и размер картинки фиксируется в Боксе. Глянь, вдруг получится 1

@aptos 13 / 13 / 3 Регистрация: 04.06.2013 Сообщений: 156
	23.04.2014, 12:46 [ТС]
	То ли я слеп, то ли нету у PictureBox такого свойства 0

@Неуч 0 / 0 / 1 Регистрация: 17.09.2014 Сообщений: 46
	10.12.2014, 10:14
	Тоже вопрос по этому боксу. Гружу в него картинку 2000 х 3000, что выходит за размеры бокса и формы. Возможно ли сделать так, чтобы получить возможность двигать картинку в боксе? В идеале бы приставить полосы прокрутки. 0

@Неуч 0 / 0 / 1 Регистрация: 17.09.2014 Сообщений: 46
	10.12.2014, 10:35
	Тоже вариант. Спасибо. 0

Размеры PictureBox и его картинки

Решение