Description
| Show a TRADIUM styled message box titled Title$. Type controls what the message box looks like (choose one value from each category: Button, Icon, Default and/or Mode). Use MessageBox( ) if you need to know what button was pressed. The result indicates which button was pressed.
Result
| Value
| Button Pressed
| vbOK
| 1
| OK button
| vbCancel
| 2
| Cancel button
| vbAbort
| 3
| Abort button
| vbRetry
| 4
| Retry button
| vbIgnore
| 5
| Ignore button
| vbYes
| 6
| Yes button
| vbNo
| 7
| No button
|
Parameter
| Description
| Message$
| This string value is the text that is shown in the message box.
| Type
| This numeric value controls the type of message box. Choose one value from each of the following tables.
| Title$
| This string value is the title of the message box.
Also, alternate captions for the button(s) can be used by adding a vertical bar sign ("|") and a caption for each button.
| HelpFile
| For use with compiled .hlp files. Specify path and filename.
| Context
| For use with compiled .hlp files. specify the context ID for context sensitive help functions when pressing F1.
| AlternateSound
| Play a specific pre-defined sound, other than the standard sound. If omitted, a standard sound will be played.
Required a sound card in your PC.
|
Button
| Value
| Effect
| mbOkOnly
| 0
| OK button
| mbOkCancel
| 1
| OK and Cancel buttons
| mbAbortRetryIgnore
| 2
| Abort, Retry, Ignore buttons
| mbYesNoCancel
| 3
| Yes, No, Cancel buttons
| mbYesNo
| 4
| Yes and No buttons
| mbRetryCancel
| 5
| Retry and Cancel buttons
|
Icon
| Value
| Effect
|
| 0
| No icon
| mbCritical
| 16
| Stop icon
| mbQuestion
| 32
| Question icon
| mbExclamation
| 48
| Attention icon
| mbInformation
| 64
| Information icon
|
Default
| Value
| Effect
| mbDefaultButton1
| 0
| First button
| mbDefaultButton2
| 256
| Second button
| mbDefaultButton3
| 512
| Third button
|
Mode
| Value
| Effect
| mbApplicationModal
| 0
| Application modal
| mbSystemModal
| 4096
| System modal
| mbMsgBoxSetForeground
| &h10000
| System modal
|
AlternateSound
| Value
| Effect
| wsDefault
| -1
| (default) select appropiate sound, depending on the selected Icon.
| wsOpstarten
| 0
| Starting up TRADIUM main programme
| wsOpenen
| 1
| Opening an application
| wsSluiten
| 2
| Closing an application
| wsAfsluiten
| 3
| Shutting down TRADIUM main programme
| wsStartQuery
| 4
| Beginning execution of a new SQL query
| wsEindeQuery
| 5
| End of the execution of a SQL query
| wsTelefoonIn
| 6
| Incoming phone call
| wsTelefoonUit
| 7
| Outgoiing phone call
| wsOntvangenMemo
| 8
| Receiving memo
| wsVerzendenMemo
| 9
| Sending memo
| wsOntvangenBericht
| 10
| Incoming message
| wsVerzendenBericht
| 11
| Outgoing message
| wsInformatie
| 12
| Information
| wsWaarschuwing
| 13
| Warning or Exclamation
| wsCritischeFout
| 14
| Critical error
| wsVraag
| 15
| Question
| wsKnopAanklikken
| 16
| Button click
| wsTabBladSelecteren
| 17
| Tab click
|
|
Example
|
Sub Main
If MessageBox("<span style='color: #004080; font-weight: bold;'>Do</span> you agree?", mbOKCancel, "Test header|Never|Allright" _
, , ,wsVerzendenMemo) = vbOK Then
Debug.Print "OK was pressed" 'Allright
Else
Debug.Print "Cancel was pressed" 'Never
End If
End Sub
|