读书人

怎么将下面的C#代码转换成VB.NET代码

发布时间: 2012-01-07 21:41:55 作者: rapoo

如何将下面的C#代码转换成VB.NET代码?急
namespace Morell.GroupPanel
{
public delegate void PropChangeHandler(TabPage tabPage, Property prop, object oldValue);
public enum Property
{
Text,
ImageIndex
}
}

namespace Morell.GroupPanel
{
public class GroupPanel : System.Windows.Forms.UserControl
{
private void StartEdit(object sender, EventArgs e)
{
this.Capture = true;
}
}
}

namespace Morell.GroupPanel
{
[ToolboxItem(false)]public class TabPage : Panel
{
public event PropChangeHandler PropertyChanged;
public event EventHandler StartEdit;

public void OnPropertyChanged(Property prop, object oldValue)
{
// Is the event registered
if (PropertyChanged != null)
// Raise the event
PropertyChanged(this, prop, oldValue);
}

Public Sub BeginEdit()
If Not (StartEdit Is Nothing) Then
StartEdit(Me, New EventArgs())
End If
End Sub
}
}




[解决办法]
Namespace Morell.GroupPanel
Public delegate void PropChangeHandler(TabPage tabPage, Property prop, Object oldValue)
Public Enum Property
Text
ImageIndex
End Enum
End Namespace

Namespace Morell.GroupPanel
Public Class GroupPanel
Inherits System.Windows.Forms.UserControl
Private Sub StartEdit(ByVal sender As Object, ByVal e As EventArgs)
Me.Capture = True
End Sub
End Class
End Namespace

Namespace Morell.GroupPanel
(ToolboxItem(False))Public Class TabPage
Inherits Panel
Public event PropChangeHandler PropertyChanged
Public event EventHandler StartEdit

Public Sub OnPropertyChanged(ByVal prop As Property, ByVal oldValue As Object)
' Is the event registered
If Not PropertyChanged Is Nothing Then
' Raise the event
PropertyChanged(this, prop, oldValue)
End If
End Sub

Public Sub BeginEdit()
If Not (StartEdit Is Nothing) Then
StartEdit(Me, New EventArgs())
End If
End Sub
End Class
End Namespace

'----------------------------
' 蒋玉龙向您问好
' 转换代码来源于网络,非本人原创,谢谢!
'----------------------------

==================================================================
博客空间:http://blog.csdn.net/lovingkiss
资源下载:http://download.csdn.net/user/lovingkiss
Email:loving-kiss@163.com
本人说明: <我的帖子我做主,结贴率保持100%>
优惠接单开发,信誉保证,Q64180940(请清楚注明业务还是技术咨询)
==================================================================
[解决办法]
If Not object.equal(StartEdit Is Nothing) Then

读书人网 >VB Dotnet

热点推荐