精彩编程与编程技巧-避免使用全局变量...

避免使用全局变量

我们都知道在程序中使用全局变量并非一个好的编程习惯，但尽管如此，当我们需
要保存诸如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