VB.NET相框效果具体方式解析

开发 后端
VB.NET相框效果的实现主要体现在讲图片进行合并。那么具体的代码又该如何编写呢?在这里就为大家详细介绍一下这方面的编写技巧。

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 

 

 

  1. Dim innerImg As ImageImage = Image.
    FromFile(innerImgPath)  
  2. Dim outerImg As ImageImage = Image.
    FromFile(outerImgPath)  
  3. Dim b As New Bitmap(outerImg.Width, 
    outerImg.Height, PixelFormat.
    Format16bppRgb555)  
  4. Dim g As GraphicsGraphics = 
    Graphics.FromImage(b)  
  5. g.Clear(Color.White)  
  6. Dim p1(2) As Point  
  7. Dim p2(2) As Point  
  8. If outerImg.Width >= innerImg.Width Then  
  9. If outerImg.Height >= innerImg.Height Then  
  10. p1(0) = New Point((outerImg.Width - 
    innerImg.Width) \ 2, (outerImg.Height - 
    innerImg.Height) \ 2)  
  11. p1(1) = New Point((outerImg.Width + 
    innerImg.Width) \ 2, (outerImg.
    Height - innerImg.Height) \ 2)  
  12. p1(2) = New Point((outerImg.Width - 
    innerImg.Width) \ 2, (outerImg.Height + 
    innerImg.Height) \ 2)  
  13. Else  
  14. p1(0) = New Point((outerImg.Width - 
    innerImg.Width) \ 2, 0)  
  15. p1(1) = New Point((outerImg.Width + 
    innerImg.Width) \ 2, 0)  
  16. p1(2) = New Point((outerImg.Width - 
    innerImg.Width) \ 2, outerImg.Height)  
  17. End If  
  18. Else  
  19. If outerImg.Height >= innerImg.Height Then  
  20. p1(0) = New Point(0, (outerImg.Height
     - innerImg.Height) \ 2)  
  21. p1(1) = New Point(outerImg.Width, 
    (outerImg.Height - innerImg.Height) \ 2)  
  22. p1(2) = New Point(0, (outerImg.Height 
    + innerImg.Height) \ 2)  
  23. Else  
  24. p1(0) = New Point(0, 0)  
  25. p1(1) = New Point(outerImg.Width, 0)  
  26. p1(2) = New Point(0, outerImg.Height)  
  27. End If  
  28. End If 

 

 

  1. p2(0) = New Point(0, 0)  
  2. p2(1) = New Point
    (outerImg.Width, 0)  
  3. p2(2) = New Point
    (0, outerImg.Height)  
  4. g.DrawImage(innerImg, p1)  
  5. g.DrawImage(outerImg, p2)  
  6. b.Save(mergImgPath)  
  7. outerImg.Dispose()  
  8. innerImg.Dispose()  
  9. Return True  
  10. Catch ex As Exception  
  11. Return False  
  12. End Try 

 

测试VB.NET相框效果代码

  1. 'Dim innerImgPath As String = 
    "c:\Winter.jpg" 
  2. 'Dim outerImgPath As String = 
    "c:\17.gif" 
  3. 'Dim savePath As String = 
    "C:\merg.jpg" 
  4. 'If ImgMerg.MergedImage
    (innerImgPath, outerImgPath, 
    savePath) = True Then  
  5. ' Dim bMerg As New System.
    drawing.Bitmap(savePath)  
  6. 'Else  
  7. ' MsgBox("错误")  
  8. 'End If  
  9. End Function  
  10. End Class 

VB.NET相框效果的相关操作方法就为大家介绍到这里。

责任编辑:曹凯 来源: 博客园
相关推荐

2010-01-20 17:41:13

VB.NET标记语句

2010-01-21 17:48:25

VB.NET Sing

2010-01-19 13:36:16

VB.NET可选参数

2010-01-22 17:12:08

VB.NET访问Ifr

2010-01-21 18:19:45

VB.NET条件编译

2010-01-13 17:23:36

VB.NET动态事件

2010-01-11 17:58:36

VB.NET压缩ZIP

2010-01-15 15:03:23

VB.NET对象变量声

2010-01-21 13:11:31

VB.NET安装工程

2010-01-12 18:12:58

VB.NET事件

2010-01-22 18:32:23

VB.NET数据并发性

2010-01-13 09:45:53

VB.NET Arra

2010-01-18 15:43:35

VB.NET自定义属性

2009-10-09 15:59:41

VB.NET对象

2010-01-11 17:05:32

VB.NET操作文本文

2010-01-22 15:37:02

VB.NET监控类

2010-01-15 16:46:05

VB.NET集合存储

2009-11-02 14:48:45

VB.NET HOOK

2010-01-14 17:41:57

VB.NET变量范围

2010-01-21 16:37:56

VB.NET变量声明
点赞
收藏

51CTO技术栈公众号