SortedDictionary 中的第一项？

有许多，many讨论如何从 a 中获取“第一个”项目Dictionary，以及关于为什么这样的事情实际上不是一个好主意的各种答案，因为没有内部顺序。但我的是一个SortedDictionary，所以这些论点不适用。但我找不到从 a 中获取第 N 个项目的方法SortedDictionary比a更容易Dictionary.

这是我的 SD：

FRs As SortedDictionary(Of DateTime, ScheduleItem)

我看到一些我应该能够做到的提示：

If FRs.Count = 1 Then
    FirstFR = FRs.Keys(0)

但这在我的代码中无效 - 它说它没有默认值并且无法索引。.First其他选项似乎都在 LINQ 中，我无法瞄准它。那么有什么简单的方法可以以这种方式访问​​它吗？

注意：提供的任何解决方案不得使用 LINQ，这在许多非 Wintel 平台上并不存在。

问题是一个SortedDictionary确实是按键排序的。但这并不意味着您可以通过索引访问它。因此，如果您无法使用 LINQ：

Dim firstFR As KeyValuePair(Of DateTime, ScheduleItem)
For Each kv In FRs
    firstFR = kv
    Exit For
Next

否则你可以简单地使用First/ FirstOrDefault.

旁注：自从KeyValuePair(Of Tkey, TValue)是一个结构，因此是一个值类型，它永远不是null/Nothing。你可以用这种丑陋的方式检查空字典：

If firstFR.Equals(New KeyValuePair(Of DateTime, ScheduleItem))
    Console.WriteLine("Empty dictionary")
End If 

所以使用起来更具可读性If FRs.Count = 0 Then ....

Update：如果您只想要给定索引处的键或值，您可以使用：

Dim firstSchedule As Date = FRs.Keys(0)

或第一个Date in it:

Dim firstDate As ScheduleItem = FRs.Values(0)

通过这种方式，即使没有 LINQ，您实际上也可以通过索引获取两者：

Dim firstFR = new KeyValuePair(Of DateTime, ScheduleItem)(FRs.Keys(0), FRs.Values(0))