日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

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

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

VB.NET相框效果實現(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("錯誤")  
  
  
  
'End If  
  
  
  
End Function  
  
  
  
End Class 
 
 

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

新聞標題：VB.NET相框效果具體方式解析
文章位置：http://m.5511xx.com/article/djscjpo.html