Example of a "Loud Message" box. It could probably be coded cleaner/simpler but gives the idea and be reasonably easy to follow/implement.
'
'
Code:
'PBWIN 9.01 - WinApi 05/2008 - XP Pro SP3 #Compile Exe #Dim All #Optimize SPEED #Debug Display On 'This mode should only be used during program development and debugging. It should never be used in a production program. ' Dunno why. Only info in Help. ' #Include "WIN32API.INC" #Include "COMDLG32.INC" #Include "InitCtrl.inc" ' Function PBMain ErrClear MsgBox "Do you prefer this for a notice?",,FuncName$ Local s$ s$ = Loud_Message(" Or This?", FuncName$) ? s$ & " returned",,"From Loud_Message" End Function ' Function Loud_Message(Msg As String, Msg_Header As String) As String ErrClear Local hWin, hfont As Dword 'just needed for setup Local col, row, wdth, hght As Long Local s As String Desktop Get Size To Wdth, hght& Col = Wdth \ 4 Row = hght \ 2 ' Wdth = Wdth / 2 Hght = 100 Graphic Window Msg_Header$, Col, Row, Wdth, Hght To hWin Graphic Attach hWin, 0 Font New "Comic MS Sans", 48 To hfont Graphic Set Font hfont Graphic Set Pos (10, 20) Graphic Print Msg ' While IsWin(hWin) Graphic Inkey$ To s$ If Len(s$) <> 0 Then Function = s$ Graphic Window End Exit Loop End If Sleep 1 Wend ' End Function '
Comment