Рисование картинки, прозрачной на n%

@FOGOK · Регистрация: 23.06.2014

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

Возник такой вопрос: как нарисовать картинку таким способом

VB.NET

1	gr.DrawImage(New Bitmap(My.Resources.laserBtn), 0, 0)

только чуть прозрачной относительно заднего picture box ? Я так понимаю нужно сам битмап трансформировать или как ?
Или можно как-то сделать по-другому... Буду благодарен за помощь.

@ViterAlex · 16.10.2014, 21:49

Не приходит в голову ничего лучше, как перебрать все пиксели и добавить прозрачность к каждому:

VB.NET

Dim bmp As Bitmap
For x = 0 To bmp.Width
    For y = 0 To bmp.Width
        bmp.SetPixel(x, y, Color.FromArgb(150, bmp.GetPixel(x, y)))
    Next
Next

@FOGOK · 16.10.2014, 21:53 **[ТС]**

сейчас попробую!

@Hemicide · 16.10.2014, 23:02

FOGOK,

VB.NET

        Dim m_Alpha As Single = 0.5
        Dim bm1 As Bitmap = New Bitmap(My.Resources.laserBtn)
        Dim image_attr As New ImageAttributes
        Dim cm As ColorMatrix
 
        Dim bm As New Bitmap(bm1.Width, bm1.Height)
        Dim gr As Graphics = Graphics.FromImage(bm)
        Dim rect As Rectangle = Rectangle.Round(bm1.GetBounds(GraphicsUnit.Pixel))
 
        cm = New ColorMatrix(New Single()() { _
            New Single() {1.0, 0.0, 0.0, 0.0, 0.0}, _
            New Single() {0.0, 1.0, 0.0, 0.0, 0.0}, _
            New Single() {0.0, 0.0, 1.0, 0.0, 0.0}, _
            New Single() {0.0, 0.0, 0.0, 0.0, 0.0}, _
            New Single() {0.0, 0.0, 0.0, m_Alpha, 1.0}})
        image_attr.SetColorMatrix(cm)
        gr.DrawImage(bm1, rect, 0, 0, bm1.Width, bm1.Height, GraphicsUnit.Pixel, image_attr)
 
        PictureBox1.Image = bm
        PictureBox1.Refresh()

Кликните здесь для просмотра всего текста

Так гораздо быстрее, чем перебирать каждый пиксель в циклах.

@FOGOK · 16.10.2014, 23:37 **[ТС]**

ViterAlex, Я чуть переделал ваш код:
1.Добавляем PictureBox1, загружаем в него картинку (это будет фон), ставим свойство SizeMode в AutoSize.
2.Копируем PictureBox1, (важно что бы координаты PictureBox2 совпадали с координатами PictureBox1, и PictureBox2 ставим на задний план).
3. Добавляем PictureBox3, загружаем в него картинку, ставим свойство SizeMode в AutoSize.
4. Добавляем кнопку.
Вставляем код:

VB.NET

Public Class Form1
    Dim gb1bm As Bitmap
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        PictureBox1.Parent = PictureBox2  'PictureBox1 - фоновое изображение, PictureBox2 - копия фонового изображения, для того, что бы сделать PictureBox1.BackColor таким же как и фоновое изображение
        PictureBox1.Location = New Point(0, 0)
        PictureBox1.BackColor = Color.Transparent 'делаем так, задний цвет был равен фону
        gb1bm = New Bitmap(PictureBox1.Image)
        Dim pb1bm As New Bitmap(PictureBox3.Image)  'PictureBox1 - изображение, которое хоти сделать прозрачным
        For x = 0 To PictureBox3.Width - 1
            For y = 0 To PictureBox3.Height - 1
                gb1bm.SetPixel(x + PictureBox3.Location.X, y + PictureBox3.Location.Y, Color.FromArgb(150, pb1bm.GetPixel(x, y))) 'цифра 50 (устанавливаем от 0 до 255), это альфа канал (прозрачность), для того что бы установить прозрачность, относительно PictureBox1.BackColor 
            Next
        Next
        PictureBox3.Visible = False
        PictureBox1.Image = gb1bm
    End Sub
End Class

@FOGOK · 16.10.2014, 23:52 **[ТС]**

Hemicide, у меня ругается.. говорит типы ColorMatrix и ImageAttributes не определены

Добавлено через 4 минуты
исправил.... нужно импортировать

VB.NET

1	Imports System.Drawing.Imaging

@FOGOK 2 / 2 / 1 Регистрация: 23.06.2014 Сообщений: 40
	16.10.2014, 21:53 [ТС]	3
	сейчас попробую! 0

	16.10.2014, 23:52

Рисование картинки, прозрачной на n%

Решение