home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 January / Chip_1997-01_cd.bin / ms95 / disk23 / dir02 / f000790.re_ / f000790.re
Text File  |  1996-04-02  |  2KB  |  54 lines
  1. ' Example of MbeMessageBox Extension
  2. '-----------------------------------------
  3. '--------------------------------------------------------------------
  4. '
  5. '  Copyright (1995) Bentley Systems, Inc., All rights reserved.
  6. '
  7. '   $Workfile:   msgbox.bas  $
  8. '   $Revision:   6.1  $
  9. '       $Date:   10 Aug 1995 14:58:30  $
  10. '
  11. '  "MicroStation" is a registered trademark of Bentley Systems, Inc. 
  12. '
  13. '  Limited permission is hereby granted to reproduce and modify this
  14. '  copyrighted material provided that the resulting code is used only
  15. '  in conjunction with Bentley Systems products under the terms of the
  16. '  license agreement provided therein, and that this notice is retained
  17. '  in its entirety in any such reproduction or modification.
  18. '
  19. '--------------------------------------------------------------------
  20. ' It shows different button configurations: 
  21. ' MBE_OKBox
  22. ' MBE_OKCancelBox
  23. ' MBE_YesNoBox
  24. ' MBE_YesNoCancelBox
  25. '    
  26. ' It also shows different Icons:
  27. ' None
  28. ' MBE_CriticalIcon
  29. ' MBE_QuestionIcon
  30. ' MBE_InfoIcon
  31. ' MBE_WarningIcon
  32. '-----------------------------------------
  33. Sub WhichButton (buttonValue as long)
  34.     Select Case buttonValue
  35.         Case MBE_BUTTON_OK
  36.         MbeMessageBox "OK button was pressed"
  37.         Case MBE_BUTTON_CANCEL
  38.         MbeMessageBox "Cancel button was pressed"
  39.         Case MBE_BUTTON_YES
  40.         MbeMessageBox "Yes button was pressed"
  41.         Case MBE_BUTTON_NO
  42.         MbeMessageBox "No button was pressed"
  43.     End Select
  44. end sub    ' WhichButton
  45. '-----------------------------------------
  46. Sub main
  47.     Dim button as Long
  48.     WhichButton (MbeMessageBox ("Press a button", MBE_OKBox or MBE_InfoIcon))
  49.     WhichButton (MbeMessageBox ("Press a button", MBE_OKCancelBox or MBE_WarningIcon))
  50.     WhichButton (MbeMessageBox ("Press a button", MBE_QuestionIcon or MBE_YesNoBox))
  51.     WhichButton (MbeMessageBox ("Press a button", MBE_CriticalIcon or MBE_YesNoCancelBox))
  52. End Sub    
  53. '-----------------------------------------
  54.