vb.net图片转换为流,VB窗体图片转换

vb.net2003如何将二进制流转换成图片显示在网页上?

好像没有什么好办法，你只有不用数值型的文本框，还是改用字符型的，这样不论点击哪里光标都会出现在最前面，然后在代码中用val()函数将其转换为数值型

VB 把D:\1.bmp 图片转成二进制数据流放入 Form1.Text1.Text

如图：

图片文件:2562.bmp

1、读 BMP 文件，并将字节内容显示在窗体 Text1 中

   '按二进制格式读取BMP文件

    Dim FileNum As Long

    Dim FileName As String

   

    Dim tmpStr As Byte

'    Dim i As Integer

    Dim readStr As String

   

    FileName = "D:\vbtemp\2562.bmp"

   

    FileNum = FreeFile()

    Open FileName For Binary As FileNum

   

    readStr = ""

    Text1.Text = ""

 '   i = 1

    Do While Not EOF(FileNum)

       Get #FileNum, , tmpStr

      

       If Len(Hex(tmpStr)) = 1 Then

          readStr = readStr "0" Hex(tmpStr)

       Else

          readStr = readStr Hex(tmpStr)

       End If

  '     i = i + 1

    Loop

    Text1 = readStr

    Close FileNum

2、将该窗体中 Text1中的内容保存为另一个 BMP 文件

'把Text1 中的内容按二进制格式写入 BMP 文件

   

    Dim FileNum As Long

    Dim FileName As String

   

    Dim tmpStr As Byte

    Dim i As Integer

   

    Dim readStr As String

   

    FileName = "D:\vbtemp\256-2.bmp"

   

    FileNum = FreeFile()

    Open FileName For Binary As FileNum

   

    readStr = ""

   

    For i = 1 To Len(Text1) Step 2

        readStr = "H" Mid(Text1, i, 2)

        tmpStr = Val(readStr)

       

        Put #FileNum, , tmpStr

    Next i

   

    Close FileNum

3、这里需要注意的是：bmp文件不能太大，因为两段程序都是循环读写文件，如果bmp文件的字节太大，直接影响读写的效果，而且 TextBox 控件中存放字符串的长度也有限制。我提供的源图2562.bmp 文件大小为4K.

vb.net 中如何将图片保存到SQL数据库

保存路径最好，我几个项目都是这样。

具体如何保存，需要看你使用什么样的上传控件才可以定。

个人推荐一个是CFUPDATE，不错的控件，你可以了解，如果有不清楚，可以再问我。

VB.net中如何把一个图片转换成xml存放起来

我不是大神。。我我我我我。。。看不懂你再说什么。。制作图片么？

vb.net(2008)把图片(或其它类型文件)转换成字符串存入.txt文件中，并从.txt中读出生成图片

这个做法应该是图方便的加密解密做法。按你的C#代码来改的话是这样的。

'Imports System.IO

Public Function MapPath(ByVal virtualPath As String) As String

' Return System.Web.Hosting.MapPath(virtualPath)

' 猜想是这个 MapPath 函数

' 如果不是那就自己还原原来C#代码里的那个MapPath

End Function

Public Sub GetImage()

Dim s As System.IO.Stream = System.IO.File.Open(MapPath("33.jpg"), System.IO.FileMode.Open)

Dim leng As Integer = 0

If s.Length Int32.MaxValue Then

leng = s.Length

End If

Dim by(leng) As Byte

s.Read(by, 0, leng) ' 把图片读到字节数组中

s.Close()

Dim str As String = Convert.ToBase64String(by) ' 把字节数组转换成字符串

Dim sw As System.IO.StreamWriter = System.IO.File.CreateText(MapPath("11.txt")) ' 存入11.txt文件

sw.Write(str)

sw.Close()

sw.Dispose()

End Sub

' 把字符串还原成图片

Public Sub CreateImg()

Dim sr As New System.IO.StreamReader(MapPath("11.txt"))

Dim s As String = sr.ReadToEnd()

sr.Close()

Dim buf As Byte() = Convert.FromBase64String(s) ' 把字符串读到字节数组中

Dim ms As New System.IO.MemoryStream(buf)

Dim img As System.Drawing.Image = System.Drawing.Image.FromStream(ms)

img.Save(MapPath("12.jpg"), System.Drawing.Imaging.ImageFormat.Jpeg)

ms.Close()

ms.Dispose()

End Sub

在VB.net中如何将图片转换成二进制保存到Accees中

在access数据库里将字段的类型设置为ole对象

Public img As Byte() '图片处理用的字节数组

img=My.Computer.FileSystem.ReadAllBytes(filePath)'filePath是你图片文件的路径

剩下的就是数据库插入操作了

 Dim cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Data.mdb")

                Dim comm As OleDb.OleDbCommand

                comm = New OleDb.OleDbCommand( _

                   "INSERT INTO Photo(BuFan_F,PhotoNo,Photo) Values('"  Me.CobBuFan.Text.Trim  "','"  Me.txtNo.Text.Trim  "',@image)", cn)

                '向数据库添加存储了图片数据的二进制数组

                comm.Parameters.Add("@image", _

                          OleDb.OleDbType.Binary, img.Length).Value = img

                If cn.State = ConnectionState.Closed Then cn.Open() '打开数据库连接

                comm.ExecuteNonQuery() '执行数据库命令

                If cn.State = ConnectionState.Open Then cn.Close() '关闭数据库连接

                MessageBox.Show("图片成功保存到数据库", "完成", MessageBoxButtons.OK, MessageBoxIcon.Information)