将VB.NET图像对象添加到HTML

将VB.NET图像对象添加到HTML,html,vb.net,image,Html,Vb.net,Image,我是VB.NET的新手,我创建了一个对象图像Dim myimg As image,其中包含一个用VB.NET生成并显示在图片框中的图像。 我想像这样将此图像添加到HTML:Dim value$=” " 其中值用于替换html文件中的标记,以显示在VB.NET中生成的图片 有没有办法做到这一点借用和助手类,您可以这样做: Imports System.IO Imports System.Drawing.Imaging Public Class ImageHelper ' Convert

我是VB.NET的新手,我创建了一个对象图像
Dim myimg As image
,其中包含一个用VB.NET生成并显示在图片框中的图像。 我想像这样将此图像添加到HTML:
Dim value$=”
" 其中值用于替换html文件中的标记,以显示在VB.NET中生成的图片

有没有办法做到这一点

借用和助手类,您可以这样做:

Imports System.IO
Imports System.Drawing.Imaging
Public Class ImageHelper

    ' Convert an image to a Base64 string by using a MemoryStream. Save the
    ' image to the MemoryStream and use Convert.ToBase64String to convert
    ' the content of that MemoryStream to a Base64 string.
    Public Shared Function ImageToBase64String(ByVal image As Image, _
                                               ByVal imageFormat As ImageFormat)

        Using memStream As New MemoryStream

            image.Save(memStream, imageFormat)

            Dim result As String = Convert.ToBase64String(memStream.ToArray())

            memStream.Close()

            Return result

            : End Using

    End Function

    ' Convert a Base64 string back to an image. Fill a MemorySTream based
    ' on the Base64 string and call the Image.FromStream() methode to
    ' convert the content of the MemoryStream to an image.
    Public Shared Function ImageFromBase64String(ByVal base64 As String)

        Using memStream As New MemoryStream(Convert.FromBase64String(base64))

            Dim result As Image = Image.FromStream(memStream)

            memStream.Close()

            Return result

        End Using

    End Function

End Class
在按钮内:

Dim myImage As Image = Image.FromFile("C:\test.png")
Dim base64 As String = ImageHelper.ImageToBase64String(myImage, ImageFormat.Png)
WebBrowser1.DocumentText = "<img alt=""Embedded Image"" src=""data:image/png;base64," & base64 & """ />"
Dim myImage As Image=Image.FromFile(“C:\test.png”)
Dim base64 As String=ImageHelper.ImageToBase64String(myImage,ImageFormat.Png)
WebBrowser1.DocumentText=“”

源标记必须有一个无法接收对象的位置。您必须先保存图像,然后使用该位置创建值$variable