w_ewm1.vb

这里只显示每个文件的开头 60 行。登录后可以解锁完整代码。

微信扫码关注公众号，代码整理好后第一时间通知你。

Imports System.Collections.Generic
Imports System.Collections
Imports System.IO
Imports com.google.zxing.qrcode
Imports com.google.zxing
Imports com.google.zxing.common
Imports ByteMatrix = com.google.zxing.common.ByteMatrix
Imports EAN13Writer = com.google.zxing.oned.EAN13Writer
Imports EAN8Writer = com.google.zxing.oned.EAN8Writer
Imports MultiFormatWriter = com.google.zxing.MultiFormatWriter
Imports System.Drawing
Public Class w_ewm1
    Public Shared Ewm_DateDir As String = Format(Now.Date, "yyyy-MM-dd").ToString
    Public Shared Ewm_SavePath As String = ""

    ''' <summary>
    ''' 根据内容生成二维码
    ''' </summary>
    ''' <param name="content"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Shared Function Buildewm(ByVal content As String, ByVal filename As String) As String
        Call w_ewm1.GetFile()
        Dim imgPath As String = filename & "_new.png"
        Dim byteMatrix As ByteMatrix = New MultiFormatWriter().encode(content, BarcodeFormat.QR_CODE, 500, 500)
        WriteToFile(byteMatrix, System.Drawing.Imaging.ImageFormat.Png, "c:/emw/" & imgPath)

        '\\\\\\\\\\\\\\\\\\\\\
        '图片路径
        Dim oldPath As [String] = "c:/emw/" & imgPath

        '新图片路径
        Dim newPath As [String] = System.IO.Path.GetExtension(oldPath)

        '设置截取的坐标和大小
        Dim x As Integer = 40, y As Integer = 40, width As Integer = 420, height As Integer = 420

        '计算新的文件名，在旧文件名后加_new
        newPath = oldPath.Replace("_new", "")  
        '定义截取矩形
        Dim cropArea As New System.Drawing.Rectangle(x, y, width, height)
        '要截取的区域大小
        '加载图片
        Dim img As System.Drawing.Image = System.Drawing.Image.FromStream(New System.IO.MemoryStream(System.IO.File.ReadAllBytes(oldPath)))

        '判断超出的位置否
        If (img.Width < x + width) OrElse img.Height < y + height Then
            'Response.Write("截取的区域超过了图片本身的高度、宽度.")
            img.Dispose()
            Return Nothing
        End If
        '定义Bitmap对象
        Dim bmpImage As New System.Drawing.Bitmap(img)

        '进行裁剪
        Dim bmpCrop As System.Drawing.Bitmap = bmpImage.Clone(cropArea, bmpImage.PixelFormat)

        '保存成新文件
        bmpCrop.Save(newPath)