getting和setting - 编程论坛

#2

zhao6493882017-09-06 17:13

回复楼主 zhao649388

Private Sub Form_Load()
Dim e
If GetSetting("vb", "jl", "jlj") <> "" Then
' For e = 1 To 5
Text1.Text = GetSetting("vb", "jl1", "jlj")
Text2.Text = GetSetting("vb", "jl2", "jlj")
Text3.Text = GetSetting("vb", "jl3", "jlj")
Text4.Text = GetSetting("vb", "jl4", "jlj")
'Text1(e).Text = GetSetting(App.Title, "Text1", "Text" & e, "")
'
'DoEvents
'Next
''Next e

End If
Frame1.Visible = False

End Sub

Private Sub Form_Unload(Cancel As Integer)
SaveSetting "vb", "jl1", "jlj", Text1.Text
SaveSetting "vb", "jl2", "jlj", Text2.Text
SaveSetting "vb", "jl3", "jlj", Text3.Text
SaveSetting "vb", "jl4", "jlj", Text4.Text

' For e = 1 To 5
'' Text1(e).Text = GetSetting("vb", "jl", "jlj")
'SaveSetting App.Title, "Text1", "Text" & e, Text1(e).Text
'
'DoEvents
'Next
End Sub

#3

xiangyue05102017-09-07 13:06

没有用过，百度了一下
SaveSetting,GetSetting 是vb中操作注册表的方法，其操作是注册表的HKEY_CURRENT_USER\Software\VB and VBA Program Settings键值下
估计你另外一台电脑可能没有这个键值存在吧。
具体的情况还需要你自己根据系统的情况调试和解决，别人无法复现你的操作环境，只能是瞎猜了

#4

zhao6493882017-09-07 19:15

回复 3楼 xiangyue0510

谢谢啦