窗体问题
Private Sub Form_Load()Me.Top = GetSetting(App.Title, Me.Name, "Top")
Me.Left = GetSetting(App.Title, Me.Name, "Left")
End Sub
Private Sub Form_Unload(Cancel As Integer)
Call SaveSetting(App.Title, Me.Name, "Top", Me.Top)
Call SaveSetting(App.Title, Me.Name, "Left", Me.Left)
End Sub
我这样设置的 在我的电脑上打开 大小是我设置的大小 但是在别人的电脑上 就不是我设置的大小了 是怎么回事?
--------------------编程问答-------------------- Private Sub Form_Load()
Me.Top = GetSetting(App.Title, Me.Name, "Top")
Me.Left = GetSetting(App.Title, Me.Name, "Left")
End Sub
红色字项目名称相当,读的是同一个项目的数据,况且,该项目名不是窗口卸载时指定的项目名“top”“left”
--------------------编程问答-------------------- 你在你的电脑上运行,注册表中已经有信息了(你肯定在IDE下运行过的)。
在启动程序时,能够正常读取到数据。
在别人的电脑上运行时,第一次的状态肯定有问题吧。
你的 GetSetting() 应该加上默认的返回值。
--------------------编程问答-------------------- 建议你用 Application.CompanyName + App.Name 来命名。 --------------------编程问答-------------------- 建议你用 Application.CompanyName + App.Name + Me.Name 来命名。
补充:VB , VBA