乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 48|回复: 1

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

[复制链接]

6

主题

14

帖子

1

银币

初来乍到

Rank: 1

铜币
38
发表于 2014-11-25 11:40:00 | 显示全部楼层 |阅读模式
由于不会c#,就把代码转换成vb.net。在线转的。但转化后总出问题。以下是一个类代码。请大家帮我看看。复制代码转成vb.net的代码
  1. Class SR
  2.     Inherits SelectionReactor
  3.         Private
  4. [color=]Shadows[/color]
  5. selected As ObjectIdCollection
  6.     Private spaceId As ObjectId
  7.     Public Sub New(s As ObjectIdCollection, id As ObjectId)
  8.       spaceId = id
  9.             Selected = s
  10.     End Sub
  11.         'Public Overrides Function Selected(pDrawableDesc As DrawableDesc) As Boolean
  12.         Public Overloads Function Selected(ByVal pDrawableDesc As DrawableDesc) As Boolean
  13.             Dim pDesc As DrawableDesc = pDrawableDesc
  14.             If pDesc.Parent IsNot Nothing Then
  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 DirectCast(pDesc.Parent, DrawableDesc).Parent IsNot Nothing
  18.                     pDesc = DirectCast(pDesc.Parent, DrawableDesc)
  19.                 End While
  20.                 If pDesc.PersistId  IntPtr.Zero AndAlso DirectCast(pDesc.Parent, DrawableDesc).PersistId = spaceId.OldIdPtr Then
  21.                     pDesc.MarkedToSkip = True
  22.                     ' regen abort for selected drawable, to avoid duplicates
  23.                     selectedc.Add(New ObjectId(pDesc.PersistId))
  24.                 End If
  25.                 Return True
  26.             End If
  27.             Return False
  28.         End Function
  29.         ' this more informative callback may be used to implement subentities selection
  30.         Public Overrides Function Selected(ByVal pthNode As PathNode, ByVal viewInfo As Teigha.GraphicsInterface.Viewport) As SelectionReactorResult
  31.             Return SelectionReactorResult.NotImplemented
  32.         End Function
  33.     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
有哪位熟悉两种代码的吗。应该怎么处理呢。
回复

使用道具 举报

34

主题

124

帖子

4

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
260
发表于 2015-3-16 10:23:00 | 显示全部楼层
vb.net 不区分大小写,c#是区分的,在vb.net中变量selected 和Selected 函数冲突了
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-13 16:31 , Processed in 0.754087 second(s), 67 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表