Buchempfehlung
Windows-Programmierung. Das Entwicklerhandbuch zur WIN32-API
Windows-Programmierung. Das Entwicklerhandbuch zur WIN32-API
"Der" Petzold, das über 1000 Seiten starke Standardwerk zum Win32-API - besonders nützlich u. a. bei der GUI-Programmierung in FreeBASIC! [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen Download
Dateidownload

MessageBox in FreeBASIC

Uploader:AdministratorSebastian
Datum/Zeit:25.08.2008 16:55:06

#include "windows.bi"

Dim As Integer iResult

'Informationen zur MessageBox-Function auf
' http://msdn.microsoft.com/en-us/library/ms645505(VS.85).aspx
iResult = MessageBox(0, "Hier steht der Text.", _
    "Das ist der Titel.", _
    MB_ABORTRETRYIGNORE Or MB_ICONQUESTION Or MB_DEFBUTTON2)

Select Case iResult
Case IDIGNORE: MessageBox(0, "Ignorieren", "Titel 1", 0)
Case IDABORT: MessageBox(0, "Abgebrochen", "Titel 2", 0)
Case IDRETRY: MessageBox(0, "Wiederholen", "Titel 3", 0)
Case Else: MessageBox(0, "Seltsame Rückgabe des Funktionsaufrufs: " & iResult, "Titel 4", 0)
End Select