code for representing "Events" for a custom control in classic ASP

Collapse
X
 
  • Time
  • Show
Clear All
new posts
  • murtyin
    New Member
    • May 2007
    • 4

    code for representing "Events" for a custom control in classic ASP

    Hi to All,

    I created one ClassLibrary in .Net using VB.Net, which is configured for COM InterOP. In this Library, I created 3 classes and below they are.

    (1) Document class: which is having 2 properties
    (a) AddPage : function for adding a Page to the Document.
    (b) DrawToFile : method which 'll draw the output to the specified file.
    (2) Page class: Having a AddLabel function used for adding a Label to the Page.
    (3) Label class: having 2 functions and 1 Event.
    (a) Text function: which is used to Set or Get the Text of the Label.
    (b) TextColor function , which is used to Set or Get the Text of the Label.
    (c) TextColorChange d event


    Now, In Vb 6, by referencing the TypeLibrary for the .Net ClassLibrary, I am able to code as I required. And the code , what I have written in Vb 6 is below.


    Public WithEvents mylabel As ClassLibrary1.L abel
    Public doc As New Document

    Private Sub Command1_Click( )
    Dim page As page
    Set page = doc.AddPage
    Set mylabel = page.AddLabel(" ceTe Software,Mysore ,India", 10, 10, 300, 20)
    doc.DrawToFile ("c:\t.pdf")
    End Sub

    Private Sub Command2_Click( )
    mylabel_TextCol orChanged (Text1.Text)
    doc.DrawToFile ("c:\t.pdf")
    End Sub

    Private Sub mylabel_TextCol orChanged(ByVal value As String)
    mylabel.TextCol or = value
    End Sub


    My need is to implement the same in Classic ASP.

    Anyone, write the code in Classic ASP for me, as I donot know how to do this in Classic ASP.

    Thanks in Advance,
    Murty
Working...