home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / Kick_Butt_341981192001.psc / General.bas < prev    next >
Encoding:
BASIC Source File  |  2001-11-09  |  489 b   |  18 lines
  1. Attribute VB_Name = "General"
  2.  
  3. Public Function GetProgramname() As String
  4. 'returns the Program Name
  5. GetProgramname = GetSetting(App.Title, "Main", "PPName", "Code Editor")
  6. End Function
  7.  
  8. Public Sub ShowError(INum As Long, sDescr As String)
  9. 'Show an error message to the user
  10. MsgBox "Error: " & INum & vbCrLf & sDescr, vbCritical, GetProgramname
  11. End Sub
  12. Public Sub ShowInfo(sDescr As String)
  13. 'Show the user an info box
  14. MsgBox sDescr, vbInformation, GetProgramname
  15. End Sub
  16.  
  17.  
  18.