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.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | Option ExplicitSub 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 |