一些代码来说明我的问题：
With Test.AnObject
.Something = 1337
.AnotherThing = "Hello"
''// why can't I do this to pass the object itself:
Test2.Subroutine(.)
''// ... and is there an equivalent,other than repeating the object in With?
End With
没有办法引用With语句中引用的对象,而不是重复对象本身的名称.
原文链接：https://www.f2er.com/vb/255658.html编辑
如果你真的想,你可以修改你的AnObject来返回一个引用自己
Public Readonly Property Self as TypeOfAnObject
Get
Return Me
End Get
End Get
那么你可以使用下面的代码
With Test.AnObject
Test2.Subroutine(.Self)
End With
最后,如果您无法修改AnObject的代码,您可以(但不一定应该)通过extension method完成相同的操作.一个通用的解决方案是：
' Define in a Module
<Extension()>
Public Function Self(Of T)(target As T) As T
Return target
End Function
像这样叫：
Test2.Subroutine(.Self())
要么
With 1 a = .Self() + 2 ' a now equals 3 End With