您的位置：程序门 -> .net技术 -> vb.net

将c#代码转换成vb代码

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

将c#代码转换成vb代码

发表于：2007-08-03 18:42:34 楼主

一直用的都是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（);
}
}
}

发表于：2007-08-04 09:42:231楼得分:0

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

发表于：2007-08-04 12:56:192楼得分:0

http://www.developerfusion.co.uk/utilities/convertcsharptovb.aspx
c#转vb

发表于：2007-08-04 18:45:103楼得分:0

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”

发表于：2007-08-04 19:33:164楼得分:0

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

发表于：2007-08-04 19:42:575楼得分:0

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

发表于：2007-08-05 11:26:436楼得分:0

vb.net to c# 在线转换
http://www.developerfusion.co.uk/utilities/convertvbtocsharp.aspx

c# to vb.net 在线转换
http://authors.aspalliance.com/aldotnet/examples/translate.aspx

发表于：2007-08-05 12:34:237楼得分:0

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

发表于：2007-08-05 17:17:458楼得分:0

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

发表于：2007-08-06 11:52:369楼得分:0

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

下一篇：局域网中文件拷贝的一个问题
上一篇：java vb.net 互相压缩/解压缩 zip 文件？

其他资讯