一些代码来说明我的问题：
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
【问题讨论】：
标签： vb.net with-statement
没有办法引用With语句中引用的对象，只能重复对象本身的名称。
如果你真的想，你可以修改你的对象以返回对它自己的引用
Public Function Self() as TypeOfAnObject
Return Me
End Get
那么你可以使用下面的代码
With Test.AnObject
Test2.Subroutine(.Self())
End With
最后，如果您无法修改对象的代码，您可以（但不一定应该）通过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
【讨论】：
With目标的引用存储在局部变量中并引用它。
With。我确实同意它在概念上更适合作为属性而不是函数。但是作为一个属性，如果你尝试序列化类，它会导致无限递归，所以我最终得到了一个函数。
我怀疑你必须重复自己。如果表达式（获取对象）很昂贵，那么可能先将其放入变量中，然后在With 中使用该变量，或者完全丢弃With：
tmp = Test.AnObject;
tmp.Something = 1337;
...
Test2.Subroutine(tmp);
【讨论】：
正如其他人所说，你将不得不写
Test2.Subroutine(Test.AnObject)
这是一个很好的例子，说明为什么在 VB.Net 中对 With 结构要小心一点。我的观点是，要让它完全值得使用，您确实需要在 With 语句中设置不止一两个属性，和/或在对象上调用不止一两个方法。
如果有很多，并且您没有在 .SomeProperty = 或 .DoSomething 中穿插其他东西，这对可读性有很大帮助。
相反，在一大堆其他内容中散布一些点实际上比不使用With 更难阅读。
在这种情况下，. 字符本身很容易在视觉上丢失，当然，它在语法上是一致的。
我猜他们只是选择不实施它。 VB 并不是他们真正想要鼓励单字符语言元素的语言，作为 VB.Net 的重度用户，我大致同意这一点。
底线：如果您使用包含许多包含元素的With 子句，则必须引用对象本身并不是什么大问题。如果您只使用一两个，最好不要一开始就使用With 子句。
【讨论】：
我不确定这本身就是一个“答案”，但它确实说明了另一个需要在 With 中简短引用父级的原因。
这是一个使用“bare With”的代码示例（我就是这么称呼它的）：
With New frmMySubForm
.lblLinkLabel.Links.Add(New LinkLabel.Link With {.Name = "link", .LinkData = "someUrl", .Start = .lblLinkLabel.Text.IndexOf("link"), .Length = "link".Length})
...
End With
但您实际上无法编写该代码，因为在术语 .Start = .lblLinkLabel.Text.IndexOf("link") 中，编译器希望以 . 开头的任何内容都成为 LinkLabel.Link 的成员，而 .lblLinkLabel 不是。
我认为最好的办法是能够编写如下内容：
With New frmMySubForm
.lblLinkLabel.Links.Add(New LinkLabel.Link With {.Name = "link", .LinkData = "someUrl", .Start = Me.lblLinkLabel.Text.IndexOf("link"), .Length = "link".Length})
...
End With
这里范围内的Me 被视为New frmMySubForm。
是的，我意识到我很挑剔，我可以很容易地分配一个变量等。但是示例表单是我出于偏好而经常使用的东西。
【讨论】：