Никаких субмашин не найдено

Question

Начинающий! Попытка скомпилировать и я получаю сообщение об ошибке не найдено. Мне нужна функция, и я пытаюсь вызвать функцию и выполнить команду. Я пытаюсь установить поле в моей программе на основе моего выбора. Не уверен, как добавить подоснову, когда у меня уже есть вещи, к которым я не могу добавить его. Я в замешательстве и новый ...

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() Call Function() ForFixtures() 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 –

, но все еще говорит, что не найден

Answer 1

Щелкните правой кнопкой мыши по проекту и выберите свойства

Нажмите на раскрывающийся список «Объект запуска»

Если Sub Main нет, добавьте этот код в Module1

Sub Main()
    CallFunctionForFixtures()
End Sub

Затем снова выберите его в раскрывающемся списке