c转vb.net,c转vbnet
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://myzitong.com/article/hdcooj.html