---

Hallo ich nochmal!
Bin langsam echt wieder an dem sorry: S*******zeug am verzweifeln..
Hier ein Verweis auf das Ursprungsproblem: http://ww3.cad.de/foren/ubb/Forum137/HTML/003693.shtml
Wo das Problem liegt weiss ich jetzt, nun such ich nach einer Lösung.
Hätte auch eine, aber Catia macht mir da wieder ein Strich durch die Rechnung.
Lösungsansatz ist folgender (statt MouseDown hab ich auch schon DropButtonClick probiert (ohne Erfolg):

Code:

---

Private Sub FileSelection_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    FileSelection.Clear
    For Nr = 1 To CATIA.Windows.Count
        FileSelection.AddItem (CATIA.Windows.Item(Nr).Caption)
    Next
End Sub

Private Sub FileSelection_Change()
    MsgBox "k"
    If Not FileSelection.ListIndex = -1 Then
        MsgBox "Tu es!" & FileSelection.ListIndex
    End If
End Sub

---

Funktioniert! Tut man jetzt aber MsgBox "k" auskommentieren, bekomm ich mit ListIndex immer den Wert 0?!?!
Kann mir da mal einer denn Grund sagen, bevor ich die Wände hochklettere?
Die Abfrage "FileSelection.ListIndex = -1" müsste eigentlich auch nicht sein, aber das scheint mir nach unerklährlicher Catia bzw VBA Logik ;(

In anderen Fällen beschwert sich das Makro beim BEENDEN des MAKROS über einen ungültigen Eigenschaftswert. Dabei liegt das Problem im DropDownMenü-Event. Was hat er da beim beenden zu suchen???

Insgesamt habe ich den Eindruck, die ganzen Events sind ein einziges Bastelwerk.. 

------------------
Catia ist doof

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

---

Hallo,
das Einzige was es in meinen Augen sein könnte, wäre ein zeitliches Problem, was du durch die MsgBox gelöst hast. Alles andere wäre in meinen Augen schon sehr confuse.

------------------
MFG
Rick Schulz
      Nettiquette (CAD.de)  -  Was ist die Systeminfo?  -  Wie man Fragen richtig stellt.  -  Unities

Konfuzius sprach: "Wer sich das Alte noch einmal vor Augen führt, um das Neue zu verstehen, der kann anderen ein Lehrer sein."

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

---

Hallo,

mir fällt auch nur die Zeit ein. Ich würde das ganze aber anders anpacken. Und zwar über einen Timer (das ist dann deine Schleife in der du läufst). Such hierzu mal in der Visual Basisc Referenz (Hilfe) nach Timer und klick mal auf den Eintrag "Event Statement Example".

Wenn der Timer tickt würde ich die aktuelle Anzahl der Fenster in CATIA abfragen. Wird diese Zahl erhöhlt => es wurde ein neues Dokument zum aktiven CATIA hinzugefügt => du kannst es in deine ComboBox aufnehmen. Das Change-Ereignis sollte dann funktionieren. Vor dem Beenden kannst du ja den ListIndex immer auf 0 setzen damit du keinen ungültigen Eigenschaftswert bekommst (oder gleich die CmboBox aus der Controls-Collection rauswerfen (mit remove)).

------------------
MFG Daniel

Systeminformation | Inoffizielle CATIA Hilfeseite | CATIA FAQ | Suche | TraceParts (Normteile...) | 3D Content Central (noch mehr Normteile...)

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

---

Hatte ich auch erstmal die Idee mit der Zeit. Hab dann eine Schleife eingebaut, allerdings bis 10000 glaub.
Vielleicht wars zu wenig? Werd mir eure Ansätze mal genauer angucken.
Danke! Und sorry! Sowas macht mich schnell rasend..

------------------
Catia ist doof

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

---

Zitat:

---

Original erstellt von Maetes:
Hatte ich auch erstmal die Idee mit der Zeit. Hab dann eine Schleife eingebaut, allerdings bis 10000 glaub.
Vielleicht wars zu wenig? Werd mir eure Ansätze mal genauer angucken.
Danke! Und sorry! Sowas macht mich schnell rasend..

---

Ich glaube ehrer, dass du dem Prozess, der ja noch durchläuft, um diese Daten zu füllen, zuviel Leistung wegnimmst, was du bei eine Messagebox nicht hast. Was meinst du eigentlich, dass du eine Schleife duchlaufen lässt?
For i = 0 to 10000
next
Wenn so deine Schleife aussieht, muss ich dich enttäuschen, da diese innerhalb von Millisekunden durchgelaufen ist und soviel Leistung wie sie nur kriegen kann von der CPU zieht, dass der andere Prozess, auf den das Programm eigentlich warten sollt, wiederum gebremst wird. Pack entweder ein doevents-Befehl mit rein oder besser nutze einen Timer, der keine Leistung wegnimmt.

------------------
MFG
Rick Schulz
      Nettiquette (CAD.de)  -  Was ist die Systeminfo?  -  Wie man Fragen richtig stellt.  -  Unities

Konfuzius sprach: "Wer sich das Alte noch einmal vor Augen führt, um das Neue zu verstehen, der kann anderen ein Lehrer sein."

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

---

Hallo,

besser als Rick hätte man es nicht ausführen können  . 10 U´s sind unterwegs

------------------
MFG Daniel

Systeminformation | Inoffizielle CATIA Hilfeseite | CATIA FAQ | Suche | TraceParts (Normteile...) | 3D Content Central (noch mehr Normteile...)

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

---

Hallo Maetes,

ich weiß nicht wozu Du das 2. Ereignis brauchst aber Du hast Dir das Problem selbst gemacht.
Zuerst hast du das Ereignis FileSelection_MouseDown.
Hier wird Dein Objekt FileSelection geleert und durch eine Schleife neu befüllt. Dabei löst jeder Eintrag in das Object FileSelection wiederum das Ereignis FileSelection_Change aus. Während Das Zweite Ereignis startet wird das erste weiter ausgeführt.
Was soll denn durch das 2. Ereignis angetriggert werden? Die bessere Lösung wäre im ersten Ereignis eine Funktion aufzurufen (anstatt mit einem 2. Ereignis zu arbeiten). Dadurch ist gewährleistet, dass es im 1. Ereignis erst weiter geht wenn die Funktion abgeschlossen ist.
Durch die MsgBox hast Du sichergestellt, dass genug Zeit vergangen ist um das vorhergehende Ereignis abzuschließen. Ich muss es Dir leider sagen. So schnell kannst Du gar nicht OK klicken 

Aus meiner Sicht wäre es sinnvoll erst nachdem das 1. Ereignis abgeschlossen ist mit anderen Dingen fortzufahren.

Der ListIndex ist immer die aktive Zeile in Deinem DropDown. Wenn Du wissen willst wie viele Einträge vorhanden sind, dann mußt du ListCount verwenden.

------------------
Gruß Michael B.

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