日期:2014-05-16 浏览次数:20450 次
在做学生管理系统中,由于并不太理解函数的意思,前几天就在程序的后面多写了两个0
Private Sub MDIForm_Load() '从注册表中取得上次关闭MDIForm时的大小
Me.Left = GetSetting(App.Title, "Settings", "MainLeft", 30000)
Me.Top = GetSetting(App.Title, "Settings", "MainTop", 30000)
Me.Width = GetSetting(App.Title, "Settings", "MainWidth", 80000)
Me.Height = GetSetting(App.Title, "Settings", "MainHeight", 80000)
End Sub
原来的文章本应该是
Private Sub MDIForm_Load() '从注册表中取得上次关闭MDIForm时的大小
Me.Left = GetSetting(App.Title, "Settings", "MainLeft", 300)
Me.Top = GetSetting(App.Title, "Settings", "MainTop", 300)
Me.Width = GetSetting(App.Title, "Settings", "MainWidth", 800)
Me.Height = GetSetting(App.Title, "Settings", "MainHeight", 800)
End Sub
当时并没有做任何记录,异地访问的过程当中,数据库能连上是没有任何问题,但是就是加载的登录界面就消失了,没有任何反应、提示错误之类的,后来在师傅的指导下,才发现这个问题,是由于多了两个0,是窗体的大小不能显示出来了,超出了屏幕的显示范围。我还以为真的消失了呢?
发现自己的问题:第一:没有及时的记录
第二:没有遵循严格的编程标准
第三:没有及时的学习相关的知识
第四:思考的还是太少,考虑不全,“为人民服务的宗旨”落实的不好
随后进行了相关知识的学习
VB之savesetting|GetSetting用法(保存与索取数据) VB 中提供了用于访问注册表的方法 GetSetting 函数, 从 Windows 注册表中的应用程序项目返回注册表项设置值。SaveSetting 语句, 在 Windows 注册表中保存或建立应用程序项目。 DeleteSetting 语句, 在 Windows 注册表中,从应用程序项目里删除区域或注册表项设置。 GetAllSettings 函数, 从 Windows 注册表中返回应用程序项目的所有注册表项设置及其相应值(开始是由 SaveSetting 产生)。 诸如窗口位置、使用的文件以及其它项目等程序设置值是存储在各种 .ini 文件中。在 Windows NT、Windows 95 以及 Windows 的较新版本中,这些程序设置值则是存储在系统注册位置中。 Visual Basic 提供了一个标准的注册位置以存储创建于 Visual Basic 的应用程序的程序信息: HKEY_CURRENT_USER\Software\VB and VBA Program Settings\appname\section\key GetSetting 函数 从 Windows 注册表中的应用程序项目返回注册表项设置值。语法GetSetting(appname, section, key[, default])GetSetting 函数的语法具有下列命名参数:部分描述appname必要。字符串表达式,包含应用程序或工程的名称,要求这些应用程序或工程有注册表项设置。section必要。字符串表达式,包含区域名称,要求该区域有注册表项设置。key必要。字符串表达式,返回注册表项设置的名称。default可选。表达式,如果注册表项设置中没有设置值,则返回缺省值。如果省略,则 default 取值为长度为零的字符串 ("")。说明如果 GetSetting 的参数中的任何一项都不存在,则 GetSetting 返回 default 的值。 该方法其实读取,注册表中HKEY_CURRENT_USER\Software\VB and VBA Program Settings下相应的值。 ------------------------------------ 语法 GetSetting(appname, section, key[, default])