VB.NET中的动态菜单

Question

我想写一个基于用户角色创建菜单的代码。

Dim User_Role As String = "Admin"
Dim Menus As New Dictionary(Of String, Object) From {
{"Admin", { {"item1", "item1_icon" }, {"item2", "item2_icon"}, {"item3", "item3_icon"} } },
{"User", { {"item1", "item1_icon" }, {"item2", "item2_icon"} } }
}
For Each menu As Object In Menus.Item(User_Role)
'Inside this loop i need to get for example "item*" and "item*_icon" each time until all items in that user role are looped through and idk how to do it
Next

我哪里做错了？

以下是"；管理员"；用户

这是预期的结果；用户"；

Answer 1

我现在明白了。

使用以下语法：

Dim User_Role As String = "Admin"
Dim Menus As New Dictionary(Of String, String(,)) From {
{"Admin", {{"item1", "item1_icon"}, {"item2", "item2_icon"}, {"item3", "item3_icon"}}},
{"User", {{"item1", "item1_icon"}, {"item2", "item2_icon"}}}
}
Dim menuSystem As String(,) = Menus.Item(User_Role)
For row As Integer = 0 To menuSystem.GetUpperBound(0)
Console.WriteLine(row & ": " & menuSystem(row, 0) & ", " & menuSystem(row, 1))
Next

输出：

0: item1, item1_icon
1: item2, item2_icon
2: item3, item3_icon4