PureBasic Forums - English

Code: Select all

Procedure MessageBox(hwnd , Caption$, Text$, dwStyle, lpszIcon)
#MB_USERICON = $80 
Protected my_messagebox.MSGBOXPARAMS
If hwnd<>0
hwnd=WindowID(hwnd)
EndIf
my_messagebox\cbSize=SizeOf(MSGBOXPARAMS) 
my_messagebox\hwndOwner=hwnd ; change to windowID(#your window) if needed
my_messagebox\hInstance=0
my_messagebox\lpszText=@Text$
my_messagebox\lpszCaption=@Caption$ 
; lookup other dwStyles under SDK MessageBoxEx Function <<<---
my_messagebox\dwStyle=dwStyle
;{ more lpszIcon options 
;IDI_APPLICATION 
;IDI_ASTERISK 
;IDI_ERROR 
;IDI_EXCLAMATION 
;IDI_HAND 
;IDI_INFORMATION 
;IDI_QUESTION 
;IDI_WARNING 
;IDI_WINLOGO 
;}
my_messagebox\lpszIcon=lpszIcon
ProcedureReturn MessageBoxIndirect_(@my_messagebox)
EndProcedure

;PBMessageBoxQuit()
Result.b=MessageBox(0, "Exit Program","Exit Program Are You Sure ?            "+Chr(13), #MB_YESNO | #MB_USERICON | #MB_DEFBUTTON2, #IDI_EXCLAMATION)

If Result.b=#IDYES ; Yes or #IDNO for no...
Beep_(100,50)
EndIf

End

Code: Select all

MessageRequester("APPNAME", "Are you sure you want to exit the program?", #PB_MessageRequester_YesNo | #MB_DEFBUTTON2 | #MB_ICONWARNING)

Code: Select all

Result.l = MessageRequester("APPNAME", "Are you sure you want to exit the program?", #PB_MessageRequester_YesNo | #MB_DEFBUTTON2 | #MB_ICONWARNING)

If Result = #IDYES ; Yes or #IDNO for no...
  Beep_(100,50)
EndIf

Code: Select all

Result.l = MessageRequester("APPNAME", "Are you sure you want to exit the program?", #PB_MessageRequester_YesNo | #MB_DEFBUTTON2 | #MB_ICONWARNING|$80)