home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 5 / MasteringVisualBasic5.iso / ch_code / ch13 / htmlsrvr / htmlclss.cls < prev    next >
Encoding:
Visual Basic class definition  |  1997-02-20  |  531 b   |  29 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "HTMLFile"
  6. Attribute VB_GlobalNameSpace = False
  7. Attribute VB_Creatable = True
  8. Attribute VB_PredeclaredId = False
  9. Attribute VB_Exposed = True
  10. Option Explicit
  11.  
  12. Public Sub CreateSourceCode()
  13.     
  14.     frmHTML.Show
  15.  
  16. End Sub
  17.  
  18. Public Property Get SourceCode()
  19.     
  20.     SourceCode = frmHTML.SourceCode
  21.  
  22. End Property
  23.  
  24. Public Property Let SourceCode(NewValue)
  25.     
  26.     MsgBox "SourceCode is a read-only variable", vbExclamation
  27.  
  28. End Property
  29.