C#代码转VB.Net代码

Private Sub wmp_PlayStateChange(sender As Object, e As AxWMPLib._WMPOCXEvents_PlayStateChangeEvent)

创新互联主要从事成都网站建设、成都做网站、网页设计、企业做网站、公司建网站等业务。立足成都服务望谟,十多年网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:13518219792

If DirectCast(e.newState, WMPLib.WMPPlayState) = WMPLib.WMPPlayState.wmppsReady Then

wmp.Ctlcontrols.play()

End If

End Sub

Private Sub axWindowsMediaPlayer1_PlayStateChange(sender As Object, e As AxWMPLib._WMPOCXEvents_PlayStateChangeEvent)

If axWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsMediaEnded Then

Me.axWindowsMediaPlayer1.currentPlaylist.clear()

Me.axWindowsMediaPlayer1.currentPlaylist.appendItem(Me.axWindowsMediaPlayer1.newMedia("f:\b.wmv"))

axWindowsMediaPlayer1.settings.setMode("loop", True)

timer1.Enabled = True

End If

End Sub

Private Sub timer1_Tick(sender As Object, e As EventArgs)

timer1.Enabled = False

axWindowsMediaPlayer1.Ctlcontrols.play()

End Sub

怎样将以下的C#.net类代码(.cs)转换成vb.net(.vb) public static

Public Shared Function GetAllusers() As MembershipUserCollection

Dim a As Integer = Membership.GetAllUsers().Count

GetAllusers = Membership.GetAllUsers(0, 5, a)

End Function

Public Shared Function GetUser() As MembershipUser

GetUser = Membership.GetUser()

End Function

请帮忙将以下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 y100 Then

y=y+2000

End If

If y1916 OrElse m200 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

Console.WriteLine(" {0}-{1} ~ {2}-{3}",y,m,ye,[Me])

ye=y

[Me]=m

For i=0 To t-1

prmonth(ye,[me])

[Me]=[Me]+1

If [Me]12 Then

ye=ye+1

[me]=1

End If

Next

Return 0

End Function

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

Dim st As String()={"未定义","一月","二月","三月","四月","五月","六月","七月","八月","九月","十月","十一月","十二月"}

Console.WriteLine(" {0} {1}",y,st(m))

Console.WriteLine("----------------------------")

Return 0

End Function

Function ryear(y As Integer) As Integer

If 0=y Mod 400 OrElse (0y Mod 100 AndAlso 0=y Mod 4) Then

Return 1

Else

Return 0

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 Integer=0

If 2=m Then

ad=ryear(y)

End If

Return day(m)+ad

End Function

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

Dim md As Integer=6

Dim i,daynum As Integer

For i=1916 To y-1

daynum=365+ryear(i)

md=(md+daynum) Mod 7

Next

For i=1 To m-1

md=(md+mday(y,i)) Mod 7

Next

Return md

End Function

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

Dim md As Integer=monday(y,m)

Dim daysnum As Integer=mday(y,m)

Dim days As Integer=daysnum+md

Dim i As Integer

yam(y,m)

Console.Write(" 日 一 二 三 四 五 六")

For i=0 To days-1

If 0=i Mod 7 Then

Console.WriteLine()

Console.WriteLine()

Console.Write(" ")

End If

If i-md=0 Then

Console.Write(" {0,2}",i-md+1)

Else

Console.Write(" ")

End If

Next

Console.WriteLine()

Console.WriteLine()

Return 0

End Function

End Module

求把这句C语言翻译成VB.net

Public Overrides Sub VerifyRenderingInServerForm(control As Control)

'MyBase.VerifyRenderingInServerForm(control)

End Sub

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

C#.net转VB.net问题

Public Sub responseMsg(postStr As String)

Dim postObj As System.Xml.XmlDocument = New System.Xml.XmlDocument()

postObj.LoadXml(postStr)

WriteLog("responseMsg:-------" + postStr)

Dim FromUserNameList = postObj.GetElementsByTagName("FromUserName")

Dim FromUserName As String = String.Empty

For i As Integer = 0 To FromUserNameList.Count - 1

If FromUserNameList(i).ChildNodes(0).NodeType = System.Xml.XmlNodeType.CDATA Then

FromUserName = FromUserNameList(i).ChildNodes(0).Value

End If

Next i

Dim toUsernameList = postObj.GetElementsByTagName("ToUserName")

Dim ToUserName As String = String.Empty

For i As Integer = 0 To toUsernameList.Count - 1

If toUsernameList(i).ChildNodes(0).NodeType = System.Xml.XmlNodeType.CDATA Then

ToUserName = toUsernameList(i).ChildNodes(0).Value

End If

Next i

Dim keywordList = postObj.GetElementsByTagName("Content")

Dim Content As String = String.Empty

For i As Integer = 0 To keywordList.Count - 1

If keywordList(i).ChildNodes(0).NodeType = System.Xml.XmlNodeType.CDATA Then

Content = keywordList(i).ChildNodes(0).Value

End If

Next i

Dim time = DateTime.Now

Dim textpl = "xmlToUserName![CDATA[" + FromUserName + "]]/ToUserName" + _

"FromUserName![CDATA[" + ToUserName + "]]/FromUserName" + _

"CreateTime" + ConvertDateTimeInt(DateTime.Now) + "/CreateTimeMsgType![CDATA[text]]/MsgType" + _

"Content![CDATA[欢迎来到微信世界---" + Content + "]]/ContentFuncFlag0/FuncFlag/xml "

context.Response.Write(textpl)

context.Response.End()

End Sub

当前文章：c转vb.net,c转vbnet
URL网址：http://kswjz.com/article/hdcooj.html