关于teigha例子c#转成vb.net的一个问题

fullwolf

由于不会c#，就把代码转换成vb.net。在线转的。但转化后总出问题。以下是一个类代码。请大家帮我看看。

1. class SR : SelectionReactor
   
2.   {
   
3.     ObjectIdCollection selected;
   
4.     ObjectId spaceId;
   
5.     public SR(ObjectIdCollection s, ObjectId id)
   
6.     {
   
7.       spaceId = id;
   
8.       selected = s;
   
9.     }
   
10.     public override bool Selected(DrawableDesc pDrawableDesc)
    
11.     {
    
12.       DrawableDesc pDesc = pDrawableDesc;
    
13.       if (pDesc.Parent != null)
    
14.       {
    
15.         // we walk up the GS node path to the root container primitive
    
16.         // to avoid e.g. selection of individual lines in a dimension
    
17.         while (((DrawableDesc)pDesc.Parent).Parent != null)
    
18.           pDesc = (DrawableDesc)pDesc.Parent;
    
19.         if (pDesc.PersistId != IntPtr.Zero && ((DrawableDesc)pDesc.Parent).PersistId == spaceId.OldIdPtr)
    
20.         {
    
21.           pDesc.MarkedToSkip = true; // regen abort for selected drawable, to avoid duplicates
    
22.           selected.Add(new ObjectId(pDesc.PersistId));
    
23.         }
    
24.         return true;
    
25.       }
    
26.       return false;
    
27.     }
    
28.     // this more informative callback may be used to implement subentities selection
    
29.     public override SelectionReactorResult Selected(PathNode pthNode, Teigha.GraphicsInterface.Viewport viewInfo)
    
30.     {
    
31.       return SelectionReactorResult.NotImplemented;
    
32.     }
    
33.   };

复制代码

转成vb.net的代码

2. Class SR
   
3.     Inherits SelectionReactor
   
4.         Private <font color="#ff0000">Shadows</font> selected As ObjectIdCollection
   
5.     Private spaceId As ObjectId
   
6.     Public Sub New(s As ObjectIdCollection, id As ObjectId)
   
7.       spaceId = id
   
8.             Selected = s
   
9.     End Sub
   
10.         'Public Overrides Function Selected(pDrawableDesc As DrawableDesc) As Boolean
    
11.         Public Overloads Function Selected(ByVal pDrawableDesc As DrawableDesc) As Boolean
    
12.             Dim pDesc As DrawableDesc = pDrawableDesc
    
13.             If pDesc.Parent IsNot Nothing Then
    
14.                 ' we walk up the GS node path to the root container primitive
    
15.                 ' to avoid e.g. selection of individual lines in a dimension
    
16.                 While DirectCast(pDesc.Parent, DrawableDesc).Parent IsNot Nothing
    
17.                     pDesc = DirectCast(pDesc.Parent, DrawableDesc)
    
18.                 End While
    
19.                 If pDesc.PersistId <> IntPtr.Zero AndAlso DirectCast(pDesc.Parent, DrawableDesc).PersistId = spaceId.OldIdPtr Then
    
20.                     pDesc.MarkedToSkip = True
    
21.                     ' regen abort for selected drawable, to avoid duplicates
    
22.                     selectedc.Add(New ObjectId(pDesc.PersistId))
    
23.                 End If
    
24.                 Return True
    
25.             End If
    
26.             Return False
    
27.         End Function
    
28.         ' this more informative callback may be used to implement subentities selection
    
29.         Public Overrides Function Selected(ByVal pthNode As PathNode, ByVal viewInfo As Teigha.GraphicsInterface.Viewport) As SelectionReactorResult
    
30.             Return SelectionReactorResult.NotImplemented
    
31.         End Function
    
32.     End Class

Class SR<br />     Inherits SelectionReactor<br />         Private <font color="#ff0000">Shadows</font> selected As ObjectIdCollection<br />     Private spaceId As ObjectId<br />     Public Sub New(s As ObjectIdCollection, id As ObjectId)<br />       spaceId = id<br />             Selected = s<br />     End Sub<br />         'Public Overrides Function Selected(pDrawableDesc As DrawableDesc) As Boolean<br />         Public Overloads Function Selected(ByVal pDrawableDesc As DrawableDesc) As Boolean<br />             Dim pDesc As DrawableDesc = pDrawableDesc<br />             If pDesc.Parent IsNot Nothing Then<br />                 ' we walk up the GS node path to the root container primitive<br />                 ' to avoid e.g. selection of individual lines in a dimension <br />                 While DirectCast(pDesc.Parent, DrawableDesc).Parent IsNot Nothing<br />                     pDesc = DirectCast(pDesc.Parent, DrawableDesc)<br />                 End While<br />                 If pDesc.PersistId <> IntPtr.Zero AndAlso DirectCast(pDesc.Parent, DrawableDesc).PersistId = spaceId.OldIdPtr Then<br />                     pDesc.MarkedToSkip = True<br />                     ' regen abort for selected drawable, to avoid duplicates<br />                     selectedc.Add(New ObjectId(pDesc.PersistId))<br />                 End If<br />                 Return True<br />             End If<br />             Return False<br />         End Function<br />         ' this more informative callback may be used to implement subentities selection<br />         Public Overrides Function Selected(ByVal pthNode As PathNode, ByVal viewInfo As Teigha.GraphicsInterface.Viewport) As SelectionReactorResult<br />             Return SelectionReactorResult.NotImplemented<br />         End Function<br />     End Class

shodows本来是没有的。建议我加。我加上还是不行。提示如下
错误        1        “Selected”已声明为此 class 中的“Private Shadows selected As Teigha.DatabaseServices.ObjectIdCollection”。        H:\source code\dmdraw\dmdraw\SelectionReactor.vb        114        35        dmdraw
错误        2        “Selected”已声明为此 class 中的“Private Shadows selected As Teigha.DatabaseServices.ObjectIdCollection”。        H:\source code\dmdraw\dmdraw\SelectionReactor.vb        132        35        dmdraw

有哪位熟悉两种代码的吗。应该怎么处理呢。

davehuhudave

vb.net 不区分大小写，c#是区分的，在vb.net中变量selected 和Selected 函数冲突了