首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > .NET > VB Dotnet >

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

2012-01-07 
如何将下面的C#代码转换成VB.NET代码?急namespaceMorell.GroupPanel{publicdelegatevoidPropChangeHandler

如何将下面的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

热点排行