Vb.net 没有找到子干管

Vb.net 没有找到子干管,vb.net,visual-studio,function,compiler-errors,main,Vb.net,Visual Studio,Function,Compiler Errors,Main,初学者!尝试编译时,我发现错误没有找到Sub-Main。我需要一个函数并尝试调用函数并执行命令。我正试图根据我的选择在程序中设置一个字段。当我已经有无法添加的内容时,不确定如何添加子主控形状。我感到困惑和新 Imports JDA.Intactix.Automation Imports JDA.Intactix.Automation.Space Module Module1 Public Class Fixtures Inherits JDA.Intactix.Automatio

初学者!尝试编译时,我发现错误没有找到Sub-Main。我需要一个函数并尝试调用函数并执行命令。我正试图根据我的选择在程序中设置一个字段。当我已经有无法添加的内容时,不确定如何添加子主控形状。我感到困惑和新

Imports JDA.Intactix.Automation
Imports JDA.Intactix.Automation.Space




Module Module1
Public Class Fixtures
    Inherits JDA.Intactix.Automation.Space.Fixture
    Public FixtureField As Object


    Public Function ForFixtures() As String

    End Function

    Public Sub CallFunctionForFixtures()

        Dim SegNum As Integer
        Dim LocID As Integer
        Dim NewName As Double
        Dim Name As String
        SegNum = JDA.Intactix.Automation.SpaceSegmentFields.Number
        LocID = JDA.Intactix.Automation.SpaceFixtureFields.LocationID
        Name = JDA.Intactix.Automation.FloorFixtureFields.Name
        NewName = JDA.Intactix.Automation.SpaceSegmentFields.Name & 
JDA.Intactix.Automation.SpaceFixtureFields.LocationID
        If Name = 1 Then SetFixtureField(FixtureField, Name, NewName)


    End Sub

    Private Overloads Sub SetFixtureField(FixtureField As Object, Name As 
String, newName As String)
        Name = JDA.Intactix.Automation.FloorFixtureFields.Name
        newName = JDA.Intactix.Automation.SpaceSegmentFields.Name & 
     JDA.Intactix.Automation.SpaceFixtureFields.LocationID
 End Sub
 End Class
 End Module
编辑代码,添加:
Public Sub Main()调用函数()ForFixtures()Dim SegNum
作为整数Dim
LocID作为整数Dim NewName作为双Dim Name作为字符串SegNum=
JDA.Intactix.Automation.SpaceSegmentFields.Number LocID=
JDA.Intactix.Automation.SpaceFixtureFields.LocationID名称=
JDA.Intactix.Automation.FloorFixtureFields.Name NewName=
JDA.Intactix.Automation.SpaceSegmentFields.Name&
JDA.Intactix.Automation.SpaceFixtureFields.LocationID如果Name=1,则
SetFixtureField(FixtureField,Name,NewName)结束子项–


但仍然显示“未找到”

右键单击项目并选择“属性”

单击下拉菜单“启动对象”

如果Sub-Main不存在,请将此代码添加到模块1

Sub Main()
    CallFunctionForFixtures()
End Sub

然后再次在下拉列表中选择它

Sub
Main
是您的程序的入口点。创建新项目时,vs会自动为您添加该项目。为什么要删除它?我添加了Sub-Main,但仍然出现错误。请不要在注释中插入多行代码。单击“编辑”链接并将其添加到您的问题中,格式为“代码”。添加到“主要问题”中的“编辑”可能您可以添加一条注释,说明是否需要禁用应用程序框架,以防OP的项目具有图形界面。@Jimi我在问题中没有看到任何关于UI的内容,但如果出现,我们可以对其进行更改。否,没有问题。这是一种以防万一的评论。因为jdaintactix的东西。