home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / bp_4_94 / vbwin / vbsetup / msgbox.bas < prev    next >
Encoding:
BASIC Source File  |  1994-09-23  |  8.8 KB  |  228 lines
  1. '============================================================
  2. ' Projekt        : Setup-Steuerung mit Hilfe von Makros
  3. ' Modulname      : MSGBOX.BAS
  4. ' Aufgabe        : Message-Boxen
  5. ' Copyright      : Arthur Burda
  6. ' Compiler       : Visual Basic 3.0 fⁿr Windows
  7. '============================================================
  8. ' l. ─nderung am : 26.07.1994
  9. ' Version        : 1.00
  10. ' Bemerkungen    : Erste Implementierung
  11. '------------------------------------------------------------
  12.  
  13. Option Explicit
  14.  
  15. '------------------------------------------------------------
  16. ' Schalter
  17. '------------------------------------------------------------
  18.  
  19. Global Const MB_OK = 0                 ' Nur Ok-Schalter
  20. Global Const MB_OKCANCEL = 1           ' Ok- und Abbrechen-Schalter
  21. Global Const MB_ABORTRETRYIGNORE = 2   ' Abbruch, Wiederholen, Ignorieren
  22. Global Const MB_YESNOCANCEL = 3        ' Ja, Nein und Abbrechen
  23. Global Const MB_YESNO = 4              ' Ja- und Nein-Schalter
  24. Global Const MB_RETRYCANCEL = 5        ' Wiederholen- und Abbrechen-Schalter
  25.  
  26. '------------------------------------------------------------
  27. ' Icons
  28. '------------------------------------------------------------
  29.  
  30. Global Const MB_ICONSTOP = 16          ' Stop-Icon (z.B. bei kritischem Fehler)
  31. Global Const MB_ICONQUESTION = 32      ' Frage-Icon
  32. Global Const MB_ICONEXCLAMATION = 48   ' Warnung-Icon
  33. Global Const MB_ICONINFORMATION = 64   ' Information-Icon
  34.  
  35. '------------------------------------------------------------
  36. ' Sonstiges
  37. '------------------------------------------------------------
  38.  
  39. Global Const MB_APPLMODAL = 0          ' Information, da▀ die Applikation modal ist
  40. Global Const MB_DEFBUTTON1 = 0         ' Erster Schalter ist Voreinstellung
  41. Global Const MB_DEFBUTTON2 = 256       ' Zweiter Schalter ist Voreinstellung
  42. Global Const MB_DEFBUTTON3 = 512       ' Dritter Schalter ist Voreinstellung
  43. Global Const MB_SYSTEMMODAL = 4096     ' System modal
  44.  
  45. '------------------------------------------------------------
  46. ' MsgBox-Rⁿckgabewerte
  47. '------------------------------------------------------------
  48.  
  49. Global Const IDOK = 1                  ' Ok-Schalter gedrⁿckt
  50. Global Const IDCANCEL = 2              ' Abbrechen-Schalter gedrⁿckt
  51. Global Const IDABORT = 3               ' Abbruch-Schalter gedrⁿckt
  52. Global Const IDRETRY = 4               ' Wiederholen-Schalter gedrⁿckt
  53. Global Const IDIGNORE = 5              ' Ignorieren-Schalter gedrⁿckt
  54. Global Const IDYES = 6                 ' Ja-Schalter gedrⁿckt
  55. Global Const IDNO = 7                  ' Nein-Schalter gedrⁿckt
  56.  
  57. '============================================================
  58. ' Routine : ShowCrErrorBox
  59. '============================================================
  60. ' Aufgabe : Zeigt eine Fehler-Box an (kritischer Fehler), die
  61. '           den Schalter "Ok" enthΣlt.
  62. ' Eingabe : Message = Meldung
  63. ' Ausgabe : keine
  64. '------------------------------------------------------------
  65. '
  66. Sub ShowCrErrorBox (Message$)
  67.  
  68.     Dim BtnID%
  69.  
  70.     BtnID% = ShowMsgBox(CrErrorBoxCaption, Message$, MB_OK + MB_ICONSTOP)
  71.  
  72. End Sub
  73.  
  74. '============================================================
  75. ' Routine : ShowErrorBox
  76. '============================================================
  77. ' Aufgabe : Zeigt eine Fehler-Box an, die die Schalter "Abbruch",
  78. '           "Wiederholen", "Ignorieren" enthΣlt und liefert den
  79. '           ID-Code des gedrⁿckten Schalters zurⁿck.
  80. ' Eingabe : Message    = Meldung
  81. '           DefaultBtn = Nummer des voreingestellten Schalters
  82. ' Ausgabe : keine
  83. ' Return  : ID-Code des gedrⁿckten Schalters
  84. '------------------------------------------------------------
  85. '
  86. Function ShowErrorBox (Message$, DefaultBtn%) As Integer
  87.  
  88.     Select Case DefaultBtn%
  89.         Case 1
  90.             ShowErrorBox = ShowMsgBox(ErrorBoxCaption, Message$, MB_ABORTRETRYIGNORE + MB_ICONSTOP + MB_DEFBUTTON1)
  91.         Case 2
  92.             ShowErrorBox = ShowMsgBox(ErrorBoxCaption, Message$, MB_ABORTRETRYIGNORE + MB_ICONSTOP + MB_DEFBUTTON2)
  93.         Case Else
  94.             ShowErrorBox = ShowMsgBox(ErrorBoxCaption, Message$, MB_ABORTRETRYIGNORE + MB_ICONSTOP + MB_DEFBUTTON3)
  95.     End Select
  96.  
  97. End Function
  98.  
  99. '============================================================
  100. ' Routine : ShowErrorBox2
  101. '============================================================
  102. ' Aufgabe : Zeigt eine Fehletr-Box an, die nur den Schalter "Ok"
  103. '           enthΣlt.
  104. ' Eingabe : Message = Meldung
  105. ' Ausgabe : keine
  106. '------------------------------------------------------------
  107. '
  108. Sub ShowErrorBox2 (Message$)
  109.  
  110.     Dim BtnID%
  111.  
  112.     BtnID% = ShowMsgBox(ErrorBoxCaption, Message$, MB_OK + MB_ICONSTOP)
  113.  
  114. End Sub
  115.  
  116. '============================================================
  117. ' Routine : ShowInfoBox
  118. '============================================================
  119. ' Aufgabe : Zeigt eine Info-Box, die den Schlater "Ok" ent-
  120. '           hΣlt.
  121. ' Eingabe : Message = Meldung
  122. ' Ausgabe : keine
  123. '------------------------------------------------------------
  124. '
  125. Sub ShowInfoBox (Message$)
  126.  
  127.     Dim BtnID%
  128.  
  129.     BtnID% = ShowMsgBox(InfoBoxCaption, Message$, MB_OK + MB_ICONINFORMATION)
  130.  
  131. End Sub
  132.  
  133. '============================================================
  134. ' Routine : ShowMsgBox
  135. '============================================================
  136. ' Aufgabe : Zeigt eine Message-Box auf dem Bildschirm mit den
  137. '           angegebenen Optionen an und liefert den ID-Code
  138. '           des gedrⁿckten Schalters als Ergebnis zⁿrⁿck.
  139. ' Eingabe : Caption = Kopfzeile
  140. '           Message = Meldung
  141. '           Options = Optionen
  142. ' Ausgabe : keine
  143. ' Return  : ID-Code des gedrⁿckten Schalters
  144. '------------------------------------------------------------
  145. '
  146. Function ShowMsgBox (Caption$, Message$, Options%) As Integer
  147.  
  148.     ShowMsgBox = MsgBox(Message$, Options%, Caption$)
  149.  
  150. End Function
  151.  
  152. '============================================================
  153. ' Routine : ShowOkCancelBox
  154. '============================================================
  155. ' Aufgabe : Zeigt eine Message-Box mit den Schaltern "Ok"
  156. '           und "Abbrechen" an und liefert IDOK zurⁿck, wenn
  157. '           der Ok-Schalter gedrⁿckt wurde und IDCANCEL, wenn
  158. '           der Abbrechen-Schalter gedrⁿckt wurde.
  159. ' Eingabe : Caption    = Kopfzeile
  160. '           Message    = Meldung
  161. '           DefaultBtn = Nummer des voreingestellten Schalters
  162. ' Ausgabe : keine
  163. ' Return  : ID-Code des gedrⁿckten Schalters
  164. '------------------------------------------------------------
  165. '
  166. Function ShowOkCancelBox (Caption$, Message$, DefaultBtn%) As Integer
  167.  
  168.     Select Case DefaultBtn%
  169.         Case 1
  170.             ShowOkCancelBox = ShowMsgBox(Caption$, Message$, MB_OKCANCEL + MB_ICONQUESTION + MB_DEFBUTTON1)
  171.         Case Else
  172.             ShowOkCancelBox = ShowMsgBox(Caption$, Message$, MB_OKCANCEL + MB_ICONQUESTION + MB_DEFBUTTON2)
  173.     End Select
  174.  
  175. End Function
  176.  
  177. '============================================================
  178. ' Routine : ShowYesNoBox
  179. '============================================================
  180. ' Aufgabe : Zeigt eine Message-Box mit den Schaltern "Ja"
  181. '           und "Nein" an und liefert IDYES zurⁿck, wenn der
  182. '           Ja-Schalter gedrⁿckt wurde und IDNO, wenn der
  183. '           Nein-Schalter gedrⁿckt wurde.
  184. ' Eingabe : Caption    = Kopfzeile
  185. '           Message    = Meldung
  186. '           DefaultBtn = Nummer des voreingestellten Schalters
  187. ' Ausgabe : keine
  188. ' Return  : ID-Code des gedrⁿckten Schalters
  189. '------------------------------------------------------------
  190. '
  191. Function ShowYesNoBox (Caption$, Message$, DefaultBtn%)
  192.  
  193.     Select Case DefaultBtn%
  194.         Case 1
  195.             ShowYesNoBox = ShowMsgBox(Caption$, Message$, MB_YESNO + MB_ICONQUESTION + MB_DEFBUTTON1)
  196.         Case Else
  197.             ShowYesNoBox = ShowMsgBox(Caption$, Message$, MB_YESNO + MB_ICONQUESTION + MB_DEFBUTTON2)
  198.     End Select
  199.  
  200. End Function
  201.  
  202. '============================================================
  203. ' Routine : ShowYesNoCancelBox
  204. '============================================================
  205. ' Aufgabe : Zeigt eine Message-Box mit den Schaltern "Ja",
  206. '           "Nein" und "Abbrechen" an und liefert den ID-Code
  207. '           des gedrⁿckten Schalters zurⁿck.
  208. ' Eingabe : Caption    = Kopfzeile
  209. '           Message    = Meldung
  210. '           DefaultBtn = Nummer des voreingestellten Schalters
  211. ' Ausgabe : keine
  212. ' Return  : ID-Code des gedrⁿckten Schalters
  213. '------------------------------------------------------------
  214. '
  215. Function ShowYesNoCancelBox (Caption$, Message$, DefaultBtn%) As Integer
  216.  
  217.     Select Case DefaultBtn%
  218.         Case 1
  219.             ShowYesNoCancelBox = ShowMsgBox(Caption$, Message$, MB_YESNOCANCEL + MB_ICONQUESTION + MB_DEFBUTTON1)
  220.         Case 2
  221.             ShowYesNoCancelBox = ShowMsgBox(Caption$, Message$, MB_YESNOCANCEL + MB_ICONQUESTION + MB_DEFBUTTON2)
  222.         Case Else
  223.             ShowYesNoCancelBox = ShowMsgBox(Caption$, Message$, MB_YESNOCANCEL + MB_ICONQUESTION + MB_DEFBUTTON3)
  224.     End Select
  225.  
  226. End Function
  227.  
  228.