Visual Basic

substring

split

Imports System.Drawing.Imaging

Private Sub btnBlendShapes_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBlendShapes.Click

    'alpha numbers has to be between values 0 and 255.
    'alpha 0 is fully transparent while alpha 255 is fully opaque

    'of course, change any of the alpha values below depending on which color you want to be more or
    'less transparent or opaque

    'the first apha value to be fully visible
    Dim alphaValue As Integer = 255

    'the second alpha value will have some transparency
    Dim alphaValue2 As Integer = 155

    'create 2 brushes. 1 brush with the first alpha value and the second brush using the 2nd alpha
    'value
    Dim aBrush As SolidBrush = New SolidBrush(Color.FromArgb(alphaValue, Color.Fuchsia))
    Dim aBrush2 As SolidBrush = New SolidBrush(Color.FromArgb(alphaValue2, Color.Goldenrod))

    'draw 2 rectangles, 1 with the first brush and the other rectangle using the 2nd brush
    pic.CreateGraphics.FillRectangle(aBrush, 0, 0, 100, 100)
    pic.CreateGraphics.FillRectangle(aBrush2, 50, 50, 100, 100)

End Sub

Private Sub btnDrawImages_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDrawImages.Click

    'the 2 images to use for the alpha blend. you may have to change the image paths to where the
    'images are on your computer.
    Dim imagePath As String = "AW-9TriplePan2.gif"
    Dim imagePath2 As String = "AW-9TriplePan2.gif"

    'create 2 new images with the above filenames
    Dim img As Image = Image.FromFile(imagePath)
    Dim img2 As Image = Image.FromFile(imagePath2)

    'create 2 new ojects to use the ImageAttrubute class and the ColorMatrix Class
    Dim i As ImageAttributes = New ImageAttributes
    Dim c As ColorMatrix = New ColorMatrix

    'draw both images onto the picturebox control. the first image will not have any changes made to
    'any of its attributes.
    pic.CreateGraphics.DrawImage(img, 0, 0, 200, 150)

    'with matrix33 you can adjust the images alpha value
    'values I think are to be between 0 and 1. Ex: .3, .25, or .5 ect....
    c.Matrix33 = 0.45
    i.SetColorMatrix(c)

    'this 2nd image will have its maxtrix33 element modified to make the image appear more
    'transparent. Remember the matrix33 element controls the images Alpha value.
    pic.CreateGraphics.DrawImage(img2, New Rectangle(50, 50, 200, 150), 0, 0, img2.Width, _
    img2.Height, GraphicsUnit.Pixel, i)

End Sub

Private Sub pic_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pic.Click

    'will redraw the picturebox and clear the rectangles and images that were drawn
    pic.Refresh()

End Sub