Рисуем часть изображения в память

@crba-tgl · Регистрация: 07.03.2014

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

Друзья встала проблема, никак не могу добится результата. Есть картинка шириной 36 пикселей, высотой кратной 36, пусть будет 1800. Картинка jpeg, загружается с сайта после чего должна быть сразу обработана. Есть объекты Tiles (или LiveTiles), у которых есть свойство Image(в качестве image можно указать файл ресурса), но у них нет события paint. Ну а задача в том, что при создании каждого тайла(живая плитка) нужно загрузить определенный эскиз изображения размерами 36*36, имея соответствующие координаты x и y к примеру 0 и 72(третий квадратик из той длинной картинки). Смотрю в сторону Rectangle, но во всех примерах нужно событие paint с аргументами painteventargs. Как сделать рисование в память? Или альтернатива, для решения вопроса.

Памирыч · 15.04.2014, 13:48

Смотрите в сторону Bitmap и Graphics.FromImage(Bitmap)

@crba-tgl · 15.04.2014, 14:33 **[ТС]**

VB.NET
1
2
3
4
5
6
7
8
Dim newImage As Image = Image.FromFile("C:\1\1.jpg")
        Dim gr As Graphics = Graphics.FromImage(newImage)
        Dim destRect As New Rectangle(72, 0, 36, 36)
        gr.DrawImage(newImage, destRect)
        gr.Save()
        Dim s As New Bitmap(36, 36, gr)
 
        Button2.Image = s

нашел применение битмапу, код работает на событие клика кнопки бутон. изображение с кнопки просто исчезает. чую где отрисовку надо сделать или конвертировать !?

Памирыч · 15.04.2014, 17:43

Задача:
Получить одну десятую этого изображения

И вывести в бэкграунд формы.

Решение:
На форме расположен NumericUpDown. Значение задавать не обязательно им, просто он тут для примера

VB.NET
1
2
3
4
5
6
7
8
    Private Sub NumericUpDown1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown1.ValueChanged
        Dim BM As New Bitmap("C:\Синь.png")
        Dim LetW As Integer = BM.Width / 10
        Dim Cell As New Bitmap(LetW, BM.Height)
        Dim G As Graphics = Graphics.FromImage(Cell)
        G.DrawImage(BM, New Rectangle(LetW - (NumericUpDown1.Value + 1) * LetW, 0, BM.Width, BM.Height)) '"Вырезаем" прямоугольник
        Me.BackgroundImage = Cell
    End Sub

Суть: из одного битмапа получаем лишь определенную область. Сдвигая координату по оси X, получаем разные участки исходного изображения.

@crba-tgl · 15.04.2014, 23:31 **[ТС]**

И снова благодарю, но толи я дурак толи лыжи не едут... Уже приходил к предложенныму коду, но чуть другого порядка, не суть. Оказывается картинка просто не загрузилась. Сейчас используя ваш совместил, и получилось:

VB.NET
1
2
3
4
5
Dim img As New Bitmap("C:\1\2.png")
        Dim bi As New Bitmap(36, 36)
        Dim G As Graphics = Graphics.FromImage(bi)
        G.DrawImage(img, New Rectangle(10, 16, 36, 36))
        Button2.Image = bi

ну и собственно происходит чтото невероятное, наверно для меня поскольку не работал с картинками. все цифры уже переставлял по-разному и менял, могу сказать точно, что если в Rectangle вторая цифра будет больше, примерно может около 25-30, то картинка снова не появится) а если появится то вот такая:

над кнопкой да пришлось поиздеваться) если bi отдать свойству backgroundimage, то получим множество одинаковых изображений, размеченные таблицой по фону кнопки) изображение - первый попавшийся скриншот, конвертированный через paint.net из jpg в png. собственно где прокол не пойму.

Добавлено через 33 минуты
Накидал 6 текстбоксов и решил головоломку) Правильный код:

VB.NET
1
2
3
4
5
 Dim img As New Bitmap("C:\1\2.png")
        Dim bi As New Bitmap(36, 36)
        Dim G As Graphics = Graphics.FromImage(bi)
        G.DrawImage(img, New Rectangle(0, -36, 36, 5076))
        Button2.Image = bi

Исходное изображение размером 36*5076. Для переключения области используется число '-36'(-72,-108 и т.д.). почему в минус странно) но не до этого. памирыч сильно выручиЛ, облагодарю от души

уже неделю бился временами над вопросом)

Ах да, сейчас заметил в вашем примере тоже минус получится) значит так и должно быть, видимо в этом касячнул изначально

@Petr_S · 16.04.2014, 07:32

Сообщение от crba-tgl

если bi отдать свойству backgroundimage, то получим множество одинаковых изображений, размеченные таблицой по фону кнопки

Свойство BackgroundImageLayout

@crba-tgl · 20.04.2014, 02:51 **[ТС]**

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

Свойство BackgroundImageLayout

тут не совсем в этом причина) сама картинка тоже была некорректна, поскольку одну из координат нужно было указывать отрицательной. правда так и не понял в чем логика, некогда заострять внимание. всем спасибо за участие.

Новые блоги и статьи Все статьи Все блоги /
1С: Программный отбор элементов справочника Номенклатура по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор под наименованию группы (на. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	1С: Программный отбор элементов справочника Сотрудники по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит предопределенное значение перечислений. Процедура. . .
Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .

@crba-tgl 8 / 8 / 1 Регистрация: 07.03.2014 Сообщений: 43

	Рисуем часть изображения в память 15.04.2014, 13:32. Показов 1811. Ответов 6 Метки нет (Все метки) Друзья встала проблема, никак не могу добится результата. Есть картинка шириной 36 пикселей, высотой кратной 36, пусть будет 1800. Картинка jpeg, загружается с сайта после чего должна быть сразу обработана. Есть объекты Tiles (или LiveTiles), у которых есть свойство Image(в качестве image можно указать файл ресурса), но у них нет события paint. Ну а задача в том, что при создании каждого тайла(живая плитка) нужно загрузить определенный эскиз изображения размерами 36*36, имея соответствующие координаты x и y к примеру 0 и 72(третий квадратик из той длинной картинки). Смотрю в сторону Rectangle, но во всех примерах нужно событие paint с аргументами painteventargs. Как сделать рисование в память? Или альтернатива, для решения вопроса. 0

Памирыч Почетный модератор 23251 / 9163 / 1084 Регистрация: 11.04.2010 Сообщений: 11,014
	15.04.2014, 13:48
	Сообщение было отмечено crba-tgl как решение Решение Смотрите в сторону Bitmap и Graphics.FromImage(Bitmap) 1