---

FtF-Searcher.txt

Hallo

ich bin es mal wieder mit einem Problem von mir für Euch   

Ich will vorweg eine kleine Beschreibung meines Programmes geben.
Es durchsucht ein Produkt sukzessiv nach Parts und lädt diese in Designmode.
Um anschließend sich eine Fläche rauszusuchen und diese zu Kopieren.
Eingefügt werden diese Flächen alle in ein ZielPart und dort gesammelt.

Soweit so gut.
Nun hab ich aber folgendes Problem. Ich frage im CATMain durch Selektion nach dem ZielPart. In der Unterroutine, in der der Kopiervorgang stattfindet, soll nun wieder auf die Variable aus CATMain zugegriffen werden.

Ich hoffe ihr könnt mir irgendwie weiterhelfen.
Ich könnte mir vorstellen durch einen Trick die Variable im CATMain global zu deklarieren.
Oder man schreibt das komplette Programm irgendwie um, das man keine Unterroutinen mehr hat.

Achso eins hab ich vergessen, ich hatte auch schon versucht die Variable an die Unterroutine mit zu übergeben - da gab es aber eine Fehlermeldung zurück.
Vielleicht seit ihr erfolgreicher.

Vielen Dank im voraus
Mit besten Grüßen
RON

PS: Im Anhang findet ihr das Script. Und die Testumgebung ist auf R17 abgespeichert.
Testumgebung: http://www.file2send.de/download/6d07a3bb3851fafed4f3c64f1c10d53c36713661

[Diese Nachricht wurde von neopheus am 13. Feb. 2009 editiert.]

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

---

Moin,

entweder du übergibst die Variablen in deine neue Routine, z.B.

Sub Main()
  Dim iNurInMainBekannt as Integer
  iNurInMainBekannt = 1
  SUB_Andere iNurInMainBekannt
End Sub

Sub SUB_Andere (iJetztAuchHierBekannt)
  iJetztAuchHierBekannt = iJetztAuchHierBekannt + 1
End Sub

oder du deklarierst sie global, das geht dann am Anfang des Scriptes (also überhalb der MAIN)

Public iUeberallBekannt as Integer

Sub Main()
  iUeberallBekannt = 1
  SUB_Andere
End Sub

Sub SUB_Andere
  iHierBekannt = iUeberallBekannt + 1
End Sub

Gruß

------------------
tomtom1972

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

---

      Es funktioniert.

... und war ja im Grunde nicht mal so schwer. 

Aber ich hab trotzdem noch mal ein paar Fragen.

Ist das egal, ob ich Public oder Dim  benutze, wo ist der Unterschied.

Genauso frag ich mich das auch bei.
Call SubProgramm(Variable)    'was bedeutet Call
....
Sub SubProgramm(ByRef Var2)    ' was bedeutet ByRef

ich kenn das nur aus dem Ziethen Buch
SubProgramm Variable
....
Sub SubProgramm (Var2 as ...)

       

Grüße
Ron

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

---

Servus
Mit ByRef wird das Objekt direkt übergeben. Somit kann in der Subroutine das Orginal Objekt (String, Körper...) direkt verändert werden.
Mit ByVal wir eine Kopie des Objekts übergeben, und somit wirken sich Änderungen nicht auf die Hauptroutine aus.

Gruß
Bernd

PS: Zusätzliche Literatur zum Thema VB (also allgemein) wäre sicher noch sinnvoll.

------------------
Warum einfach, wenn es auch kompliziert geht.

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