Problem beim Exportieren von Stabschnittgrößen mit Vb.Net

[VriL]

Hallo Dlubal Team,

in der von Ihnen bereitgestellten Excel Vorlage "RStab6-Results-client.xls" ist es unter Punkt 3.1 MIF möglich Stabschnittgrößen auszulesen.
Dies funktioniert in Excel VBA einwandfrei.
Beim Versuch den Code in Vb.Net zu übernehmen erhalte ich allerdings einen Fehler, der direkt von der Schnittstelle kommen muss.
Beim Auslesen des Stabarrays bricht die Verbindung ab und ich erhalte eine Meldung, dass dies durch externen Code hervorgerufen wurde.

Haben Sie eine Idee woran dies liegen könnte?

Verwendet wird Visual Studio Vb.Net und RSTAB 8 64-Bit

Der verwendete Code sieht wie folgt aus:

Private Sub btn_Lastimport_Click(sender As Object, e As EventArgs) Handles btn_Lastimport.Click

        Try
            Dim IStr As RSTAB6.Structure
            IStr = GetObject(, "RSTAB6.Structure")
            IStr.rsGetApplication.rsLockLicence()

            Dim IRes As IrsLoadResults
            IRes = IStr.rsGetResults.rsGetLoadResults(RS_LOAD_TYPE.LT_GROUP, 1)

            Dim count As Integer
            count = IStr.rsGetStructuralData.rsGetMemberCount
            Dim elems() As RS_MEMBER
            ReDim elems(count)
            IStr.rsGetStructuralData.rsGetMemberArr(count, elems(0)) 'Hier müsste der Fehler liegen.

            Dim countI, i, j, iNo As Integer

            For j = 0 To count - 1

                iNo = elems(j).iNo
                countI = IRes.rsGetMIFExtremeCount(iNo, ITEM_AT.AT_NO)
                If countI > 0 Then
                    Dim Results() As RS_RESULTS_MIF
                    ReDim Results(countI - 1)
                    countI = IRes.rsGetMIFExtreme(iNo, ITEM_AT.AT_NO, countI, Results(0))

                    For i = 0 To countI - 1
                        MsgBox(Results(i).iMemberNo)

                    Next
                End If

                countI = 0

            Next

            IRes = Nothing
            IStr.rsGetApplication.rsUnlockLicence()
            IStr = Nothing

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

    End Sub

Viele Grüße

VriL

[VriL]

AW: Problem beim Exportieren von Stabschnittgrößen mit Vb.Net

Hallo zusammen,

hat sich erledigt, es war die falsche .dll Datei als Verweis hinzugefügt.

Grüße

VriL