Question

我正在尝试将标签设置为注册表项的值，以便当该人加载表单时，它将标签设置为注册表项值。它没有设置，只是默认文本是找不到键或发生错误。我得到Microsoft.VisualBasic.dll中出现'System.InvalidCastException'类型的第一次机会异常，作为即时窗口中的错误。

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim readValue As String
    readValue = My.Computer.Registry.GetValue _
    ("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Bohemia Interactive Studio\ArmA 2 OA", "KEY", Nothing)
    Label3.Text = readValue
End Sub

Answer 1

首先尝试：

MsgBox（“值为”＆amp; readValue）

只是为了检查它是否是“KEY”的东西。

然后：
加上这个：

Dim bytes as Byte() = CType(readValue, Byte())
str = BitConverter.ToString(bytes)
label.Text = str

Answer 2

试试这个：

readvalue = Encoding.Unicode.GetString(My.Computer.Registry.GetValue(".etc..",));

表单加载时不会设置标签

2 个答案: