将C#代码转换成VB代码

[dadingly]

一直用的都是C#，现在公司要用VB开发一个项目
不过对VB不是很熟悉
有没有高手能帮我把下面这段代C#码转换成VB的代码啊？
感激不尽

using System;
using System.Collections.Generic;
using System.Text;

namespace TraveLine.SysHelpFrame
{
public class ApplacationHelper
{
private const string TRAVELINE_CONNECTIONSTRING = "TRAVELINE_CONNECTIONSTRING";

private const string TRAVELINE_CONNECTIONSTRING_DEFAULT = "Data Source=127.0.0.1;Initial Catalog=TraveLineDB;User ID=sa;password=";

private static string m_connectionString;

public static string TravelineConnectionStr
{
get
{
return m_connectionString;
}
set
{
m_connectionString = value;
}
}

protected static string ReadSetting(string key, string defaultValue)
{
try
{
string setting = System.Configuration.ConfigurationManager.AppSettings[key];
return (null == setting) ? defaultValue : setting;
}
catch
{
return defaultValue;
}
}

private static void ReadConveryanceConfiguration()
{
m_connectionString = ReadSetting(TRAVELINE_CONNECTIONSTRING, TRAVELINE_CONNECTIONSTRING_DEFAULT);
}

public static void OnAppStart(string appPath)
{
string m_appRoot = appPath;

// 读取配置节
ReadConveryanceConfiguration();
}
}
}

[snto]

Imports System
Imports System.Collections.Generic
Imports System.Text

Namespace TraveLine.SysHelpFrame
Public Class ApplacationHelper
Private Const TRAVELINE_CONNECTIONSTRING As String = "TRAVELINE_CONNECTIONSTRING"

Private Const TRAVELINE_CONNECTIONSTRING_DEFAULT As String = "Data Source=127.0.0.1;Initial Catalog=TraveLineDB;User ID=sa;password="

Private Shared m_connectionString As String

Public Shared Property TravelineConnectionStr() As String
Get
Return m_connectionString
End Get
Set(ByVal value As String)
m_connectionString = value
End Set
End Property

Protected Shared Function ReadSetting(ByVal key As String, ByVal defaultValue As String) As String
Try
Dim setting As String = System.Configuration.ConfigurationSettings.AppSettings(key)
Return IIf((setting Is Nothing), defaultValue, setting)
Catch
Return defaultValue
End Try
End Function

Private Shared Sub ReadConveryanceConfiguration()
m_connectionString = ReadSetting(TRAVELINE_CONNECTIONSTRING, TRAVELINE_CONNECTIONSTRING_DEFAULT)
End Sub

Public Shared Sub OnAppStart(ByVal appPath As String)
Dim m_appRoot As String = appPath

' 读取配置节
ReadConveryanceConfiguration()
End Sub
End Class
End Namespace


注意：System.Configuration.ConfigurationManager在net2.0中不存在，更改为System.Configuration.ConfigurationSettings，.net 1.0或1.1应该还是这个，未经测试。lz看着办吧！
另.net2.0中System.Configuration.ConfigurationSettings已经过时了（即将在下个版本中删除）建议更改。
解决办法：
先添加引用“System.configuration”注意，是添加引用不是imports
然后将“System.Configuration.ConfigurationSettings.AppSettings”
改为“System.Configuration.ConfigurationManager.AppSettings”

[mjdwcn]

网上有这样的代码转换工具，你可以在百度中搜一下

[zhaoxiaoyang5156]

http://www.w3school.com.cn/sql/sql_union.asp
代码转换网站。

[ssdut_nowind]

似乎VS直接能转，同事写控件什么的就是用C#，然后再转到VB，不过我不知道怎么转。
你可以研究一下。

[zhangguiyou]

http://www.developerfusion.co.uk/utilities/convertcsharptovb.aspx
C#转VB

[dracula1133]

先编译成dll再vb.net反编译

[Mydscn]

VB.NET to C# 在线转换
http://www.developerfusion.co.uk/utilities/convertvbtocsharp.aspx

C# to VB.NET 在线转换
http://authors.aspalliance.com/aldotnet/examples/translate.aspx

[rainbowsoftware]

网上有没有把vba转成vb.net的工具

[randomx]

http://www.developerfusion.co.uk/utilities/convertcsharptovb.aspx 优秀的转换网站