Showing results 1 to 2 of 2

Thread: Grenzwert ändern für ein Strukturdatentyps

  1. #1
    Join Date
    13.09.2007
    Posts
    2

    Default Grenzwert ändern für ein Strukturdatentyps

    Wie kann man zu einem eingebetteten Strukturelement eines Strukturdatentyps, einen Grenzwert erstellen?

  2. #2

    Default Re: Grenzwert ändern für ein Strukturdatentyps

    Sub chtype()
    
    Dim myType1 As VarType
    Dim myCompexType1 As ComplexItem
    Dim myType3 As VarType
    Dim myEdlimit As EdLimit
    Dim i
    Dim type_id As Long
    
    
    Set myType1 = MyWorkspace.ActiveDocument.VarTypes.Item("st")
    Set myCompexType1 = myType1.SubItem(0)
    
    
    If (Not myCompexType1 Is Nothing) Then
        'The "ID_DataTyp" is identical with the ID of the embedded VarType
        Debug.Print myCompexType1.DynProperties("ID_DataTyp")
        Debug.Print myCompexType1.DynProperties("HasRef")
        Debug.Print myCompexType1.DynProperties("Name")
        Debug.Print myCompexType1.DynProperties("Description")
        
        'Execute only, if the type is not linked (but embedded)
        If myCompexType1.DynProperties("HasRef") = False Then
            type_id = myCompexType1.DynProperties("ID_DataTyp")
        
            For i = 0 To MyWorkspace.ActiveDocument.VarTypes.Count - 1
            Debug.Print MyWorkspace.ActiveDocument.VarTypes.Item(i).Name
                If MyWorkspace.ActiveDocument.VarTypes.Item(i).ID = type_id Then
                    Set myType3 = MyWorkspace.ActiveDocument.VarTypes.Item(i)
                End If
            Next i
        End If
        
        If (Not myType3 Is Nothing) Then
            'create a limit
            Set myEdlimit = myType3.CreateEdLimit
        End If
    End If
    End Sub

    Über das Subitem des Strukturdatentyps kommt man an die ID_DataTyp heran. Über eine Schleife kann man ermitteln, welcher Datentyp ID gleich ist wie der ID_DataTyp vom Subitem.

    Geprüft soll werden, ob das Subitem ein gelinkter oder embedded Datentyp ist.

    Hier der Struktur-Datentyp zum obrigen Beispiel: type.zip

Similar Threads

  1. Treibermodus per VBA ändern?
    By hp in forum VBA
    Replies: 2
    Last Post: 2nd September 2008, 13:32

Posting Rules

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •