读注册表
Public Shared Function readregedit() As Boolean
??????? Dim State As RegistryKey
??????? State = Registry.LocalMachine.OpenSubKey("SOFTWARE\JxcDFT Studio\Register")
??????? Try
??????????? Dim StateValue As String
??????????? '注意:注冊表值取分大小寫
??????????? StateValue = State.GetValue("State")
??????????? If StateValue = "Yes" Then
??????????????? '? MessageBox.Show(StateValue)
??????????????? Return True
??????????????? '?? Else
??????????????? '''''''''wml
??????????????? ' Return True
??????????? End If
??????? Catch
??????? End Try
??? End Function
轉載于:https://www.cnblogs.com/qiyuan/archive/2007/04/24/725413.html
總結
- 上一篇: JS实现上下左右四方向无间隙滚动
- 下一篇: ICE专题:ICE简介