home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD176803292001.psc / clsinfo.cls < prev    next >
Encoding:
Visual Basic class definition  |  2001-03-21  |  1.4 KB  |  38 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4.   Persistable = 0  'NotPersistable
  5.   DataBindingBehavior = 0  'vbNone
  6.   DataSourceBehavior  = 0  'vbNone
  7.   MTSTransactionMode  = 0  'NotAnMTSObject
  8. END
  9. Attribute VB_Name = "Prompts"
  10. Attribute VB_GlobalNameSpace = True
  11. Attribute VB_Creatable = True
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = True
  14. '----------------------------------------------
  15. 'Visual Basic Runtime Procedures Extension
  16. 'Sushant Pandurangi <sushant@phreaker.net>
  17. '-----------------------------------------------
  18. Option Explicit
  19.  
  20. Sub AboutBox()
  21. frmAbout.Show vbModal
  22. End Sub
  23.  
  24. Function Message(sMessage As String, Optional sTitle As String)
  25. Attribute Message.VB_Description = "Displays a message box."
  26.     Alert sMessage, sTitle
  27. End Function
  28.  
  29. Function Confirm(sMessage As String, Optional sTitle As String, Optional sCancel As Boolean = True) As String
  30. Attribute Confirm.VB_Description = "Confirms a yes or no from the user. Visibility of cancel button can be specified."
  31.     Confirm = vbInteraction.Confirm(sMessage, sTitle, sCancel)
  32. End Function
  33.  
  34. Function Prompt(sMessage As String, Optional sDefault As String, Optional sTitle As String, Optional sMaskInput As Boolean = False) As String
  35. Attribute Prompt.VB_Description = "Gets a value for a certain prompt, from the user."
  36.     Prompt = GetInput(sMessage, sTitle, sDefault, , , sMaskInput)
  37. End Function
  38.