vb.net 將文件轉化成二進制

首先引入System.IO命名空間

創新互聯公司主營梁子湖網站建設的網絡公司,主營網站建設方案,成都app軟件開發公司,梁子湖h5微信小程序開發搭建,梁子湖網站營銷推廣歡迎梁子湖等地區企業咨詢

Imports System.IO

然后使用文件流來讀入數組：

Dim bytes() As Byte

Using fs As New FileStream(文件路徑,FileMode.Open)

ReDim bytes(fs.Length-1)

fs.Read(bytes,0,fs.Length)

fs.Close()

End Using

這樣bytes就是整個文件的所有字節了

從字節生成Image：

Dim img As Image = Image.FromStream(New MemoryStream(bytes))

img就是圖片了

vb.net 圖片轉換二進制代碼

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim MyStream As New System.IO.MemoryStream

Me.PictureBox1.Image.Save(MyStream, System.Drawing.Imaging.ImageFormat.Jpeg)

Dim MyBytes(MyStream.Length) As Byte

MyStream.Read(MyBytes, 0, MyStream.Length)

MyStream.Close()

Dim strText As String

strText = BitConverter.ToString(MyBytes)

Me.TextBox1.Text = strText

End Sub

vb.net如何將圖片轉二進制

'容易，用api，查一查SetBitmapBits

'新建工程，增加一個 command button ， 一個 picture box , 將圖片加載到 picture box.

'將代碼粘貼到 Form1

Private Type BITMAP

bmType As Long

bmWidth As Long

bmHeight As Long

bmWidthBytes As Long

bmPlanes As Integer

bmBitsPixel As Integer

bmBits As Long

End Type

Private Declare Function GetObject Lib "gdi32" Alias "GetObjectA" (ByVal hObject As Long, ByVal nCount As Long, lpObject As Any) As Long

Private Declare Function GetBitmapBits Lib "gdi32" (ByVal hBitmap As Long, ByVal dwCount As Long, lpBits As Any) As Long

Private Declare Function SetBitmapBits Lib "gdi32" (ByVal hBitmap As Long, ByVal dwCount As Long, lpBits As Any) As Long

Dim PicBits() As Byte, PicInfo As BITMAP, Cnt As Long

Private Sub Command1_Click()

'Get information (such as height and width) about the picturebox

GetObject Picture1.Image, Len(PicInfo), PicInfo

'reallocate storage space

ReDim PicBits(1 To PicInfo.bmWidth * PicInfo.bmHeight * 3) As Byte

'Copy the bitmapbits to the array

GetBitmapBits Picture1.Image, UBound(PicBits), PicBits(1)

'Invert the bits

For Cnt = 1 To UBound(PicBits)

PicBits(Cnt) = 255 - PicBits(Cnt)

Next Cnt

'Set the bits back to the picture

SetBitmapBits Picture1.Image, UBound(PicBits), PicBits(1)

'refresh

Picture1.Refresh

End Sub

vb.net 二進制讀取文件

VB.NET打開二進制文件用fileopen完成，打開二進制文件的形式為：openmode.binary

讀取二進制文件用的是fileget方法，寫入二進制文件用的是fileput方法。

應用示例：將一批隨機數保存在一個dat文件中，然后再將其提取到文本框中。

二進制文件的讀寫一批隨機數的存取，程序為：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim x, i, fn As Integer

Dim s As String = ""

fn = FreeFile()

FileOpen(fn, "d:\data.dat", OpenMode.Binary)

For i = 1 To 8

x = Int(Rnd() * 100)

s = s + Str(x)

FilePut(fn, x)

Next

FileClose(fn)

TextBox1.Text = s

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim x, fn As Integer

Dim s As String = ""

fn = FreeFile()

FileOpen(fn, "d:\data.dat", OpenMode.Binary)

Do While Not EOF(fn)

FileGet(fn, x)

s = s + Str(x) + " "

Loop

FileClose(fn)

TextBox1.Text = s

End Sub