当前位置:编程学习 > VB >>

窗体问题

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
CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,