Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  CATIA V5 Programmierung
  VBA nach VB 2005 Search Problem

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
Autor Thema:  VBA nach VB 2005 Search Problem (1500 mal gelesen)
crow73
Mitglied
Maschinenbauingenieur


Sehen Sie sich das Profil von crow73 an!   Senden Sie eine Private Message an crow73  Schreiben Sie einen Gästebucheintrag für crow73

Beiträge: 64
Registriert: 07.04.2003

CATIA V5R19 SP9
Hotfix 69
Core i7
16 GB RAM
W7

erstellt am: 21. Feb. 2007 09:09    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities


Fehlermeldung.png

 
Ich versuche gerade meine VBA Programme in VB 2005 umzusetzen und bin dabei auf ein Problem gestoßen das die Suche nicht mehr funkioniert!
Hat jemand schon mal das gleiche Problem gehabt und kann mir eine Lösung anbieten?
Es kommt immer die Meldung "The iIndex value is not correct. Please give a value between 1 and 1" (siehe Anhang)

Imports MECMOD
Imports ProductStructureTypeLib
Imports PARTITF
Imports INFITF
Imports KnowledgewareTypeLib

Public Class FormRemoveKnowledge

    Private Sub ButtonRemoveKnowledge_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonRemoveKnowledge.Click

        Dim CATIA As New Object
        CATIA = System.Runtime.InteropServices.Marshal.GetActiveObject("CATIA.Application")

        Dim productDocument1 As ProductDocument
        productDocument1 = CATIA.ActiveDocument

        Dim selection1 As Selection
        selection1 = productDocument1.Selection

           selection1.Search("((((CATKnowledgeSearch.AdvisorCheck.Hidden=TRUE + CATKnowledgeSearch.AdvisorRule.Hidden=TRUE) + CATKnowledgeSearch.AdvisorFormula.Hidden=TRUE) + CATKnowledgeSearch.AdvisorReaction.Hidden=TRUE) + CATKnowledgeSearch.Design Table.Hidden=TRUE) ,all")

        Dim partDocument1 As PartDocument
        partDocument1 = CATIA.ActiveDocument

        selection1 = partDocument1.Selection

        selection1.Delete()

    End Sub

End Class


Danke schon mal
Gruß

Marko

[Diese Nachricht wurde von crow73 am 21. Feb. 2007 editiert.]

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz