vsto中用字典的求助

上清宫主

学习了HHAAMM版主的VSTO中字典用法的帖子非常有帮助，谢谢版主了。
在试用中有两处尚存疑：
1、该帖用dic.Keys.CopyTo(Arr, 0)将内容存入数组，再使用。可不可以象是在VBA中一样直接写入单元格区域？如可以，该怎么写？
2、如果还想transpose来转一下，代码又该如何？
谢谢各位！

amesman

        Dim dic As New Dictionary(Of String, String)
        Dim i As Integer
        dic.Add("我", "A")
        dic.Add("你", "B")
        dic.Add("他", "B")
        For i = 0 To dic.Count - 1
            Globals.Sheet1.Range("A" & i + 1).Value = dic.Keys(i)
        Next

上清宫主

amesman 发表于 2013-1-2 17:48
Dim dic As New Dictionary(Of String, String)
        Dim i As Integer
        dic.Add("我" ...

谢谢您！
必须用循环？不可以象VBA一样一次性写入？

amesman

1. Dim dic As New Dictionary(Of String, String)
   
2.         Dim Arr As Array
   
3.         dic.Add("我", "A")
   
4.         dic.Add("你", "B")
   
5.         dic.Add("他", "B")
   
6.         Arr = New String(dic.Keys.Count) {}
   
7.         dic.Keys.CopyTo(Arr, 0)
   
8.         Globals.Sheet1.Range("A1").Resize(dic.Count, 1).Value = Application.WorksheetFunction.Transpose(Arr)

复制代码

上清宫主

amesman 发表于 2013-1-2 18:42

非常感谢！这个已将transpose等一类的用法展示出来了
只剩下第一问了：必须用CopyTo放进数组进行过渡而不能象VBA一样直接写进单元格区域？

wpxxsyzx

上清宫主 发表于 2013-1-2 19:04
非常感谢！这个已将transpose等一类的用法展示出来了
只剩下第一问了：必须用CopyTo放进数组进行过渡而不 ...

dic.Keys.ToArray()、dic.Values.ToArray()
比如：
Globals.Sheet1.Range("A1").Resize(dic.Count, 1).Value = Application.WorksheetFunction.Transpose(dic.Keys.ToArray())

上清宫主

原来如此！非常感谢版主！谢谢了！

上清宫主

刚开始学用VSTO，好多细节都与VBA不同了，要熟练看来得要好些日子。多向各位请教、学习！