---

Servus!

Ich möchte in meinem Journal zunächst einige Variablen in einem Public Sub deklarieren und später damit in anderen Private Subs arbeiten. Habe es bislang folgendermaßen versucht:

'-----------------
Option Strict Off
Imports System
Imports NXOpen

Module NXJournal

Public Sub Allgemein()
Dim AnzahlWZ1 as Integer = inputbox("Bitte Anzahl der Werkzeuge eingeben:", "Anzahl", , , )
Dim Pfad As String = inputbox("Bitte Pfad eingeben:", "Pfad", , , )
End Sub

Private Sub Bearbeitung(ByVal AnzahlWZ1, ByVal Pfad)
...
End Sub

Private Sub BSP(ByVal AnzahlWZ1, ByVal Pfad)
...
End Sub

End Module

Leider kommt immer folgende Fehlermeldung: "No Main found"

Wenn ich das ganze in einen Sub Main einbette, kommt allerdings folgende Fehlermeldung bez. der Public-Sub-Zeile: "Statement cannot appear within a method body. End of method assumed."

Kenne mich mit den ganzen access modifier leider nicht aus.

PLEASE HELP!

Gruß,
Bernd

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Bernd,

ich müsste mehr von Deinem Projekt sehen um genau zu wissen was Du machen möchtest. So wies aussieht haben die Fehlermeldungen nichts mit Deinem Public und Private zu tun. Prinzipiell passt das schon. Du brauchst halt eine Sub Main als Einstiegspunkt.

Option Strict Off
Imports System
Imports NXOpen

Module NXJournal

Public Sub Main()
Dim AnzahlWZ1 as Integer = inputbox("Bitte Anzahl der Werkzeuge eingeben:", "Anzahl", , , )
Dim Pfad As String = inputbox("Bitte Pfad eingeben:", "Pfad", , , )

Bearbeitung(AnzahlWZ1,Pfad)
BSP(AnzahlWZ1,Pfad)

End Sub

Private Sub Bearbeitung(ByVal AnzahlWZ1, ByVal Pfad)
...
End Sub

Private Sub BSP(ByVal AnzahlWZ1, ByVal Pfad)
...
End Sub

End Module

Wenn Du die Variablen häufig brachst kannst Du sie auch gleich unter dem "Module NXJournal" definieren. Dann brauchst Du sie nicht laufend übergeben.

Gruß

Stefan

------------------
www.sr-web.eu

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP