Here's the code of one of the programs that works, it uses Windows API of all things
Code: Select all
Result = MessageBox_(0,"This is the text","This is the caption",#MB_CANCELTRYCONTINUE|#MB_ICONINFORMATION|#MB_DEFBUTTON2)
Select Result
	Case #IDABORT		; Abort button was selected.
		Selected$ = "IDABORT"
		MessageBox_(0,"You select " + Selected$ + ".","Result",#MB_OK)
	Case #IDCANCEL		; Cancel button was selected.
		Selected$ = "IDCANCEL"
		MessageBox_(0,"You select " + Selected$ + ".","Result",#MB_OK)
; 	Case #IDCONTINUE	; Continue button was selected.
; 		Selected$ = "IDCONTINUE"
; 		MessageBox_(0,"You select " + Selected$ + ".","Result",#MB_OK)
	Case #IDIGNORE		; Ignore button was selected.
		Selected$ = "IDIGNORE"
		MessageBox_(0,"You select " + Selected$ + ".","Result",#MB_OK)
	Case #IDNO			; No button was selected.
		Selected$ = "IDNO"
		MessageBox_(0,"You select " + Selected$ + ".","Result",#MB_OK)
	Case #IDOK			; OK button was selected.
		Selected$ = "IDOK"
		MessageBox_(0,"You select " + Selected$ + ".","Result",#MB_OK)
	Case #IDRETRY		; Retry button was selected.
		Selected$ = "IDRETRY"
		MessageBox_(0,"You select " + Selected$ + ".","Result",#MB_OK)
; 	Case #IDTRYAGAIN 	; Try Again button was selected.
; 		Selected$ = "IDTRYAGAIN"
; 		MessageBox_(0,"You select " + Selected$ + ".","Result",#MB_OK)
	Case #IDYES			; Yes button was selected.
		Selected$ = "IDYES"
		MessageBox_(0,"You select " + Selected$ + ".","Result",#MB_OK)
	Default
		Selected$ = Str( Result )
		MessageBox_(0,"You select " + Selected$ + ".","Result",#MB_OK)		
EndSelect
End
;- End of program
; IDE Options = PureBasic v4.01 (Windows - x86)
; Folding = -
; Executable = API_MessageBox.exe




