正文
c转换为vb.net,c转换为co2
提示：扫一扫查出行【扫一扫了解最新限行尾号】
复制提示
求把这句C语言翻译成VB.net
Public Overrides Sub VerifyRenderingInServerForm(control As Control)
'MyBase.VerifyRenderingInServerForm(control)
End Sub
相关问答
Q1: .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()
' }
' }
' }
'
'
'
'
'
Q2: C#代码转换成VB.net，事件注册处理方法
'api.OnFrontConnected += new FrontConnected(OnFrontConnected);
AddHandler api.OnFrontConnected, AddressOf OnFrontConnected
Q3: 请帮忙将以下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
Q4: 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
Q5: vb.net中的数据强制转化问题，谁帮我把这段C#转化为VB.net的语言
强制类型转换在VB.NET中用Ctype()函数实现的。
Dim drv As DataRowView = CType(comboBox1.SelectedItem, DataRowView)
另外：comboBox1.SelectedItem 不是 string 类型，而是 object 类型。ComboBox 下拉显示文字是通过调用 Object.ToString() 方法实现的。
