日本综合一区二区|亚洲中文天堂综合|日韩欧美自拍一区|男女精品天堂一区|欧美自拍第6页亚洲成人精品一区|亚洲黄色天堂一区二区成人|超碰91偷拍第一页|日韩av夜夜嗨中文字幕|久久蜜综合视频官网|精美人妻一区二区三区

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

創(chuàng)新互聯(lián)公司專注于寬城網(wǎng)站建設(shè)服務(wù)及定制，我們擁有豐富的企業(yè)做網(wǎng)站經(jīng)驗(yàn)。 熱誠為您提供寬城營銷型網(wǎng)站建設(shè)，寬城網(wǎng)站制作、寬城網(wǎng)頁設(shè)計(jì)、寬城網(wǎng)站官網(wǎng)定制、小程序定制開發(fā)服務(wù)，打造寬城網(wǎng)絡(luò)公司原創(chuàng)品牌,更為您提供寬城網(wǎng)站排名全網(wǎng)營銷落地服務(wù)。

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 
 
 

測試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相框效果的相關(guān)操作方法就為大家介紹到這里。

當(dāng)前標(biāo)題：VB.NET相框效果具體方式解析
標(biāo)題來源：http://www.dlmjj.cn/article/djscjpo.html