VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 避免使用全局变量
发表评论(0)作者:不详, 平台:VB6.0+Win98, 阅读:11912, 日期:2000-03-12
避免使用全局变量



我们都知道在程序中使用全局变量并非一个好的编程习惯,但尽管如此,当我们需

要保存诸如INI文件名,注册表的键值,共享常量等时,还是经常用到全局变量。

有个解决的办法就是将这些全局变量封装起来,变成一个类的属性。例如下面的语

句:


Option Explicit


Private m_sINIFile As String

Private Const QUERY_TIMEOUT As Long = 120


Private Sub Class_Initialize()


m_sINIFile = App.Path & "\" & App.Title & ".ini"


End Sub


Public Property Get INIFile() As String

INIFile = m_sINIFile

End Property


Public Property Get REGKey() As String

REGKey = "\SOFTWARE\MyKey"

End Property Public


Property Get QueryTimeOut() As Long

QueryTimeOut = QUERY_TIMEOUT

End Property


假设这个类的名称为CProjectData,下面的语句是如何使用这个类。


Dim objData As CProjectData


Set objData = New CProjectData


If Dir$(objData.INIFile, vbNormal) = "" Then

MsgBox objData.INIFile & " - INI file not found!"

End If


通过类模块的封装的另一个好处是,你再也不必去记住全局变量名。当你使用类时,

VB会自动提醒你该类的属性。