Create an Object
Click here to see this page in full context

Create an Object

The Visual Basic example below shows the creation of a Milestones Professional schedule.

 

Public Sub createanobject()
        Dim objmilestones As Object, strtemp As String

        objmilestones = CreateObject("Milestones")

        With objMilestones

            .Activate

            For nCounter = 1 To 7

                strTemp = "This is Task Row " + CStr(nCounter)

                .PutCell(nCounter, 1, strTemp)

                strTemp = CStr(nCounter + 1) + "/1/2024"

                .AddSymbol(nCounter, strTemp, nCounter)

            Next nCounter

            .SetStartAndEndDates("01/01/2024","12/31/2024")

            .setlinesperpage("7")

            .Refresh

           

            .Close

        End With
    End Sub

 

The result should look something like this (symbols may vary, depending on the user's default template)

 

Related Topics

  1. Example 1 - Create, Print, Save a File
  2. Example 10 - OLE Automation Feature Demonstration
  3. Example 11 - Build a schedule hierarchy and publish
  4. Example 12 - Symbol Notes
  5. Example 13 - A Sampler
  6. Example 14 - Outlined schedule with graph
  7. Example 15 - DataGraph and ValueSet Sampler
  8. Example 2 - Opening and Printing an Existing File
  9. Example 3 - Creating and Saving Under a New File Name
  10. Example 4 - Adding Rows and Symbols Using a Counter
  11. Example 5 - Freeform Text Sampler
  12. Example 6 - Build an outlined schedule from an Excel spreadsheet
  13. Example 7 - Using the AddTaskUsingDuration Call
  14. Example 8 - Creating JPG Bitmaps
  15. Example 9 - Microsoft Access Graphic File Generation

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

To effectively program with this interface, it's important to learn all about Milestones Professional.  Learn about Milestones.

Milestones Professional 2023 Automation Methods and Properties.  © Copyright 2000-2023, KIDASA Software, Inc. All rights reserved.