Converting a WCF project from C# to VB

[bubk]

Not looking for a my language is better than your language debate, just a little help that's all :cool:

Worked on my Machine!

[Not Active]

Lighten up, no debate was called for, notice the joke icon. However, you seem very defensive in your choice. Guilty feelings, or feelings of inadequency perhaps? ;P

---

I know the language. I've read a book. - _Madmatt

[bubk]

Sorry if I misunderstood the intent of your reply

Worked on my Machine!

[bubk]

I'll try to be a little bit more specific This is the block of code I am trying to translate

                        ThreadStart start = delegate
                        {
                            form = new TProgress(null, port);
                            form.sport = sport;
                            form.Show();
                            form.GetThread = new Thread(new ParameterizedThreadStart(form.GetInvoke));
                            form.GetThread.Start(transfer);
                        };
                        HelpClass.Form.BeginInvoke(start);

This is what I've got so far, my problem is on the first line AddressOf

                    'Dim start As New ThreadStart(AddressOf) <-- Not sure what this is a delegate of a function, form, ect...
                    Dim form As New TProgress(DBNull.Value, port)
                    form.sport = sport
                    form.Show()
                    form.GetThread = New Thread(New ParameterizedThreadStart(AddressOf form.GetInvoke))
                    form.GetThread.Start(Transfer)
                    'HelpClass.Form.BeginInvoke(start)

thanks

Worked on my Machine!

[Mark Salsbery]

One would think someone who wants to use VB would have a better sense of humor! :)

Mark Salsbery Microsoft MVP - Visual C++ :java:

[Not Active]

He's just feeling frustrated with all the # edges taken off his language ;P

---

I know the language. I've read a book. - _Madmatt

[Mark Salsbery]

That looks like Forms, not WCF. In the docs there's sample code for invoking a delegate asynchronously: Control.BeginInvoke Method (Delegate)[^]

Mark Salsbery Microsoft MVP - Visual C++ :java:

[bubk]

See now if he had inclosed his joke in {} followed by ; I would have gotten the joke right away :-D

Worked on my Machine!

[bubk]

Sorry, still having trouble here is the entire proc I am trying to recreate in VB

    public IEnumerable<object> SendQuery(string ip, FilesTransfer transfer, int sport)
    {
        int port = 0;
        switch (transfer.Action)
        {
            case Action.Invite:
                {
                    port = HelpClass.GetAvailablePort();
                    if (MessageBox.Show(string.Format("Accept {0} files from {1}", transfer.Files.Count, transfer.Name), "Files", MessageBoxButtons.YesNo) == DialogResult.Yes)
                    {
                        ThreadStart start = delegate
                        {
                            form = new TProgress(null, port);
                            form.sport = sport;
                            form.Show();
                            form.GetThread = new Thread(new ParameterizedThreadStart(form.GetInvoke));
                            form.GetThread.Start(transfer);
                        };
                        HelpClass.Form.BeginInvoke(start);
                        break;
                    }
                    else return new List<object>() { (int)InviteRusult.Cancel, 0 };

                }
            default:
                {
                    return new List<object>() { (int)InviteRusult.Busy, 0 };
                }
        }
        return new List<object>() { (int)InviteRusult.Ok, port };
    }

An online C# to VB converter spit this out, but the IDE doesn't like 'Dim start As ThreadStart = Function() Do

    Public Function SendQuery(ByVal ip As String, ByVal transfer As FilesTransfer, ByVal sport As Integer) As System.Collections.Generic.IEnumerable(Of Object) Implements ITransfer.SendQuery
        Dim port As Integer = 0
        Select Case transfer.Action
            Case Action.Invite
                If True Then
                    port = HelpClass.GetAvailablePort()
                    If MessageBox.Show(String.Format("Accept {0} files from {1}", transfer.Files.Count, transfer.Name), "Files", MessageBoxButtons.YesNo) = DialogResult.Yes Then
                        'Dim start As ThreadStart = Function() Do
                        '    form = New TProgress(Nothing, port)
                        '    form.sport = sport
                        '    form.Show()

[Mark Salsbery]

I don't know a lick of VB.NET, but based on the doc I linked to...

Delegate Sub InvokeDelegate()
...
HelpClass.Form.BeginInvoke(New InvokeDelegate(AddressOf start))
...
Public Sub start()
Dim form As New TProgress(DBNull.Value, port)
form.sport = sport
form.Show()
form.GetThread = New Thread(New ParameterizedThreadStart(AddressOf form.GetInvoke))
form.GetThread.Start(Transfer)
End Sub 'InvokeMethod

This uses a named-method for the delegate. The C# version uses an anonymous method for the delegate - I have no idea how that's done in VB. The VB.NET or Windows Forms forums would be a great place to ask though :)

Mark Salsbery Microsoft MVP - Visual C++ :java:

[bubk]

OK, well thanks for looking at it anyway, I appreciate it, I'll keep searching, I just started working with WCF, so I though what better way to learn than to try and convert this project thanks again...

Worked on my Machine!

[Mark Salsbery]

bubk wrote:

I just started working with WCF

This is a VB.NET language issue unrelated to WCF :)

Mark Salsbery Microsoft MVP - Visual C++ :java:

[bubk]

yep, I totally agree and understand, the reason I posted here is I thought maybe there would be a better chance of finding someone who had WCF experience and c#/vb experience :)

Worked on my Machine!

[Mark Salsbery]

Sure, and some may still jump in on this thread, but this specific issue has absolutely nothing to do with WCF so for this issue I bet there's more VB.NET experts on the VB.NET board....just sayin :)

Mark Salsbery Microsoft MVP - Visual C++ :java: