Convert C# to VB.NET problem

Question

0.00/5 (No votes)

See more:

For my "Winform hosting WPF Ribbon demo" I want so save / load settings of the QuickAccessToolbar.

I found a C# sample here:
ribbon - Save/ load QuickAccessToolBar - Stack Overflow[^]
and converted it with a tool.

(I use VS 2019 Community for my Ribbon demo)

What I have tried:

After fixing some of the remaining issues it saves the settings but loading does not work because of one line in
Private Sub SearchInApplicationMenu(qatItems As QatItemCollection)

Dim remainingItemsCount As Integer = qatItems.Count(Function(qat) qat.Owner = Nothing)

The C# code is:

int remainingItemsCount = qatItems.Count(qat=>qat.Owner==null);

The converted code in vb.net Editor shows error for "qatItems.Count"

Error ID: BC32016
'<procedurename>' has no parameters and its return type cannot be indexed - Visual Basic | Microsoft Docs[^]

Any idea how to solve the problem or how to easy save/load QAT settings?

Posted 27-Dec-21 2:56am

Jo_vb.net

Updated 29-Dec-21 7:49am

Add a Solution

Comments

[no name] 27-Dec-21 12:21pm

You're going to write an article using code you lifted from another site?

Jo_vb.net 27-Dec-21 12:53pm

I'm no software developer and have only experience with winforms and vb.net.

So in the first place my demo "Winform hosting WPF Ribbon" is for my own pleasure, but it would be possible to share it with others.

If it is good enough for an article - ok perhaps I'll write one, but no one seems to like that :(

I made a ribbon, ribbon tabs with ribbon buttons, an application menu and a quick access toolbar - all by myself.

The third party code - if it would work (!!!) - is only for saving the current state of the quick access toolbar and restore that when loading the app.
Of course I would give credits to the 3rd party code.

The third party code would probably be less than 20%.

But there is no need for me to push out an article ...

2 solutions

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

#realJSOP · Answer 1 · 2021-12-27T03:51:00

Solution 1

Try it this way:

C#

int remainingItemsCount = qatItems.Where(x=>x.Owner == null).Count();

Posted 27-Dec-21 3:51am

#realJSOP

Comments

Jo_vb.net 27-Dec-21 10:01am

Sorry but I need a working Vb.Net code (C# was the source).

#realJSOP 27-Dec-21 10:36am

So use an online tool to convert it to vb.

I googled an online converter, and got this:

Dim remainingItemsCount As Integer = qatItems.Where(Function(x) x.Owner Is Nothing).Count()

You can do it too. Google is free, and so is the online converter.

Jo_vb.net 27-Dec-21 11:13am

This code fixes the vb editor code error.

Unfortunately the QAT settings are saved but for an unknown reason loading it still does not work.

#realJSOP 28-Dec-21 6:14am

Free online code converters can't fix logic errors.

The debugger is your friend.

Jo_vb.net 28-Dec-21 10:21am

I stopped this approach, and created my own simpler method which saves QuickAccess Toolbar state in my.settings.

Jo_vb.net 27-Dec-21 10:41am

Did that - as described above:

I found a C# sample here:
ribbon - Save/ load QuickAccessToolBar - Stack Overflow[^]
and converted it with a tool.

After fixing some of the remaining issues it saves the settings but loading does not work because of one line in
Private Sub SearchInApplicationMenu(qatItems As QatItemCollection)
Copy Code
Dim remainingItemsCount As Integer = qatItems.Count(Function(qat) qat.Owner = Nothing)

Anyway - thanks for your replies.

LeahAtWork 27-Dec-21 14:12pm

MS Docs has a better sample: https://docs.microsoft.com/en-us/dotnet/visual-basic/programming-guide/language-features/linq/how-to-count-sum-or-average-data-by-using-linq

Translators only work so far. You'll need to break it out a little further first, then try condensing once it works.

Maciej Los · Answer 2 · 2021-12-29T07:49:00

Try this:

VB.NET

Dim remainingItemsCount As Integer = qatItems.Count(Function(qat) qat.Owner Is Nothing)

Where is redundant!

For further details, please read these:
Enumerable.Count Method (System.Linq) | Microsoft Docs[^]
Nothing keyword - Visual Basic | Microsoft Docs[^]
Null-conditional Operators - Visual Basic | Microsoft Docs[^]
Null(In C#) Vs Nothing(in vb.net) - Stack Overflow[^]