Change Title

The title of the drawing, shown on the title bar across the top of the Maxsurf Window can be set through the Automation interface using the Title property.

Sub ChangeTitle()

   

    msApp.title = "New Hull Design"

   

End Sub

 

Running this code will change the title to read “New Hull Design”. This property could be used to show the current settings being implemented by a code, for instance;

 

Sub AlterDesign()

   

    For i = 1 To 100

        '-----------------

        'Code to iterate through a process

        '-----------------

       

        msApp.Refresh

        msApp.title = "Iteration " & i

    Next i

   

End Sub

 

This code will show the current hull design, and will specify the iteration number of that hull design in the title bar, allowing the user to follow the progress on the Maxsurf screen. Saving overwrites the design title, so the Title property cannot be used to make a permanent change to the title.