home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / DisplayMes174101542004.psc / DisplayMsg.cls < prev    next >
Text File  |  2004-03-10  |  1KB  |  39 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 = "DisplayMsg"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = True
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = True
  14. Option Explicit
  15.  
  16. Public Enum SoundType
  17.     sMess = 10
  18.     sAlert = 20
  19. End Enum
  20.  
  21. Public Enum IconType
  22.     iInfo = 64
  23.     iError = 16
  24.     iExcla = 48
  25.     iUser = 10
  26. End Enum
  27.  
  28.  
  29. Public Function DisplayAlert(MessageText As String, Optional sTitle As String = "Atenci≤n...", Optional tIcon As IconType = 64, Optional Duration As Integer = 7, Optional Sound As SoundType = 20, Optional cFont As Long = 16777215, Optional cColor1 As Long = 0, Optional cColor2 As Long = 12582912) As String
  30.     On Error GoTo errtrap
  31.     Dim AlertBox As frmAlert
  32.     Set AlertBox = New frmAlert
  33.         AlertBox.Display MessageText, sTitle, tIcon, Duration, Sound, cFont, cColor1, cColor2
  34.         DisplayAlert = vbNullString
  35.     Exit Function
  36. errtrap:
  37.     DisplayAlert = Err.Description
  38. End Function
  39.