我注意到 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的反思等
上面的内容非常简单,我不想提出其他任何建议,但如果您好奇,这里有对该代码的改进,以(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