VSTO中字典用法

HHAAMM

我也不解释了，如果懂得字典的话相信您能看的明白。举例列出了几种情况的一般用法
Private Sub Sheet1_Startup() Handles Me.Startup
        Dim dic As New Dictionary(Of String, String)
        Dim Arr As Array
        dic.Add("我", "A")
        dic.Add("你", "B")
        dic.Add("他", "B")
        If dic.ContainsKey("你") Then
            dic("你") = dic("你") & "D"
            MsgBox(True)
        End If
        MsgBox(dic("你"))
        If dic.ContainsValue("B") Then
            MsgBox(True)
        End If
        MsgBox(dic("他"))
        Arr = New String(dic.Keys.Count) {}
        dic.Keys.CopyTo(Arr, 0)
        MsgBox(Arr(1))
        Arr = New String(dic.Values.Count) {}
        dic.Values.CopyTo(Arr, 0)
        MsgBox(Arr(1))
    End Sub


该贴已经同步到 HHAAMM的微博

lipton

明天我写一个C#，代码很接近。

lipton

C#的代码

1. private void DemoDic()
   
2.         {
   
3.             Dictionary<string, string> dic =
   
4.             new Dictionary<string, string>();
   
5.             //向字典添加值
   
6.             dic.Add("aa", "a1");
   
7.             dic.Add("bb", "b1");
   
8.             dic.Add("cc", "c1");
   
9.             //检测是否存在ee
   
10.             if (!dic.ContainsKey("ee"))
    
11.             {
    
12.                 dic.Add("ee", "e1");
    
13.             }
    
14.             int i;
    
15.             //取得字典元素的数目
    
16.             i = dic.Keys.Count;
    
17.             //宣告String型数组，长度等于字典所含数量
    
18.             string[] arrKeys = new string[i];
    
19.             string[] arrValues = new string[i];
    
20.             dic.Keys.CopyTo(arrKeys, 0);
    
21.             dic.Values.CopyTo(arrValues, 0);
    
22.             rng1 = Application.get_Range("b6","e6");
    
23.             rng1.Value2 = arrKeys;
    
24.             rng1 = Application.get_Range("b7", "e7");
    
25.             rng1.Value2 = arrValues;
    
26.             rng1 = sh.Cells[6, 1];
    
27.             rng1.Value2 = "Key";
    
28.             rng1 = sh.Cells[7, 1];
    
29.             rng1.Value2 = "Value";
    
30. 
    
31.           }

复制代码

星浩

请问版主，带序号的字典如何定义？VSTO 是否可以像VBA用等式那样赋值。比如：dic(1)(arr(n,1))=dic(1)(arr(n,1))+arr(n,2)

tenkovv

看得懂,不差太多

excel.x

感谢分享，1024G

excel.x

dic.Values不能存放range类型的数据吧

excelhomesnake

excel.x 发表于 2020-6-5 16:22
dic.Values不能存放range类型的数据吧

不管是key还是value，字典都可以存放任何类型的数据

15899681383

excel.x 发表于 2020-6-5 16:22
dic.Values不能存放range类型的数据吧

存放的是range.values

wodewan

存放何种数据类型在于该泛型类字典特化时的参数：
如果这样特化Dictionary<string, string>则Key和Value就都只能是字符串类型；
如果这样特化Dictionary<int,Excel.Range>则Key是整数类型，Value就是单元格对象；
如果这样特化Dictionaray<object, object>则可以储存任意类型，但使用时某些类型需类型转换；
如果这样特化Dictionaray<dynamic, dynamic>同样可以储存任意类型,调用时动态解析对象类型。