我在模块中也写了一个main函数
Module MainModule
Public Sub Main(ByVal ParamArray args())
Application.StartupPath.ToString()
Application.EnableVisualStyles()
Application.SetCompatibleTextRenderingDefault(False)
Application.Run(New Form1(args))
End Sub
main函数
窗体代码中加了一个构造函数
Sub New(ByVal ParamArray args())
' 此调用是 Windows 窗体设计器所必需的。
InitializeComponent()
s = args(0)
' 在 InitializeComponent() 调用之后添加任何初始化。
End Sub
Application.Designer.vb文件中出现错误位置
Me.MainForm = Global.testMain.Form1