PageRenderTime 1614ms CodeModel.GetById 9ms RepoModel.GetById 0ms app.codeStats 0ms

/Visual Studio 2008/CSDllCOMServer/CSDllCOMClient.vbs

#
Visual Basic | 15 lines | 7 code | 5 blank | 3 comment | 0 complexity | db8a389a41487d9292ebaaa8e8f9cea7 MD5 | raw file
    

  1. SET obj = CreateObject("CSDllCOMServer.SimpleObject")

    2. 

  2. 

    3. 

  3. MsgBox "A CSDllCOMServer.SimpleObject object is created"

    4. 

  4. 

    5. 

  5. ' Call the HelloWorld method that returns a string

    6. 

  6. MsgBox "The HelloWorld method returns " & obj.HelloWorld

    7. 

  7. 

    8. 

  8. ' Set the FloatProperty property

    9. 

  9. MsgBox "Set the FloatProperty property to 1.2"

    10. 

  10. obj.FloatProperty = 1.2

    11. 

  11. 

    12. 

  12. ' Get the FloatProperty property

    13. 

  13. MsgBox "The FloatProperty property returns " & obj.FloatProperty

    14. 

  14. 

    15. 

  15. SET obj = Nothing
    16.