全局變量的定義和使用

在用VB開(kāi)發(fā)軟件時(shí)，經(jīng)常需要在不同的窗體間共享數(shù)據(jù)，但在過(guò)多的使用全局變量時(shí)不便于軟件的調(diào)試和修改。通常有兩種解決方法。
    第一種方法：定義全局變量，然后在各個(gè)窗體中直接使用，例如
    Public strCustomerID As String
    Public strCustomerName As String
    第二種方法：添加一個(gè)模塊專門(mén)用于定義變量，然后定義一些Public過(guò)程或函數(shù)來(lái)設(shè)置和獲取這些數(shù)據(jù)，例如
    Dim strCustomerID As String
    Dim strCustomerName As String
    Public Sub SetCustomerID(CustomerID As String)
    strCustomerID = CustomerID
    End Sub
    Public Function GetCustomerID() As String
    GetCustomerID = strCustomerID
    End Function
    Public Sub SetCustomerName(CustomerName As String)
    strCustomerName = CustomerName
    End Sub
    Public Function GetCustomerName() As String
    GetCustomerName = strCustomerName
    End Function
    考試大提醒：其實(shí)這兩種方法都有缺點(diǎn)，使用第一種方法時(shí)，當(dāng)過(guò)程或函數(shù)中過(guò)于頻繁的使用全局變量時(shí)會(huì)給調(diào)試和修改程序帶來(lái)很大的工作量,有時(shí)會(huì)產(chǎn)生災(zāi)難性的后果。使用第二種方法時(shí)，若共享數(shù)據(jù)很多，則需要定義很多的Set*和Get*函數(shù)。