AW: (ROSE) Visual Basic 6 and Sequence Diagram

[Kopetzky, Volker]

Rafael,   you can use the method AddScenariodiagram (works on Categories and UseCases). The second param defines the type: collaboration or sequence diagram.   Best regards, Volker   TIP: try menu 'Help:Extended Help...' in any Rational Tool ********************************************************************                           Volker Kopetzky   Senior Systems Engineer/Expert       Phone: +49 / 89 - 62838 - 293   Rational Software                    eFax:  +49 / 89 - 62838 - 593   Keltenring 15                        Fax:   +49 / 89 - 62838 - 269   D-82041 Oberhaching                   MailTo:[EMAIL PROTECTED]   Germany               URL: http://www.rational-software.de/exp/vzk ******************************************************************** Rational... -> Suite:                           http://www.rational.com/products/rs/index.jtmpl -> Requisite Pro:               http://www.rational.com/products/reqpro/index.jtmpl -> Unified Process:                http://www.rational.com/products/rup/index.jtmpl -> Rose - unoffical website:                          http://www.rationalrose.com -> Upgrades:    http://www.rational.com/sitewide/support/upgrades/  -----Urspr�ngliche Nachricht----- Von: Rafael Alberto Moreno Parra [mailto:[EMAIL PROTECTED]] Gesendet: Dienstag, 27. Februar 2001 23:10 An: [EMAIL PROTECTED] Betreff: (ROSE) Visual Basic 6 and Sequence Diagram February 27, 2001   Hi! The following VB code creates a Rational Rose 2000 model with a class object named "Test001":   Dim objRoseAppl As RoseApplication Dim objRoseModel As RoseModel Dim objRoseCatColl As RoseCategoryCollection Dim objRoseCategory As RoseCategory Dim objRoseClassDiagrColl As RoseClassDiagramCollection Dim objRoseClassDiagr As RoseClassDiagram Dim objRoseClass As RoseClass   Set objRoseAppl = CreateObject("rose.application") objRoseAppl.Visible = True Set objRoseModel = objRoseAppl.NewModel   Set objRoseCatColl = objRoseModel.GetAllCategories   For iCont = 1 To objRoseCatColl.Count     Set objRoseCategory = objRoseCatColl.GetAt(iCont)          If objRoseCategory.Name = "Logical View" Then         Set objRoseClassDiagrColl = objRoseCategory.ClassDiagrams         For iCont2 = 1 To objRoseClassDiagrColl.Count             Set objRoseClassDiagr = objRoseClassDiagrColl.GetAt(iCont2)             If objRoseClassDiagr.Name = "Main" Then                   objRoseClassDiagr.Activate                   Set objRoseClass = objRoseCategory.AddClass("Test001")             end if         next     end if next   I need to create a Sequence Diagram with Visual Basic 6.0 SP4, Can you send me a sample?   Thanks   Ing. Rafael Alberto Moreno Parra Open Systems Ltda. E-mail: [EMAIL PROTECTED] http://www.open-intl.com