我注意到VB.Net对Winform对象的处理非常讨厌. @H_403_1@这已经破坏了我们几个小时的时间.它只会变得更糟,因为我们有更多的VB6程序员用来做这样的事情,并且自动转换的代码从vb6直接带来了构造.

@H_403_1@这是一种可接受的做事方式：

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

@H_403_1@但是,它允许这样：

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

@H_403_1@请记住,属性和方法不是共享的.转换应用程序框架并不重要.似乎在幕后,VB实例化了表单的全局副本,并将此语法重新路由到该全局引用.你可以想象这对现代节目造成的破坏！通常开发人员会把它扔进去或者我们会错过从转换中清除一些模糊的代码(是的,我现在正在寻找这个,所以这有帮助).

@H_403_1@我可以做出任何设置来引发错误消息,例如,引用非共享成员需要一个对象引用,就像它应该的那样？

@H_403_1@这是解决方案：

@H_403_1@我选择了jmoreno的答案,因为他指出了我的罪魁祸首：My.Forms.修复它就像把它放在一个模块中一样简单：

Namespace My.MyProject.MyForms
End Namespace

@H_403_1@然后你得到我上面提到的确切错误.就像你应该的那样.如果您需要遗留应用程序(一件好事),那么就不要这样做！我认为Gserg可能只是VB抨击(有趣但没有帮助),但他马上提到了这一切,因为我找到了答案,我们再次对vb不再吮吸,除非你不熟悉它.

@H_403_1@请注意,如果您使用应用程序框架,则会在application.designer中收到您不想要的错误.修复：

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

@H_403_1@希望这对任何不良副作用都是如此！

@H_403_1@JMoreno的反思等

@H_403_1@以上是如此简单以至于我不想提出任何其他建议,但是如果你很好奇,那么这些代码的改进就是(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

Shared Function FormIsInMyForms(formName As String,frm As Form)
        If formName = "Form1" Then
            If frm.Equals(Form1) Then
                Return True
            Else
                Return False
            End If
        End If
        Return False

    End Function

    Public Overloads Sub ShowDialog()

        If FormIsInMyForms("Form1",Me) Then
            Beep()
        End If

        MyBase.ShowDialog()
    End Sub