VB.NET如何实现相框效果

小编给大家分享一下VB.NET如何实现相框效果,相信大部分人都还不怎么了解,因此分享这篇文章给大家参考一下,希望大家阅读完这篇文章后大有收获,下面让我们一起去了解一下吧!

创新互联公司坚持“要么做到,要么别承诺”的工作理念,服务领域包括:做网站、成都网站建设、企业官网、英文网站、手机端网站、网站推广等服务,满足客户于互联网时代的南陵网站设计、移动媒体设计的需求,帮助企业找到有效的互联网解决方案。努力成为您成熟可靠的网络建设合作伙伴!

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如何实现相框效果”这篇文章的所有内容,感谢各位的阅读!相信大家都有了一定的了解,希望分享的内容对大家有所帮助,如果还想学习更多知识,欢迎关注创新互联行业资讯频道!


当前标题:VB.NET如何实现相框效果
分享URL:http://bzwzjz.com/article/gieigd.html

其他资讯

Copyright © 2007-2020 广东宝晨空调科技有限公司 All Rights Reserved 粤ICP备2022107769号
友情链接: 企业网站设计 四川成都网站设计 高端网站建设 成都商城网站建设 温江网站设计 重庆外贸网站建设 定制级高端网站建设 泸州网站建设 成都网站设计公司 网站设计制作报价 成都网站设计制作公司 企业网站建设 教育网站设计方案 成都网站建设推广 成都网站设计公司 成都企业网站建设公司 公司网站建设 成都网站设计 网站制作 成都网站设计 成都商城网站建设 成都网站建设