Scribd Logo
Upload

Welcome to Scribd!

  • 19 views

    Using The Thing Object

    Uploaded by

    Pallab Datta
    This document describes a class module called "Thing" that has properties for a name and creation date. It includes code for initializing the class, terminating the class, reversing the name property, and using the Thing object in a form with buttons to show, reverse, create a new, and create a temporary Thing object.

    Copyright:

    © All Rights Reserved
    Download as DOCX, PDF, TXT or read online from Scribd

    Using The Thing Object

    Uploaded by

    Pallab Datta
    19 views2 pages
    This document describes a class module called "Thing" that has properties for a name and creation date. It includes code for initializing the class, terminating the class, reversing the name property, and using the Thing object in a form with buttons to show, reverse, create a new, and create a temporary Thing object.

    Original Description:

    option explicit

    Original Title

    Option Explicit

    Copyright

    © © All Rights Reserved

    Available Formats

    DOCX, PDF, TXT or read online from Scribd

    Did you find this document useful?

    Is this content inappropriate?

    This document describes a class module called "Thing" that has properties for a name and creation date. It includes code for initializing the class, terminating the class, reversing the name property, and using the Thing object in a form with buttons to show, reverse, create a new, and create a temporary Thing object.

    Copyright:

    © All Rights Reserved
    Download as DOCX, PDF, TXT or read online from Scribd
    Download as docx, pdf, or txt
    19 views2 pages

    Using The Thing Object

    Uploaded by

    Pallab Datta
    This document describes a class module called "Thing" that has properties for a name and creation date. It includes code for initializing the class, terminating the class, reversing the name property, and using the Thing object in a form with buttons to show, reverse, create a new, and create a temporary Thing object.

    Copyright:

    © All Rights Reserved
    Download as DOCX, PDF, TXT or read online from Scribd
    Download as docx, pdf, or txt
    of 2

    Option Explicit

    Public Name As String


    Private mdtmCreated As Date

    Property Get Created() As Date


    Created = mdtmCreated
    End Property

    Public Sub ReverseName()


    Dim intCt As Integer
    Dim strNew As String
    For intCt = 1 To Len(Name)
    strNew = Mid$(Name, intCt, 1) & strNew
    Next
    Name = strNew
    End Sub

    Class modules have two events, Initialize and Terminate. In the Object drop down of the class module,
    select Class. The Procedure drop down will show the events. Place the following code in the event
    procedures:

    Private Sub Class_Initialize()


    ' Set date/time of object creation, to be returned
    ' by the read-only Created property.
    mdtmCreated = Now
    ' Display object properties.
    MsgBox "Name: " & Name & vbCrLf & "Created: " _
    & Created, , "Thing Initialize"
    End Sub

    Private Sub Class_Terminate()


    ' Display object properties.
    MsgBox "Name: " & Name & vbCrLf & "Created: " _
    & Created, , "Thing Terminate"
    End Sub

    Using the Thing Object


    Add this declaration to the Declarations section of the form module:

    Option Explicit
    Private mth As Thing

    The variable mth will hold a reference to a Thing object, which will be created in the form's Load
    event. Put the following code in the Form_Load event procedure, and in the Click event procedures for
    the four buttons.
    Private Sub Form_Load()
    Set mth = New Thing
    mth.Name = InputBox("Enter a name for the Thing")
    End Sub

    ' Button "Show the Thing"


    Private Sub Command1_Click()
    MsgBox "Name: " & mth.Name & vbCrLf _
    & "Created: " & mth.Created, , "Form Thing"
    End Sub

    ' Button "Reverse the Thing's Name"


    Private Sub Command2_Click()
    mth.ReverseName
    ' Click "Show the Thing"
    Command1.Value = True
    End Sub

    ' Button "Create New Thing"


    Private Sub Command3_Click()
    Set mth = New Thing
    mth.Name = InputBox( _
    "Enter a name for the new Thing")
    End Sub

    ' Button "Temporary Thing".


    Private Sub Command4_Click()
    Dim thTemp As New Thing
    thTemp.Name = InputBox( _
    "Enter a name for the Temporary Thing")
    End Sub

    You might also like