Folge 2 – Datentyp: STRING

In dieser Episode geht es um den Datentyp String. Was kann ich damit machen? Wie teile ich ihn? Wie setze ich ihn wieder zusammen? Oder auch in anderer Reihenfolge.

Und an dieser Stelle der Code der im Makro vorhanden ist.

Option Explicit
Sub main()
    Dim swApp As SldWorks.SldWorks
    Set swApp = Application.SldWorks
    
    Dim strRevisionNumber As String
    strRevisionNumber = swApp.RevisionNumber()
    
    Dim varSplit As Variant
    varSplit = Split(strRevisionNumber, ".")
    
    Dim strMessage As String
    strMessage = "Hauptversion: " & varSplit(0) + 1992 & vbCrLf & "Service Pack: " & varSplit(1) & vbCrLf & "Hotfix: " & varSplit(2)
    
    Dim intRueckgabewert As Integer
    intRueckgabewert = swApp.SendMsgToUser2(strMessage, swMessageBoxIcon_e.swMbInformation, swMessageBoxBtn_e.swMbOkCancel)
    
    If intRueckgabewert = 4 Then
        Debug.Print "OK"
    End If
    
End Sub

Folge 2 – Datentyp: STRING

Schreibe einen Kommentar Antworten abbrechen