Windows应用程序中的VB .NET Main()

时间:2011-02-27 16:45:01

标签: .net vb.net winforms

其他信息:

  • 我正在使用Visual Studio 2008(VB)
  • 我有C#
  • 的经验

我无法确定在哪里定义Main Sub,这是我的问题:

我在Visual Studio中创建了一个WindowsApplication,它为我创建了一个表单,当我点击“查看代码”时,会出现类似这样的内容。

Public Class Form1
End Class

wups,Main Sub在哪里,设计器生成的代码在哪里?

接下来的问题是,当我删除Form1时,会发生错误,表示MainForm未设置。双击该错误会将我引导至Application.Designer.vb,如下所示:

'------------------------------------------------------------------------------
' <auto-generated>
'     This code was generated by a tool.
'     Runtime Version:2.0.50727.4927
'
'     Changes to this file may cause incorrect behavior and will be lost if
'     the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------

Option Strict On
Option Explicit On


Namespace My

    'NOTE: This file is auto-generated; do not modify it directly.  To make changes,
    ' or if you encounter build errors in this file, go to the Project Designer
    ' (go to Project Properties or double-click the My Project node in
    ' Solution Explorer), and make changes on the Application tab.
    '
    Partial Friend Class MyApplication
        <Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
        Public Sub New()
            MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
            Me.IsSingleInstance = False
            Me.EnableVisualStyles = True
            Me.SaveMySettingsOnExit = True
            Me.ShutdownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
        End Sub

        <Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
        Protected Overrides Sub OnCreateMainForm()
            Me.MainForm = Global.WindowsApplication1.Form1
        End Sub
    End Class
End Namespace

我想定义自己的主要入口点,有没有办法这样做?

2 个答案:

答案 0 :(得分:1)

您需要申请活动 转到项目属性或双击解决方案资源管理器中的我的项目节点,选择应用程序选项卡。 您可以选择应用程序启动表单。

对于更复杂的场景,您需要点击“查看应用程序事件” 这将创建一个ApplicationEvent.vb

在此课程中,您可以选择如何启动 例如:

        Protected Overrides Function OnStartup(ByVal eventArgs As Microsoft.VisualBasic.ApplicationServices.StartupEventArgs) As Boolean
            Me.MainForm = New Form2
            Return MyBase.OnStartup(eventArgs)
        End Function

答案 1 :(得分:0)

创建一个控制台应用程序,并使用Main()方法中的Form.show显示您的表单。