SaveSetting appname, section, key, setting语句总是写到"HKEY_CURRENT_USER\Software\VB and VBA Program Settings"目录下,怎样可以改变位置?
例如写到"HKEY_CURRENT_USER\Software"目录下
最简单的程序:
Private Sub MDIForm_Load()
Me.Left = GetSetting(App.Title, "Settings", "MainLeft", 1000)
Me.Top = GetSetting(App.Title, "Settings", "MainTop", 1000)
Me.Width = GetSetting(App.Title, "Settings", "MainWidth", 500)
Me.Height = GetSetting(App.Title, "Settings", "MainHeight", 1000)
End Sub
Private Sub MDIForm_Unload(Cancel As Integer)
If Me.WindowState <> vbMinimized Then
SaveSetting App.Title, "Settings", "MainLeft", Me.Left
SaveSetting App.Title, "Settings", "MainTop", Me.Top
SaveSetting App.Title, "Settings", "MainWidth", Me.Width
SaveSetting App.Title, "Settings", "MainHeight", Me.Height
End If
For i = Forms.Count - 1 To 1 Step -1
Unload Forms(i)
Next
End Sub
我的APP.Title=SerialDataTrans,写完注册表是
[HKEY_CURRENT_USER\Software\VB and VBA Program Settings\SerialDataTrans\Settings]
"MainLeft"="1095"
"MainTop"="885"
"MainWidth"="8655"
"MainHeight"="7965"
RegQueryValueEx读,RegSetValueEx写。或用vb自带的函数SaveSetting和GetSetting。
Private Sub Form_Load()
Me.Left = GetSetting(App.Title, "Settings", "MainLeft", 1000)
Me.Top = GetSetting(App.Title, "Settings", "MainTop", 1000)
Me.Width = GetSetting(App.Title, "Settings", "MainWidth", 6500)
Me.Height = GetSetting(App.Title, "Settings", "MainHeight", 6500)
End Sub
Private Sub Form_Unload(Cancel As Integer)
If Me.WindowState <> vbMinimized Then
SaveSetting App.Title, "Settings", "MainLeft", Me.Left
SaveSetting App.Title, "Settings", "MainTop", Me.Top
SaveSetting App.Title, "Settings", "MainWidth", Me.Width
SaveSetting App.Title, "Settings", "MainHeight", Me.Height
End If
SaveSetting App.Title, "Settings", "ViewMode", lvListView.View
End Sub