Как сделать прозрачным PictureBox?

[Nord777]

Можно и ручками. Всё зависит от задачи, которую ты себе поставил и граблей, на которые ты успел налететь )

[GeeZeR]

Nord777 привет! Тут нарисовалась небольшая проблемка:

Я создал прямоугольный рисунок Doorx2.png (одна дверь над другой):


Загрузил его в PictureBox3 и применил твой код, изменив там PictureBox2 на PictureBox3, получилось вот что:



В общем суть в том, что Door.png содержащийся в PictureBox2 это квадратный рисунок со сторонами 128х128, а Doorx2.png в PictureBox3 это прямоугольник! Короче функция считывает все прозрачные участки верно, но накладывает вот так косячно. В алгоритме где-то ошибка - при окончательной отрисовке в коде высота всегда получается равной ширине - поэтому на рисунке с глюком видно, что функция взяла своё с рисунка правильно, а наложила в соответствии с тем, что высота строго равна ширине, то есть не учла другой размер высоты в данном случае.
Прошу тебя если будет время сделать код универсальным и поясни где там отрисовывается высота обязательно равная ширине - я смотрел блин и нифига не впоймал этот момент.

Код: Выделить всё

Imports System.Drawing.Drawing2D
Imports System.Runtime.InteropServices

Public Class Form1
  <DllImport("kernel32.dll", EntryPoint:="RtlMoveMemory", CharSet:=CharSet.Auto, SetLastError:=True, ExactSpelling:=True)> _
   Public Shared Sub CopyMemory(ByVal DestData As Integer(,), ByVal SrcData As IntPtr, ByVal Size As Integer)
  End Sub

  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim BMP As Bitmap = My.Resources.doorx2
        PictureBox3.Region = GetRegion(BMP)
  End Sub


  Function GetRegion(ByVal Bmp As Bitmap) As System.Drawing.Region
    Dim BmpArr(Bmp.Width - 1, Bmp.Height - 1) As Integer
    Dim BmpRect As Rectangle = Rectangle.Round(Bmp.GetBounds(GraphicsUnit.Pixel))
    Dim Reg As New Region(BmpRect)

    If Bmp.PixelFormat <> Imaging.PixelFormat.Format32bppArgb Then Return Reg

    Dim BData As Imaging.BitmapData
    BData = BMP.LockBits(BmpRect, Imaging.ImageLockMode.ReadOnly, BMP.PixelFormat)
    Dim Ptr As IntPtr = BData.Scan0
    Bmp.UnlockBits(BData)

    CopyMemory(BmpArr, Ptr, BmpArr.Length * 4)

    Dim Rect As New Rectangle(0, 0, 1, 1)
    Dim RowEnd = BmpArr.GetUpperBound(0)
    Dim ColEnd = BmpArr.GetUpperBound(1)

    For Row As Integer = 0 To RowEnd
      For Col As Integer = 0 To ColEnd
        If BmpArr(Row, Col) >> 24 = 0 Then
          Rect.X = Col : Rect.Y = Row
          Reg.Exclude(Rect)
        End If
      Next
    Next

    Return Reg
  End Function

End Class


[GeeZeR]

Суть моей идеи: считать в BackgroundImage Pic2 часть Pic1, которую заслоняет Pic2 !?
Это реально ??? И если реально то как ???

Да, я тебе даже алгоритм подарю вот:
- определяем размеры и местоположение Pic2
- формируем прямоугольник и делаем скриншот в него ыыы
- присваиваем скриншот бэк-картинке.

[Nord777]

В алгоритме где-то ошибка

В первой строке функции, там где обьявляется массив, поменяй местами ширину и высоту.

[GeeZeR]

"Вы маг и чародей, профессор!"

[Nord777]

"Я не волшебник, я только учусь" )

[Sebas]

Public Sub MakeTransparent(ByVal transparentColor As System.Drawing.Color)
Member of System.Drawing.Bitmap

[GeeZeR]

Sebas если можно - на нашем примере пожалуйста.

[программист]

Sebas
а дальше???

[GeeZeR]

Народ, вот Mikle создал свою библиотеку для всего этого: http://bbs.vbstreets.ru/viewtopic.php?t=32517

[Jure]

Попробуйте код (правда это C#, но на бейсике сами догадаетесь как сделать ):

Код: Выделить всё

pictureBox1.Controls.Add(pictureBox2);
((Bitmap)(pictureBox2.Image)).MakeTransparent(Color.White);