[VB.NET] Convertire progetto da C# a VB.NET

[x69asterix]

ciao,
mi date una mano a convertire un progetto da C# in vb.net?
ho il listato ed ho anche il convertitore Questo
il progetto è:

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;
using OpenNETCF.Desktop.Communication;
using System.IO;

namespace DeviceFileBrowser
{
    public partial class Main : Form
    {
        private RAPI m_rapi;
        private ActiveSync m_activeSync;
        private string m_selectedFile = "";
        private string m_path = "";

        public Main()
        {
            InitializeComponent();
        }

        private void aboutToolStripMenuItem_Click(object sender, EventArgs e)
        {
            using (AboutBox ab = new AboutBox())
                ab.ShowDialog(this);
        }

        private void Main_Load(object sender, EventArgs e)
        {
            InitializeRAPI();
        }

        private void InitializeRAPI()
        {
            this.toolStripMenuItem1.Enabled = false;
            this.m_rapi = new RAPI();
            this.m_activeSync = this.m_rapi.ActiveSync;
            this.m_activeSync.Disconnect += new DisconnectHandler(activeSync_Disconnect);
            this.m_activeSync.Active += new ActiveHandler(activeSync_Active);
            this.m_rapi.RAPIConnected += new RAPIConnectedHandler(rapi_RAPIConnected);
            this.m_rapi.RAPIDisconnected += new RAPIConnectedHandler(rapi_RAPIDisconnected);

            //Init rapi if the device is present
            if (this.m_rapi.DevicePresent)
                this.m_rapi.Connect();
        }

        private void rapi_RAPIConnected()
        {
            this.Invoke(
                new MethodInvoker(
                    delegate()
                    {
                        this.Cursor = Cursors.WaitCursor;
                        this.Icon = Properties.Resources.Connected1;
                        this.toolStripStatusConnectionStatus.Image = Properties.Resources.Connected;
                        this.toolStripStatusConnectionStatus.Text = "Loading Directories...";
                        this.Refresh();
                        LoadDirectories("\\");
                        this.toolStripStatusConnectionStatus.Text = "Connected";
                        toolStripMenuItem1.Enabled = true;
                        this.Cursor = Cursors.Default;
                    }
                )
            );
        }

        private void rapi_RAPIDisconnected()
        {
            this.Invoke(
               new MethodInvoker(
                    delegate()
                    {
                        this.Cursor = Cursors.WaitCursor;
                        this.Icon = Properties.Resources.Disconnected1;
                        this.toolStripStatusConnectionStatus.Image = Properties.Resources.Disconnected;
                        this.toolStripStatusConnectionStatus.Text = "Not Connected";
                        toolStripMenuItem1.Enabled = false;
                        this.Cursor = Cursors.Default;
                    }
              )
            );
        }

        private void activeSync_Disconnect()
        {
            this.m_rapi.Disconnect();
        }

        private void activeSync_Active()
        {
            this.m_rapi.Connect();
        }



        private void LoadDirectories(string directory)
        {
            FileList fl = m_rapi.EnumFiles(directory + "*");
            if (fl != null)
            {
                foreach (FileInformation fi in fl)
                {
                    if ((fi.FileAttributes & (int)FileAttributes.Directory) == (int)FileAttributes.Directory)
                    {
                        TreeNode node = this.treeView_Directories.Nodes[0].Nodes.Add(fi.FileName);
                        this.LoadDirectories(directory + fi.FileName, node);
                    }
                }
            }
        }

        private void LoadDirectories(string directory, TreeNode node)
        {
            FileList fl = m_rapi.EnumFiles(directory + "\\*");
            if (fl != null)
            {
                foreach (FileInformation fi in fl)
                {
                    if ((fi.FileAttributes & (int)FileAttributes.Directory) == (int)FileAttributes.Directory)
                    {
                        TreeNode node1 = node.Nodes.Add(fi.FileName);
                        this.LoadDirectories(directory + "\\" + fi.FileName, node1);
                    }
                }
            }
        }

        private void LoadFilesFromDirectory(string directory)
        {
        }

        private void treeView_Directories_AfterSelect(object sender, System.Windows.Forms.TreeViewEventArgs e)
        {
            if (!m_rapi.Connected)
                return;
            this.listView_Files.Clear();
            string s = ParsePath(e.Node.FullPath);
            FileList fl = m_rapi.EnumFiles(s + "\\*");
            if (fl != null)
            {
                foreach (FileInformation fi in fl)
                {
                    if ((fi.FileAttributes & (int)FileAttributes.Directory) != (int)FileAttributes.Directory)
                        this.listView_Files.Items.Add(fi.FileName);
                }
            }

        }

        private string ParsePath(string treeNodePath)
        {
            if (treeNodePath.StartsWith("Root"))
                return treeNodePath.Replace("Root", "");
            else return treeNodePath;
        }

        public string SelectedFile
        {
            get
            {
                return this.m_selectedFile;
            }
        }

        public string Path
        {
            get
            {
                return this.m_path;
            }
        }

        private void saveToDesktopToolStripMenuItem_Click(object sender, EventArgs e)
        {
            if (this.listView_Files.SelectedItems.Count > 0)
            {
                this.m_path = this.ParsePath(this.treeView_Directories.SelectedNode.FullPath);
                this.m_selectedFile = this.listView_Files.SelectedItems[0].Text;

                saveFileDialog1.FileName = m_selectedFile;
                if (saveFileDialog1.ShowDialog(this) == DialogResult.OK)
                {
                    m_rapi.CopyFileFromDevice(saveFileDialog1.FileName, m_path + "\\" + m_selectedFile, true);
                }
            }
        }

        private void contextMenuStrip1_ItemClicked(object sender, ToolStripItemClickedEventArgs e)
        {
            this.saveToDesktopToolStripMenuItem_Click(this, EventArgs.Empty);
        }

        private void listView_Files_SelectedIndexChanged(object sender, EventArgs e)
        {

        }
    }
}

ma io non ci riesco

[alka]

Originariamente inviato da x69asterix
mi date una mano a convertire un progetto da C# in vb.net?

Più che "dare una mano", era meglio se dicevi "fatelo al posto mio".

[x69asterix]

bè non proprio, pechè in parte qualcosa esce fuori ma la prima parte del codice non ci riesco:

Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Text
Imports System.Windows.Forms
Imports OpenNETCF.Desktop.Communication
Imports System.IO

Public Class Form1
    Dim WithEvents m_rapi As New RAPI
    Dim m_activeSync As ActiveSync
    Dim m_selectedFile As String = ""
    Dim m_path As String = ""

    Private Sub activeSync_Disconnect()
        Me.m_rapi.Disconnect()
    End Sub

    Private Sub activeSync_Active()
        Me.m_rapi.Connect()
    End Sub

    Private Sub LoadDirectories(ByVal directory As String)
        Dim fl As FileList = m_rapi.EnumFiles(directory + "*")
        If Not fl Is Nothing Then
            Dim fi As FileInformation
            For Each fi In fl
                If (fi.FileAttributes & CType(FileAttributes.Directory, Integer)) = FileAttributes.Directory Then
                    Dim node As TreeNode = Me.treeView_Directories.Nodes(0).Nodes.Add(fi.FileName)
                    Me.LoadDirectories(directory + fi.FileName, node)

                End If
            Next
        End If
    End Sub


    Private Sub LoadDirectories(ByVal directory As String, ByVal node As TreeNode)
        Dim fl As FileList = m_rapi.EnumFiles(directory + "\\*")
        If Not fl Is Nothing Then
            Dim fi As FileInformation
            For Each fi In fl
                If (fi.FileAttributes & CType(FileAttributes.Directory, Integer)) = FileAttributes.Directory Then
                    Dim node1 As TreeNode = node.Nodes.Add(fi.FileName)
                    Me.LoadDirectories(directory + "\\" + fi.FileName, node1)
                End If
            Next
        End If
    End Sub


    Private Sub LoadFilesFromDirectory(ByVal directory As String)
    End Sub

    Private Sub treeView_Directories_AfterSelect(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeViewEventArgs)
        If Not m_rapi.Connected Then
            Return
        End If
        Me.listView_Files.Clear()
        Dim s As String = ParsePath(e.Node.FullPath)
        Dim fl As FileList = m_rapi.EnumFiles(s + "\\*")
        If Not fl Is Nothing Then
            Dim fi As FileInformation
            For Each fi In fl
                If (fi.FileAttributes & CType(FileAttributes.Directory, Integer)) <> (FileAttributes.Directory) Then
                    Me.listView_Files.Items.Add(fi.FileName)
                End If
            Next
        End If

    End Sub

    Private Function ParsePath(ByVal treeNodePath As String) As String
        If treeNodePath.StartsWith("Root") Then
            Return treeNodePath.Replace("Root", "")
        Else
            Return treeNodePath
        End If
    End Function

    Public ReadOnly Property SelectedFile() As String
        Get
            Return Me.m_selectedFile
        End Get
    End Property

    Public ReadOnly Property Path() As String
        Get
            Return Me.m_path
        End Get
    End Property

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        m_rapi.Connect()
        toolStripMenuItem1.Enabled = False

    End Sub

    Private Sub saveToDesktopToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles saveToDesktopToolStripMenuItem.Click
        If Me.listView_Files.SelectedItems.Count > 0 Then
            Me.m_path = Me.ParsePath(Me.treeView_Directories.SelectedNode.FullPath)
            Me.m_selectedFile = Me.listView_Files.SelectedItems(0).Text

            saveFileDialog1.FileName = m_selectedFile
            If saveFileDialog1.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then
                m_rapi.CopyFileFromDevice(saveFileDialog1.FileName, m_path + "\\" + m_selectedFile, True)
            End If
        End If
    End Sub

    Private Sub aboutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles aboutToolStripMenuItem.Click
 
        If m_rapi.DevicePresent = True Then
            m_rapi.Connect()
            LoadDirectories("\\")
        Else
            MessageBox.Show("Connettere il dispositivo", "Dispositivo assente", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End If
        If m_rapi.Connected = True Then toolStripMenuItem1.Enabled = True

    End Sub


End Class

[x69asterix]

praticamente quello che non riesco a convertire :

 public Main()
        {
            InitializeComponent();
        }

        private void aboutToolStripMenuItem_Click(object sender, EventArgs e)
        {
            using (AboutBox ab = new AboutBox())
                ab.ShowDialog(this);
        }

        private void Main_Load(object sender, EventArgs e)
        {
            InitializeRAPI();
        }

        private void InitializeRAPI()
        {
            this.toolStripMenuItem1.Enabled = false;
            this.m_rapi = new RAPI();
            this.m_activeSync = this.m_rapi.ActiveSync;
            this.m_activeSync.Disconnect += new DisconnectHandler(activeSync_Disconnect);
            this.m_activeSync.Active += new ActiveHandler(activeSync_Active);
            this.m_rapi.RAPIConnected += new RAPIConnectedHandler(rapi_RAPIConnected);
            this.m_rapi.RAPIDisconnected += new RAPIConnectedHandler(rapi_RAPIDisconnected);

            //Init rapi if the device is present
            if (this.m_rapi.DevicePresent)
                this.m_rapi.Connect();
        }

        private void rapi_RAPIConnected()
        {
            this.Invoke(
                new MethodInvoker(
                    delegate()
                    {
                        this.Cursor = Cursors.WaitCursor;
                        this.Icon = Properties.Resources.Connected1;
                        this.toolStripStatusConnectionStatus.Image = Properties.Resources.Connected;
                        this.toolStripStatusConnectionStatus.Text = "Loading Directories...";
                        this.Refresh();
                        LoadDirectories("\\");
                        this.toolStripStatusConnectionStatus.Text = "Connected";
                        toolStripMenuItem1.Enabled = true;
                        this.Cursor = Cursors.Default;
                    }
                )
            );
        }

        private void rapi_RAPIDisconnected()
        {
            this.Invoke(
               new MethodInvoker(
                    delegate()
                    {
                        this.Cursor = Cursors.WaitCursor;
                        this.Icon = Properties.Resources.Disconnected1;
                        this.toolStripStatusConnectionStatus.Image = Properties.Resources.Disconnected;
                        this.toolStripStatusConnectionStatus.Text = "Not Connected";
                        toolStripMenuItem1.Enabled = false;
                        this.Cursor = Cursors.Default;
                    }
              )
            );
        }

[x69asterix]

ma perchè non riesce a convertire? generando errore?

'Error: Converting Properties 
'Error: Converting Methods, Functions and Constructors 

 private void rapi_RAPIDisconnected()
        {
            Me.Invoke(
               New MethodInvoker(
                    delegate()
                    {
                        Me.Cursor = Cursors.WaitCursor
                        Me.Icon = Properties.Resources.Disconnected1
                        Me.toolStripStatusConnectionStatus.Image = Properties.Resources.Disconnected
                        Me.toolStripStatusConnectionStatus.Text = "Not Connected"
                        toolStripMenuItem1.Enabled = False
                        Me.Cursor = Cursors.Default
                    }
              )
            )
        }

'----------------------------------------------------------------
' Converted from C# to VB .NET using CSharpToVBConverter(1.2).
' Developed by: Kamal Patel (http://www.KamalPatel.net) 
'----------------------------------------------------------------

Mi aiutate??