VB Variant 數(shù)據(jù)類型與用戶自定義類型

zhuyiwen

在 VB 的標(biāo)準(zhǔn)工程的標(biāo)準(zhǔn)模塊中：

1. Public Type EventRecord
   
2.         TriTime As Date
   
3.         TriType As String
   
4.         CallMobile As String
   
5. End Type
   
6. 
   
7. Sub testVariant()
   
8.     Dim er As EventRecord
   
9.     Dim p As Variant
   
10. 
    
11.     er.TriTime = Now()
    
12.     er.TriType = “CallIn”
    
13.     er.CallMobile = “13907309999”
    
14. 
    
15.     p = er
    
16. End Sub

復(fù)制代碼

這樣是有問題的。會(huì)出現(xiàn)“編譯錯(cuò)誤：只在定義在公共對象模塊中用戶定義類型能和變體類型相互轉(zhuǎn)換或傳遞給后期綁定功能。”的錯(cuò)誤。



而如果將這些代碼放在窗體模塊中：



程序編譯通不過，出現(xiàn)“編譯錯(cuò)誤：在私有對象模塊中不能定義Public的用戶定義類型。”



將用戶定義類型改為：

1. Private Type EventRecord

復(fù)制代碼

運(yùn)行程序，同樣報(bào)第一種情況的編譯錯(cuò)誤。

新建一個(gè)類模塊，將用戶定義類型移到類模塊中，并將聲明成Public，運(yùn)行程序，同樣報(bào)錯(cuò)。與第二種情況相同。

這說明一點(diǎn)，為了實(shí)現(xiàn)變體類型變量與用戶定義類型變量的相互轉(zhuǎn)換，在一個(gè)VB標(biāo)準(zhǔn)工程中，用戶類型定義放在模塊中是不行的，放在窗體或類模塊中也是不行的，窗體或類模塊都是私有的，無法找到公共對象模塊。那么，怎么做才能做到后期綁定呢？

好了，我們來添加一個(gè)ActiveX DLL工程，將：

1. Public Type EventRecord
   
2.     TriTime As Date
   
3.     TriType As String
   
4.     CallMobile As String
   
5. End Type

復(fù)制代碼

移到這個(gè)工程的類模塊中，設(shè)置該類的Instancing屬性，該屬性確定在工程之外是否能創(chuàng)建公共類的實(shí)例，它有6種選擇，在這里我們選擇 5 – MultiUse，允許其它應(yīng)用程序創(chuàng)建該類的實(shí)例。

再回到原來的工程，設(shè)置工程的引用，添加“工程2”（就是上面的ActiveX DLL工程）。刪除工程的模塊和類模塊，只剩下窗體模塊：



運(yùn)行程序，程序能夠正常通過。

結(jié)論：當(dāng)我們要開發(fā)一個(gè)應(yīng)用程序時(shí)，我們應(yīng)該將我們用到自定義類型都放到一個(gè)ActiveX DLL工程，形成公共的類型庫（TypeLibrary），供程序調(diào)用。來自群組: ACC應(yīng)用開發(fā)心得交流

admin

好東西��！

嶺南王子

辛苦了,朱總!繼續(xù)加油!!!

t小寶

很好的技巧！
不知道有沒有別的方法...

huangli0356

專心，專業(yè)。專注。。向你學(xué)習(xí)。

wang1999

放到 ActiveX DLL 后, 這個(gè)自定義類型就是一個(gè)類對象,所以varaint可以轉(zhuǎn)換

應(yīng)該這里varaint引用的是其地址,通過VARAINT設(shè)置值后,其er的值應(yīng)該也會(huì)同時(shí)變,即p和er指向同地址

huzijunreokiki

頂！

LeeTien

沒錯(cuò)，是這樣的