Shulou(Shulou.com)06/02 Report--

Editor to share with you how to achieve the picture frame effect of VB.NET, I believe that most people do not know much about it, so share this article for your reference, I hope you can learn a lot after reading this article, let's go to know it!

VB.NET photo frame effect implementation code example:

Imports System.Drawing

Imports System.Drawing.Imaging

Imports System.Drawing.Drawing2D

Public Class ImgMerg

Public Shared Function MergedImage

(ByVal innerImgPath As String

ByVal outerImgPath As String

ByVal mergImgPath As String)

As Boolean

Try

Dim fi As System.IO.FileInfo =

New System.IO.FileInfo (mergImgPath)

If fi.Directory.Exists = False Then

Fi.Directory.Create ()

End If

Dim innerImg As ImageImage = Image.

FromFile (innerImgPath)

Dim outerImg As ImageImage = Image.

FromFile (outerImgPath)

Dim b As New Bitmap (outerImg.Width

OuterImg.Height, PixelFormat.

Format16bppRgb555)

Dim g As GraphicsGraphics =

Graphics.FromImage (b)

G.Clear (Color.White)

Dim p1 (2) As Point

Dim p2 (2) As Point

If outerImg.Width > = innerImg.Width Then

If outerImg.Height > = innerImg.Height Then

P1 (0) = New Point ((outerImg.Width-

InnerImg.Width)\ 2, (outerImg.Height-

InnerImg.Height)\ 2)

P1 (1) = New Point ((outerImg.Width +)

InnerImg.Width)\ 2, (outerImg.

Height-innerImg.Height)\ 2)

P1 (2) = New Point ((outerImg.Width-

InnerImg.Width)\ 2, (outerImg.Height +

InnerImg.Height)\ 2)

Else

P1 (0) = New Point ((outerImg.Width-

InnerImg.Width)\ 2, 0)

P1 (1) = New Point ((outerImg.Width +)

InnerImg.Width)\ 2, 0)

P1 (2) = New Point ((outerImg.Width-

InnerImg.Width)\ 2, outerImg.Height)

End If

Else

If outerImg.Height > = innerImg.Height Then

P1 (0) = New Point (0, (outerImg.Height)

-innerImg.Height)\ 2)

P1 (1) = New Point (outerImg.Width

(outerImg.Height-innerImg.Height)\ 2)

P1 (2) = New Point (0, (outerImg.Height)

+ innerImg.Height)\ 2)

Else

P1 (0) = New Point (0,0)

P1 (1) = New Point (outerImg.Width, 0)

P1 (2) = New Point (0, outerImg.Height)

End If

End If

P2 (0) = New Point (0,0)

P2 (1) = New Point

(outerImg.Width, 0)

P2 (2) = New Point

(0, outerImg.Height)

G.DrawImage (innerImg, p1)

G.DrawImage (outerImg, p2)

B.Save (mergImgPath)

OuterImg.Dispose ()

InnerImg.Dispose ()

Return True

Catch ex As Exception

Return False

End Try

Test the VB.NET photo frame effect code

'Dim innerImgPath As String =

"c:\ Winter.jpg"

'Dim outerImgPath As String =

"c:\ 17.gif"

'Dim savePath As String =

"C:\ merg.jpg"

'If ImgMerg.MergedImage

(innerImgPath, outerImgPath

SavePath) = True Then

'Dim bMerg As New System.

Drawing.Bitmap (savePath)

'Else

'MsgBox ("error")

'End If

End Function

End Class

The above is all the content of the article "how to achieve Photo frame effect in VB.NET". Thank you for reading! I believe we all have a certain understanding, hope to share the content to help you, if you want to learn more knowledge, welcome to follow the industry information channel!

Welcome to subscribe "Shulou Technology Information " to get latest news, interesting things and hot topics in the IT industry, and controls the hottest and latest Internet news, technology news and IT industry trends.