VBA高级教程之字典篇，使用类模块实现字典一对多应用

cliiiiii

类模块本来就用的很少，大概只有两种情况下才会用到。。。
1、编写应用程序级的过程
应用程序级过程不像工作表级或工作簿级有专门的编程窗口，要编写只能用类模块。
2、窗体控件事件
如果有几百个窗体控件事件，需要同样的代码操作，每一个都要写一段相同代码，麻烦了点，可以用类模块来解决。
如果仅仅定义一个class类，直接放公共模块就好了，没必要用到类模块吧。。。

liucqa

cliiiiii 发表于 2014-1-29 16:40
类模块本来就用的很少，大概只有两种情况下才会用到。。。
1、编写应用程序级的过程
应用程序级过程不像工 ...

类模块主要目的是为了面向对象编程

lolmuta

其实我很讨厌将物件放到字典中，
因为取出来后，编译器就不知道他会是什么东西，
也就是，当你取出的物件，其property你要背起来，
是不会自动带出的...
要是取出来后，可以强制转型就好了，就偏偏不行...
或是有像的Java的泛型也不错...(以前都觉得的Java的泛型是让人更麻烦，想不到用了VBA，才让我看清泛型的好处)

lolmuta

我搞错了，可以转型别

1. 
   
2. 'class
   
3. Public a As String
   
4. Public b As String
   
5. 
   
6. 'module
   
7. Sub ggg()
   
8.    
   
9.     Dim a As New Dictionary
   
10.     Dim item As New Class1
    
11.     item.a = "a"
    
12.     item.b = "b"
    
13.     a.Add item, ""
    
14.     Dim t As Variant
    
15.     t = a.Keys
    
16.     Dim c As Class1
    
17.     Set c = t(0)'转型成功
    
18.     Debug.Print c.a
    
19.     Debug.Print c.b
    
20. 
    
21. End Sub

复制代码

是form物件的，就转不了

1. Sub gsass()
   
2.     Dim a As New Dictionary
   
3.     a.Add UserForm1.ListBox1, ""
   
4.     a.Add UserForm1.ListBox2, ""
   
5.     Dim t
   
6.     t = a.Keys
   
7.     Dim c As ListBox
   
8.     Set c = t(0) '失敗
   
9.     Debug.Print c.Name
   
10.    
    
11.    
    
12.    
    
13. 
    
14. 
    
15. End Sub
    

复制代码

liucqa

lolmuta 发表于 2014-2-24 13:12
我搞错了，可以转型别是form物件的，就转不了

Sub gsass()
    Dim a As New Dictionary
    a.Add UserForm1.ListBox1, ""
    Dim t
    t = a.Keys

    Dim c As MSForms.ListBox
    Set c = t(0)    '通过

    Debug.Print c.Name
    Debug.Print TypeName(c)
End Sub

lolmuta

liucqa 发表于 2014-2-24 13:19
Sub gsass()
    Dim a As New Dictionary
    a.Add UserForm1.ListBox1, ""

...还有这样的喔...這是bug嗎?
不然前面不加MSFORMS的列表框是谁家的小孩......？@@

liucqa

lolmuta 发表于 2014-2-24 14:01
...还有这样的喔...這是bug嗎?
不然前面不加MSFORMS的列表框是谁家的小孩......？@@

是excel的            

homehomehome

经典的很，正需要这，多谢了

billow2008

感谢楼主分享，收藏！

appletian86

经典的例子，学习了，谢谢。！！！！！！！！！1