.Net - Problems converting code-snippet from C# to VB.Net

Question

I have problems in converting the following code-snippet from C# to VB.Net:

if ((currentItem.Tag as FileSystemKind?) != FileSystemKind.File)
            {
                if (currentFileName == GOBACK)
                    currentPath = currentPath.Substring(0, currentPath.Length - Path.GetFileName(currentPath).Length - 1);
                else
                    currentPath = Path.Combine(currentPath, currentFileName);
                UpdateControls();
            }
            else
            {
                //If it's a file, we should return the selected filename
                fileName = Path.Combine(currentPath, currentFileName);
                EndOk();
            }

The problem lies in the following line:

if ((currentItem.Tag as FileSystemKind?) != FileSystemKind.File)

I have tried two different online-converters which suggested me the following conversions (for above line):

1st one:

If (TryCast(currentItem.Tag, FileSystemKind)?) <> FileSystemKind.File Then

2nd one:

If TryCast(currentItem.Tag, System.Nullable(Of FileSystemKind)) <> FileSystemKind.File Then

The error I get in VB.Net is:

TryCast' operand must be reference type, but 'FileSystemKind?' is a value type.

The code is from a project targeting the Net.Compact Framework 2.0 but I think most should be compatible with the ordinary Compact Framework.

I am lost. Anyone who can help me out?

PS: I am sorry for the layout of the code in the question. Is there a way to change the font size to a smaller one?

Thanks!

Mikael Svenson · Accepted Answer · 2009-08-09 20:47:44Z

3

Load up your compiled .dll in Reflector, then change the view language to VB and it translates it for you.

 If (DirectCast(TryCast(currentItem.Tag,FileSystemKind?), FileSystemKind) <> FileSystemKind.File) Then
    End If

edited Aug 9, 2009 at 20:47

answered Aug 9, 2009 at 20:40

Mikael Svenson

39.8k8 gold badges76 silver badges80 bronze badges

Sign up to request clarification or add additional context in comments.

3 Comments

RichardOD Over a year ago

Yeap- that would of been my suggestion but you beat to it.

moster67 Over a year ago

Hej Mikael: yes, that's another converter I didn't think about. I'll keep that in mind next time I encounter similar issues.

Mikael Svenson Over a year ago

It works for other .Net languages as well. And the output from it is shorter than the suggested solution further up. Vote me up :)

user113476 · Accepted Answer · 2009-08-09 15:30:42Z

2

If currentItem.Tag is always of type FileSystemKind you could try


If (DirectCast(currentItem.Tag, FileSystemKind) <> FileSystemKind.File) Then

if currentItem.Tag is not always of type FileSystemKind you could try


        If TypeOf (currentItem.Tag) Is FileSystemKind Then
            If (DirectCast(currentItem.Tag, FileSystemKind) <> FileSystemKind.File) Then
            End If
        Else
            ' handle different types
        End If

You may also use "CType" to convert or cast the type of the variant object "currentItem.Tag" to type FileSystemKind


If (CType(currentItem.Tag, FileSystemKind) <> FileSystemKind.File) Then

answered Aug 9, 2009 at 15:30

user113476

1 Comment

moster67 Over a year ago

roygbiv: the statement you suggested "If (CType(currentItem.Tag, FileSystemKind) <> FileSystemKind.File) Then" resolved everything. Thanks.

ZippyV · Accepted Answer · 2009-08-09 14:21:36Z

1

If TypeOf(currentItem.Tag) Is FileSystemKind AndAlso CType(currentItem.Tag, FileSystemKind) = FileSystemKind.File Then

answered Aug 9, 2009 at 14:21

ZippyV

13.1k3 gold badges39 silver badges52 bronze badges

1 Comment

jfsk3 Over a year ago

He's not testing if it is an enum type, he's testing whether it is an enum value.

Collectives™ on Stack Overflow

.Net - Problems converting code-snippet from C# to VB.Net

3 Answers 3

3 Comments

1 Comment

1 Comment

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

3 Answers 3

3 Comments

1 Comment

1 Comment

Your Answer

Sign up or log in

Post as a guest

Related