.net - 导致这种 VB.NET 允许的类似 VB6 的气味出错 : WinFormType. InstanceProp=Value [DISABLE My.Forms]

Question

我注意到 VB.Net 对 Winform 对象的处理非常令人讨厌。
这浪费了我们几个小时的时间。它只会变得更糟，因为我们有更多的 VB6 程序员习惯于做这样的事情，并且自动转换的代码直接从 vb6 带来了结构。
这是一种可接受的做事方式:

Dim FormInstance as New FormClassName
If FormInstance.ShowDialog() = DialogResult.OK then
    TheAnswer = FormInstance.TextBox1.Text
EndIf

但是，它允许这样做:

If FormClassName.ShowDialog() = DialogResult.OK then
    TheAnswer = FormClassName.TextBox1.Text
EndIf

请记住，属性和方法不是共享的。应用程序框架的转动并不重要。似乎在幕后，VB 实例化了表单的全局副本，并将此语法重新路由到该全局引用。您可以想象这对现代程序造成的破坏!通常，开发人员会将其投入使用，否则我们会错过从转换中清理一些晦涩的代码(是的，我现在正在寻找它，这样会有所帮助)。
我可以进行的任何设置都会引发错误消息，例如 Reference to a non-shared member requires an object reference ，就像它应该的那样？
这是解决方案:
我选择了jmoreno的答案，因为他为我指出了罪魁祸首: My.Forms .修复它就像把它放在一个模块中一样简单:

Namespace My.MyProject.MyForms
End Namespace

然后你得到我上面提到的确切错误。就像你应该的那样。如果您需要旧应用程序(一件好事)，那就不要这样做!我认为 Gserg 可能只是在抨击 VB(有趣但没有帮助)，但他马上提到了这一切，而且因为我找到了答案，所以我们再次认为 vb 不烂，除非你不熟悉它。
请注意，如果您使用应用程序框架，您将在 application.designer 中收到您不希望出现的错误。修复:

    Protected Overrides Sub OnCreateMainForm()
        ''//was: Me.MainForm = Global.WindowsApplication2.Form1
        Me.MainForm = New Form1
    End Sub

希望这将是它的任何不良副作用!
JMoreno 的反射(reflection)等。
以上内容非常简单，我不想提出任何其他建议，但如果您好奇，以下是对该代码的改进:(1) 添加反射以省略在您制作的每种形式中都必须进行硬编码；(2) 自动生成强制执行(在程序启动时只需调用一次此子程序)。只需将其放在一个模块中:

Public Sub FixMyForms()
    For Each pi As System.Reflection.PropertyInfo In GetType(My.MyProject.MyForms).GetProperties
        Dim obj As Object = pi.GetValue(My.Forms, Nothing)
        If TypeOf obj Is Form Then
            AddHandler CType(obj, Form).Load, AddressOf Complainer
        End If
    Next
End Sub

Private Sub Complainer(ByVal sender As Object, ByVal e As System.EventArgs)
    MsgBox("WRONG!")
End Sub

Answer 1

不，这种令人困惑的行为是设计使然。

在 VB 中可以使用表单的一个实例而不创建它，这种行为很高兴地在 VB.NET 中实现。对我来说，这是最糟糕的设计选择之一。
但它确实使转换遗留项目更容易。它对那些甚至不知道可以显式实例化表单的人有帮助。

但是你不需要使用这个技巧，因为你从来没有在 VB6 中使用过。在这两种语言中，您都可以使用显式创建的实例，在这种情况下，不会创建默认实例。忘记这个“功能”的存在，只有在启发他人时才让它回到你的脑海中。