16,554
社区成员
发帖
与我相关
我的任务
分享
Dim MainKey, SubKey As Microsoft.Win32.RegistryKey
LanSet = ComboBox1.SelectedIndex
MainKey = Microsoft.Win32.Registry.CurrentUser '返回当前用户键
SubKey = MainKey.OpenSubKey("Software\TopDebugger")
If SubKey Is Nothing Then
SubKey = MainKey.CreateSubKey("Software\TopDebugger")
End If
SubKey.SetValue("Language", LanSet, Microsoft.Win32.RegistryValueKind.DWord) '此句出错!