vb類模塊和標(biāo)準(zhǔn)模塊使用和區(qū)別(編輯修改稿)
2025-08-10 16:14 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 Employee對(duì)象和Customer對(duì)象。可能同時(shí)也希望它包含一個(gè)Product對(duì)象。可以定義四個(gè)類模塊，分別叫做SmallBusiness、Employee、Customer和Product類模塊，并給它們中的每個(gè)添加合適的屬性和方法，但是怎樣在對(duì)象之間建立連接呢？有兩種工具可以達(dá)到這個(gè)目的：即Object屬性和Collection對(duì)象。下列這段代碼顯示了實(shí)現(xiàn)分層結(jié)構(gòu)的一種辦法： 39。 SmallBusiness 類模塊中聲明部分的代碼。 Public Name As String Public Product As New Product Public Employees As New Collection Public Customers As New Collection 第一次引用Product屬性時(shí)，將創(chuàng)建對(duì)象，因?yàn)橐呀?jīng)把它聲明為As new。例如，可以用下面的代碼創(chuàng)建并設(shè)置SmallBusiness對(duì)象的Product對(duì)象的名稱和價(jià)格。 39。 一個(gè)標(biāo)準(zhǔn)模塊的代碼。 Public sbMain As New SmallBusiness Sub Main = Velociraptor Enterprises, Inc. 39。在代碼中首次使用Product變量時(shí)，創(chuàng)建Product對(duì)象。 = Inflatable Velociraptor = . . 39。 初始化并顯示主窗體的代碼。 . End Sub 注意： 用公共變量來(lái)實(shí)現(xiàn)一個(gè)對(duì)象屬性并不簡(jiǎn)潔。如果在代碼中的某處，將該屬性設(shè)置為Nothing的話，可能會(huì)無(wú)意中將Product對(duì)象撤消。更好的辦法是創(chuàng)建對(duì)象屬性時(shí)，將之設(shè)置為只讀屬性，如下列代碼所示。 39。為更強(qiáng)健的對(duì)象屬性所編制的代碼，該屬性的存儲(chǔ)是私有的， 39。因此不能從對(duì)象的外部將之設(shè)置為Nothing。 Private mProduct As New Product Property Get Product() As Product 39。首次調(diào)用這個(gè)屬性時(shí)，mProduct包含Nothing， 39。因此Visual Basic將創(chuàng)建一個(gè)Product對(duì)象。 Set Product = mProduct End If 一對(duì)多對(duì)象關(guān)系 當(dāng)對(duì)象之間關(guān)系是一對(duì)一時(shí)，對(duì)象屬性可以正常工作。然而，經(jīng)常出現(xiàn)的情況卻是，某種類型的一個(gè)對(duì)象包含另一種類型的一些對(duì)象。在SmallBusiness對(duì)象模型中，Employees屬性是作為一個(gè)Collection對(duì)象來(lái)實(shí)現(xiàn)的，因此，這個(gè)SmallBusiness對(duì)象可以包含多個(gè)Employee對(duì)象。下列代碼顯示了怎樣把新的Employee對(duì)象添加到這個(gè)集合中。 Public Function NewEmployee(Name, Salary, HireDate, _ ID) As Employ
化學(xué)相關(guān)推薦
鄂ICP備17016276號(hào)-1