VB.NET可以對圖片進行熟練的操作。比如對圖片進行合并或分開等等。在這里我們會為大家介紹一下有關VB.NET相框效果的實現方法，希望可以幫助大家提高對圖片處理方面的認知程度。#t#

VB.NET相框效果實現代碼示例：

1. Imports System.Drawing  
2. Imports System.Drawing.Imaging  
3. Imports System.Drawing.Drawing2D  
4. Public Class ImgMerg  
5. Public Shared Function MergedImage
   (ByVal innerImgPath As String, 
   ByVal outerImgPath As String, 
   ByVal mergImgPath As String) 
   As Boolean  
6. Try  
7. Dim fi As System.IO.FileInfo = 
   New System.IO.FileInfo(mergImgPath)  
8. If fi.Directory.Exists = False Then  
9. fi.Directory.Create()  
10. 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 

測試VB.NET相框效果代碼

'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("錯誤")  
'End If  
End Function  
End Class 

VB.NET相框效果的相關操作方法就為大家介紹到這里。