Warning: file_get_contents(/data/phpspider/zhask/data//catemap/1/vb.net/17.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181

Warning: file_get_contents(/data/phpspider/zhask/data//catemap/7/image/5.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Vb.net 如何在VB中实现BMP图像文件到文本文件的转换_Vb.net_Image_Data Conversion - Fatal编程技术网

Vb.net 如何在VB中实现BMP图像文件到文本文件的转换

Vb.net 如何在VB中实现BMP图像文件到文本文件的转换,vb.net,image,data-conversion,Vb.net,Image,Data Conversion,有了这段代码,我可以跟踪并打开图像。现在我想访问图像的数据并显示。为此,我必须将图像转换为文本文件。怎么可能?。在C语言中,有一个名为Readimage的函数。什么函数可以帮助我在VB中读取图像?我认为您需要使用File.ReadAllBytes打开二进制文件,将文件内容读入字节数组,然后关闭文件 Imports System.Drawing.Imaging Imports System.Runtime.InteropServices Imports System.IO Public Class

有了这段代码,我可以跟踪并打开图像。现在我想访问图像的数据并显示。为此,我必须将图像转换为文本文件。怎么可能?。在C语言中,有一个名为Readimage的函数。什么函数可以帮助我在VB中读取图像?

我认为您需要使用File.ReadAllBytes打开二进制文件,将文件内容读入字节数组,然后关闭文件

Imports System.Drawing.Imaging
Imports System.Runtime.InteropServices
Imports System.IO
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    ' Dim OpenFileDialog1 As OpenFileDialog
    'If OpenFileDialog1.ShowDialog <> Windows.Forms.DialogResult.Cancel Then
    'PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)
    'End If
 Dim openFileDialog1 As OpenFileDialog = New OpenFileDialog

    ' Set filter options and filter index.
 openFileDialog1.Filter = "BMP Files (*.bmp)|*.bmp|All Files (*.*)|*.*"
 openFileDialog1.FilterIndex = 1

 openFileDialog1.Multiselect = True

    ' Call the ShowDialog method to show the dialogbox.
 Dim UserClickedOK As Boolean = openFileDialog1.ShowDialog
 PictureBox1.Image = Image.FromFile(openFileDialog1.FileName)
 End Sub
 End Class

不能将位图转换为文本文件,除非它是ASCII艺术!是的,他可以通过将其读入字节数组,然后用该内容创建一个.txt文件。但文本文件的内容将完全无法读取。是否可以使用其他功能(如readline、readtext等)进行读取。根本不可以。这些函数不接受位图文件。请接受答案并投票,如果它有助于您:
Dim data() as Byte = File.ReadAllBytes(path)