Databases
StackOverflow2013
Postsdbo
POC# to VB.Net conversion issue
Body
 

Note that there are some explanatory texts on larger screens.

plurals
  1. POC# to VB.Net conversion issue
    text
    copied!<p>when converting the following line from C# to VB.Net I get </p> <p><strong>Expression does not produce a value</strong></p> <p>C#</p> <pre><code>query.ToList().ForEach(ti =&gt; cat.Add(ti)); </code></pre> <p>VB.NET</p> <pre><code>query.ToList().ForEach(Function(ti) cat.Add(ti)) </code></pre> <hr> <p>C# code :</p> <pre><code>void MainWindow_Loaded(object sender, RoutedEventArgs e) { new DesignerMetadata().Register(); var toolbox = new ToolboxControl(); var cat = new ToolboxCategory("Standard Activities"); var assemblies = new List&lt;Assembly&gt;(); 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 &amp;&amp; !type.IsNested &amp;&amp; !type.IsAbstract &amp;&amp; !type.ContainsGenericParameters &amp;&amp; (typeof(Activity).IsAssignableFrom(type) || typeof(IActivityTemplateFactory).IsAssignableFrom(type)) orderby type.Name select new ToolboxItemWrapper(type); query.ToList().ForEach(ti =&gt; cat.Add(ti)); toolbox.Categories.Add(cat); Grid.SetColumn(toolbox, 0); Grid.SetRow(toolbox, 1); LayoutGrid.Children.Add(toolbox); } </code></pre> <p>I want Vb.net conversion. when i converted this code in vb.net getting error in query.ToList().ForEach(Function(ti) cat.Add(ti)) this line .error is Expression does not produce a value.</p> <p>Converted VB.NET code </p> <pre><code> 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 </code></pre>
 

Querying!

 
Guidance
An individual column

Larger individual text columns get their own page to allow for proper reading.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload