Sub Button1Click(sender As Object, e As EventArgs)
Dim Root1 As RegistryKey = Registry.LocalMachine
Dim key1 As RegistryKey = Root1.OpenSubKey ( "SOFTWARE\Autodesk\CSP" ,true )
textBox1.Text =key1.GetValue("Oce TCS")
End Sub
"LocalMachine\SOFTWARE\Autodesk\CSP"里有Oce TCS這個項嗎?
If (key1 Is Nothing) Then
Else
TextBox1.Text = key1.GetValue("ReleaseVersion")
key1.Close()
End If
樓主可以斷點除錯一下。
"LocalMachine\SOFTWARE\Autodesk\CSP"里有Oce TCS這個項嗎?
If (key1 Is Nothing) Then
Else
TextBox1.Text = key1.GetValue("ReleaseVersion")
key1.Close()
End If
樓主可以斷點除錯一下。
"LocalMachine\SOFTWARE\Autodesk\CSP"里有Oce TCS這個項嗎?
If (key1 Is Nothing) Then
Else
TextBox1.Text = key1.GetValue("ReleaseVersion")
key1.Close()
End If
樓主可以斷點除錯一下。