C#的代码转到VB.net

[zhongwen]

1.
Begin数据处理函数UIDelegate Begin数据处理函数UI = new Begin数据处理函数UIDelegate(this.Begin数据处理函数UI);
objthisForm.Invoke(Begin数据处理函数UI,new object[]{li处理});
2.
Private Sub AfterSetDispParam(ByVal iDispParam As DispParam)
Try
SetDispParam
If Not (Me.AfterSetDispParamEvent Is Nothing) Then
Me.AfterSetDispParamEvent(iDispParam)
End If
Catch e As Exception
System.Console.WriteLine(e.ToString)
End Try
End Sub
各位高手，这代码在vb.net该如何写呢？

[DeltaCat]

这就是 VB.NET 的代码啊

[zhongwen]

阿，贴错了

[zhongwen]

重新：
1.
public delegate void AfterSetShareParamHandler(ShareParam iShareParam);
/// <summary>
/// After设置功能模块共享信息
/// </summary>
public event AfterSetShareParamHandler AfterSetShareParamEvent;
private void AfterSetShareParam(ShareParam iShareParam)
{
if (this.AfterSetShareParamEvent != null)
this.AfterSetShareParamEvent(iShareParam);
}
2.
public delegate bool AfterCloseItHandler();
/// <summary>
/// After关闭功能模块
/// </summary>
public event AfterCloseItHandler AfterCloseItEvent;
3.
#region Begin数据处理函数UI()
if( objthisForm.InvokeRequired == false )
{
this.Begin数据处理函数UI(li处理);
}
else
{
Begin数据处理函数UIDelegate Begin数据处理函数UI = new Begin数据处理函数UIDelegate(this.Begin数据处理函数UI);
objthisForm.Invoke(Begin数据处理函数UI,new object[]{li处理});
}
#endregion
4.
public class ListViewItemComparer : IComparer

各位高手帮帮忙了，非常感谢

[xxuu503]

4.public ListViewItemComparer
inherits Icomparer

[xxuu503]

3.
#region "Begin数据处理函数UI()"
if objthisForm.InvokeRequired =false then
this.Begin数据处理函数UI(li处理)
else
Begin数据处理函数UIDelegate Begin数据处理函数UI = new Begin数据处理函数UIDelegate(this.Begin数据处理函数UI)
objthisForm.Invoke(Begin数据处理函数UI,new object[]{li处理})
#end region

[xxuu503]

错了错了
3.
#region "Begin数据处理函数UI()"
if objthisForm.InvokeRequired =false then
me.Begin数据处理函数UI(li处理)
else
dim Begin数据处理函数UI as Begin数据处理函数UIDelegate= new Begin数据处理函数UIDelegate(this.Begin数据处理函数UI)////这一行和上一行为同一句
objthisForm.Invoke(Begin数据处理函数UI,new object[]{li处理}
#end region


这次对了

[孟子E章]

c# <----> vb.net

http://www.developerfusion.com/utilities/convertcsharptovb.aspx

[RunatServer]

ding

[RunatServer]

ding

[xxuu503]

2
public delegate AfterCloseItHandler() as boolean
/// <summary>
/// After关闭功能模块
/// </summary>
public AfterCloseItEvent as AfterCloseItHandler

[xxuu503]

1.
private sub AfterSetShareParam(ShareParam iShareParam)
if (not me.AfterSetShareParamEvent is nothing)
me.AfterSetShareParamEvent(iShareParam)
end if
end sub

[xxuu503]

晕死,end if,end sub 之类的错你自己改吧，突然发现自己没了vs就不会写vb.net了！

[zhongwen]

好了，问题解决了，多谢多谢了

[zhongwen]

呵呵，还有 下面这个，
Public Delegate Function AfterCloseItHandler() As Boolean

Public Event AfterCloseItEvent As AfterCloseItHandler
各位帮帮忙了，我对vb.net的不熟悉阿