我用注册机保存text控件中的文字，在写程序的电脑好使，打包完换电脑运行就不保存了？

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

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

谢谢啦