[英]C# to VB.Net conversion issue
將以下行從C#轉換為VB.Net時我得到了
表達式不會產生值
C#
query.ToList().ForEach(ti => cat.Add(ti));
VB.NET
query.ToList().ForEach(Function(ti) cat.Add(ti))
C#代碼:
void MainWindow_Loaded(object sender, RoutedEventArgs e)
{
new DesignerMetadata().Register();
var toolbox = new ToolboxControl();
var cat = new ToolboxCategory("Standard Activities");
var assemblies = new List<Assembly>();
assemblies.Add(typeof(Send).Assembly);
assemblies.Add(typeof(Delay).Assembly);
assemblies.Add(typeof(ReceiveAndSendReplyFactory).Assembly);
var query = from asm in assemblies
from type in asm.GetTypes()
where type.IsPublic &&
!type.IsNested &&
!type.IsAbstract &&
!type.ContainsGenericParameters &&
(typeof(Activity).IsAssignableFrom(type) ||
typeof(IActivityTemplateFactory).IsAssignableFrom(type))
orderby type.Name
select new ToolboxItemWrapper(type);
query.ToList().ForEach(ti => cat.Add(ti));
toolbox.Categories.Add(cat);
Grid.SetColumn(toolbox, 0);
Grid.SetRow(toolbox, 1);
LayoutGrid.Children.Add(toolbox);
}
我想要Vb.net轉換。 當我在vb.net中轉換此代碼時,在query.ToList()中獲取錯誤.ForEach(Function(ti)cat.Add(ti))此行.error是Expression不生成值。
轉換VB.NET代碼
Private Sub MainWindow_Loaded(ByVal sender As Object, ByVal e As RoutedEventArgs)
Dim metadata = New DesignerMetadata()
metadata.Register()
'Create the ToolBoxControl
Dim toolbox = New ToolboxControl()
'Create a collection of category items
Dim cat = New ToolboxCategory("Standard Activities")
Dim assemblies = New List(Of Assembly)()
assemblies.Add(GetType(SendAndReceiveReplyFactory).Assembly)
assemblies.Add(GetType(Delay).Assembly)
assemblies.Add(GetType(ReceiveAndSendReplyFactory).Assembly)
Dim query = _
From asm In assemblies
From type In asm.GetTypes() _
Where type.IsPublic AndAlso Not type.IsNested AndAlso Not type.IsAbstract AndAlso Not type.ContainsGenericParameters AndAlso (GetType(Activity).IsAssignableFrom(type) OrElse GetType(IActivityTemplateFactory).IsAssignableFrom(type)) _
Order By type.Name
Select New ToolboxItemWrapper(type)
query.ToList().ForEach(Function(ti) cat.Add(ti))
toolbox.Categories.Add(cat)
Grid.SetColumn(toolbox, 0)
Grid.SetRow(toolbox, 1)
LayoutGrid.Children.Add(toolbox)
End Sub
將有問題的行更改為該行:
query.ToList().ForEach(Sub(ti) cat.Add(ti))
這是必要的,因為VB.NET中有Action<T>
( Sub(T)
)和Func<T>
( Function(t)
)的單獨語法(但在C#中沒有)。
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.