VB.NET如何實(shí)現(xiàn)相框效果

小編給大家分享一下VB.NET如何實(shí)現(xiàn)相框效果，相信大部分人都還不怎么了解，因此分享這篇文章給大家參考一下，希望大家閱讀完這篇文章后大有收獲，下面讓我們一起去了解一下吧！

VB.NET相框效果實(shí)現(xiàn)代碼示例：

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 

測(cè)試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("錯(cuò)誤")  
'End If  
End Function  
End Class 

以上是“VB.NET如何實(shí)現(xiàn)相框效果”這篇文章的所有內(nèi)容，感謝各位的閱讀！相信大家都有了一定的了解，希望分享的內(nèi)容對(duì)大家有所幫助，如果還想學(xué)習(xí)更多知識(shí)，歡迎關(guān)注億速云行業(yè)資訊頻道！