c转vb.net的网站 vb 类型转换

.net把C#转为VB代码

我这个就是VB.NET的代码

Imports System

Imports System.Reflection

Imports System.Runtime.Serialization

Imports System.Runtime.Serialization.Formatters

Imports System.Runtime.Serialization.Formatters.Binary

Imports System.Runtime.CompilerServices

Imports System.Runtime.Remoting

Imports System.Runtime.Remoting.Channels

Imports System.Runtime.Remoting.Channels.Tcp

Imports System.Runtime.Remoting.Messaging

Namespace Learn.Library.Remoting

Public Class RemotingTest ' *'// summary

' '/ 远程类型

' '/ /summary

' Public class Data : MarshalByRefObject

' {

' private Integer i

'

' Public Integer I

' {

' get

' {

' Return i

' }

'

' set

' {

' i = value

' }

'

' }

'

' Public void Where()

' {

' Console.WriteLine("{0} in {1}", Me.GetType().Name, AppDomain.CurrentDomain.FriendlyName)

' }

' }

'

' /**'// summary

' '/ 服务器端代码

' '/ /summary

' static void Server()

' {

' ' 创建新的应用程序域，以便模拟分布系统。

' AppDomain server = AppDomain.CreateDomain("server")

' server.DoCallBack(delegate

' {

' ' 创建并注册信道

' TcpServerChannel channel = New TcpServerChannel(801)

' ChannelServices.RegisterChannel(channel, False)

'

' ' 注册远程对象激活模式

' RemotingConfiguration.RegisterWellKnownServiceType(Type.GetType(Data), "data",

' WellKnownObjectMode.Singleton)

'

' }

' )

' }

'

' /**'// summary

' '/ 客户端代码

' '/ /summary

' static void Client()

' {

' ' 创建并注册信道

' TcpClientChannel channel = New TcpClientChannel()

' ChannelServices.RegisterChannel(channel, False)

'

' ' 创建远程对象并调用其方法

' Data data = CType(Activator.GetObject(Type.GetType(Data), "tcp://localhost:801/data"), Data)

' data.Where()

'

' ' 判断是否是代理

' Console.WriteLine(RemotingServices.IsTransparentProxy(data))

' }

'

' static void Main()

' {

' Server()

' Client()

' }

' }

'

End Class

{ ' *'// summary

' '/ 远程类型

' '/ /summary

' Public class Data : MarshalByRefObject

' {

' private Integer i

'

' Public Integer I

' {

' get

' {

' Return i

' }

'

' set

' {

' i = value

' }

'

' }

'

' Public void Where()

' {

' Console.WriteLine("{0} in {1}", Me.GetType().Name, AppDomain.CurrentDomain.FriendlyName)

' }

' }

'

' /**'// summary

' '/ 服务器端代码

' '/ /summary

' static void Server()

' {

' ' 创建新的应用程序域，以便模拟分布系统。

' AppDomain server = AppDomain.CreateDomain("server")

' server.DoCallBack(delegate

' {

' ' 创建并注册信道

' TcpServerChannel channel = New TcpServerChannel(801)

' ChannelServices.RegisterChannel(channel, False)

'

' ' 注册远程对象激活模式

' RemotingConfiguration.RegisterWellKnownServiceType(Type.GetType(Data), "data",

' WellKnownObjectMode.Singleton)

'

' }

' )

' }

'

' /**'// summary

' '/ 客户端代码

' '/ /summary

' static void Client()

' {

' ' 创建并注册信道

' TcpClientChannel channel = New TcpClientChannel()

' ChannelServices.RegisterChannel(channel, False)

'

' ' 创建远程对象并调用其方法

' Data data = CType(Activator.GetObject(Type.GetType(Data), "tcp://localhost:801/data"), Data)

' data.Where()

'

' ' 判断是否是代理

' Console.WriteLine(RemotingServices.IsTransparentProxy(data))

' }

'

' static void Main()

' {

' Server()

' Client()

' }

' }

'

End Namespace

{

Public Class RemotingTest ' *'// summary

' '/ 远程类型

' '/ /summary

' Public class Data : MarshalByRefObject

' {

' private Integer i

'

' Public Integer I

' {

' get

' {

' Return i

' }

'

' set

' {

' i = value

' }

'

' }

'

' Public void Where()

' {

' Console.WriteLine("{0} in {1}", Me.GetType().Name, AppDomain.CurrentDomain.FriendlyName)

' }

' }

'

' /**'// summary

' '/ 服务器端代码

' '/ /summary

' static void Server()

' {

' ' 创建新的应用程序域，以便模拟分布系统。

' AppDomain server = AppDomain.CreateDomain("server")

' server.DoCallBack(delegate

' {

' ' 创建并注册信道

' TcpServerChannel channel = New TcpServerChannel(801)

' ChannelServices.RegisterChannel(channel, False)

'

' ' 注册远程对象激活模式

' RemotingConfiguration.RegisterWellKnownServiceType(Type.GetType(Data), "data",

' WellKnownObjectMode.Singleton)

'

' }

' )

' }

'

' /**'// summary

' '/ 客户端代码

' '/ /summary

' static void Client()

' {

' ' 创建并注册信道

' TcpClientChannel channel = New TcpClientChannel()

' ChannelServices.RegisterChannel(channel, False)

'

' ' 创建远程对象并调用其方法

' Data data = CType(Activator.GetObject(Type.GetType(Data), "tcp://localhost:801/data"), Data)

' data.Where()

'

' ' 判断是否是代理

' Console.WriteLine(RemotingServices.IsTransparentProxy(data))

' }

'

' static void Main()

' {

' Server()

' Client()

' }

' }

'

End Class

{ ' *'// summary

' '/ 远程类型

' '/ /summary

' Public class Data : MarshalByRefObject

' {

' private Integer i

'

' Public Integer I

' {

' get

' {

' Return i

' }

'

' set

' {

' i = value

' }

'

' }

'

' Public void Where()

' {

' Console.WriteLine("{0} in {1}", Me.GetType().Name, AppDomain.CurrentDomain.FriendlyName)

' }

' }

'

' /**'// summary

' '/ 服务器端代码

' '/ /summary

' static void Server()

' {

' ' 创建新的应用程序域，以便模拟分布系统。

' AppDomain server = AppDomain.CreateDomain("server")

' server.DoCallBack(delegate

' {

' ' 创建并注册信道

' TcpServerChannel channel = New TcpServerChannel(801)

' ChannelServices.RegisterChannel(channel, False)

'

' ' 注册远程对象激活模式

' RemotingConfiguration.RegisterWellKnownServiceType(Type.GetType(Data), "data",

' WellKnownObjectMode.Singleton)

'

' }

' )

' }

'

' /**'// summary

' '/ 客户端代码

' '/ /summary

' static void Client()

' {

' ' 创建并注册信道

' TcpClientChannel channel = New TcpClientChannel()

' ChannelServices.RegisterChannel(channel, False)

'

' ' 创建远程对象并调用其方法

' Data data = CType(Activator.GetObject(Type.GetType(Data), "tcp://localhost:801/data"), Data)

' data.Where()

'

' ' 判断是否是代理

' Console.WriteLine(RemotingServices.IsTransparentProxy(data))

' }

'

' static void Main()

' {

' Server()

' Client()

' }

' }

' }

'

'

'

'

'

最好的vb网站是哪个?

c转vb.net的网站你自己需要c转vb.net的网站的啊 分不清那一个c转vb.net的网站的 以下是我前几天写的

1.CSDN 很多资料和已解决问题

CSDN在全球范围内注册用户超过220万，日浏览量超过800万，是中国大陆及全球华人IT专业人士中最受推崇的专业品牌。

凭借领先的技术平台和优质的内容服务，CSDN赢得IT专业人士一致好评，在2004年中国BBS百强评选中，CSDN名列IT类网站榜首，2006年度当选Red Herring亚洲未上市科技百强企业。

2.问专家

它的广告c转vb.net的网站：如果您在编程过程中遇到任何问题，您可以把您的问题寄给我们，我们将努力帮助您寻找答案或线索。

3.网络大本营

偏向于网络编程.net 和 asp

4.VB爱好者乐园

内容还全面，有很多完整的程序和技巧

5. 编程爱好者论坛

全面，偏向技术

6.月光软件

一个很不错的网站，内容全面 有大量源码，推荐c转vb.net的网站！

7.计算机等级考试内容辅导视频教学

手把手的老师在线讲课，速度还可以

8.中国VB网

内容很多

呵呵 转自我今天写在我们论坛的帖子

如何把下面用vb.net语言编写的代码改成c#

给你个网站看

可在线将vb.net代码转成c＃的，我用过，还可以的，但是转后也要改动一些。这里还有将c＃转vb.net的。

这是我转的：

string[] ArrValue = new string[43];

int Nums;

public void Page_Load(object Sender, EventArgs E)

{

int I;

if (!IsPostBack) {

for (I = 1900; I = 2101; I++) {

ListItem IItem = new ListItem();

IItem.Text = (string)I;

if (I == Year(Now)) {

IItem.Selected = "True";

}

DropYear.items.add(IItem);

}

for (I = 1; I = 12; I++) {

ListItem IItem = new ListItem();

IItem.Text = (string)I;

if (I == Month(Now)) {

IItem.Selected = "True";

}

DropMonth.items.add(IItem);

}

}

DispDetail(Conversion.Val(DropYear.SelectedItem.Text), Conversion.Val(DropMonth.SelectedItem.Text));

}

public void DispDetail(int YYear, int MMonth)

{

System.DateTime theDate;

int theYear;

int theMonth;

int theDay;

int theWeek;

int theFirstNum;

int NumOfMonth;

int i;

string theStr;

theYear = YYear;

theMonth = MMonth;

theDay = 1;

//获得所要查询的月的第一天日期

theDate = DateSerial(theYear, theMonth, theDay);

//确定所要查询的第一天是星期几

theWeek = weekday(theDate);

theFirstNum = theWeek;

//确定所要查询的月的天数

NumOfMonth = GetDayNum(theyear, themonth);

for (i = 0; i = 41; i++) {

ArrValue(i) = "";

}

for (i = 0; i = NumOfMonth - 1; i++) {

ArrValue(theFirstNum - 1 + i) = i + 1;

}

}

public object GetDayNum(int YYear, int MMonth)

{

object functionReturnValue = null;

if (MMonth == 1 | MMonth == 3 | MMonth == 5 | MMonth == 7 | MMonth == 8 | MMonth == 10 | MMonth == 12) {

functionReturnValue = 31;

}

else {

if (MMonth == 4 | MMonth == 6 | MMonth == 9 | MMonth == 11) {

functionReturnValue = 30;

}

else {

if (((YYear % 4 == 0) (YYear % 100 != 0)) | (YYear % 400 == 0)) {

functionReturnValue = 29;

}

else {

functionReturnValue = 28;

}

}

}

return functionReturnValue;

}

C语言转换为VB.NET

Option Explicit On

Option Strict On

Imports System

Module Program

Sub Main()

Dim y,m,t As Integer

begin:

' 输入数据时一行一个

y=CInt(Console.ReadLine())

m=CInt(Console.ReadLine())

t=CInt(Console.ReadLine())

If y

200 Then

Console.WriteLine("ERROR")

goto begin

End If

pr(y,m,t)

Console.Write("Press any key to continue . . . ")

Console.ReadKey(True)

End Sub

Function pr(y As Integer,m As Integer,t As Integer) As Integer

Dim ye,[Me],i As Integer

ye=CInt((m+t-2)/12+y)

[Me]=(m+t-2) Mod 12+1

End If

End Function

Function mday(y As Integer,m As Integer) As Integer

Dim day As Integer()={0,31,28,31,30,31,30,31,31,30,31,30,31}

Dim ad As I

哪有学习vb.net编程比较全的的好网站？

VB学习网是一家专业c转vb.net的网站的VB学习网站c转vb.net的网站，面向VB初学者，提供初级c转vb.net的网站的VB资料，并针对每年的计算机等级考试进行辅导和答疑。相对于其c转vb.net的网站他VB网站，我们的网站起步教晚，但是VB还在发展，我们错过c转vb.net的网站了VB系列，却正赶上了VB.NET，正如我们的网站域名一样（XueVB.Net）。

Microsof将在12月2号正式发布.Net 2005，以后我也会关注.Net，我想我们的网站将定位在为等级考试提供服务以及关注.Net，学习.Net，讨论.Net，同时也希望对VB以及VB.NET有兴趣的朋友加入我们。共同建设我们的网站。

我用VB开发了一个会员注册和登陆系统,不知道怎样放到网页上去,请各位大侠帮帮忙,我是菜鸟

1.做成activeX控件，内嵌到网页~

2.转成vb.net，做成asp.net页面~

3.打电话通知一下微软公司，要他们在将来的IE 8.0上增加应用程序嵌入网页的功能~

4.睡一觉，做个梦，兴许在梦中可以实现~

关于c转vb.net的网站和vb 类型转换的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。