03-23-2025, 06:32 PM
For me the box always stays in front.
Code: (Select All)
'Messageboxuebung - 23. Maerz 2025
'https://qb64phoenix.com/qb64wiki/index.php/MESSAGEBOX_(function)
Option _Explicit
Dim As Integer eingabe
'Sprungmarke
Nochmal:
Locate 3, 3
Input "Eine Zahl groesser 9 und kleiner 15: ", eingabe
Select Case eingabe
Case 10 To 15
Locate 5, 3
Beep: Print "Korrekt"
Case Else
'Ungleich 1 bedeutet 0 fuer Abbrechen/Nein, oder 2 fuer Nein in yesnocancel
If _MessageBox("Fehlermeldung", "Eingabe war falsch!", "okcancel", "error") <> 1 Then
Cls
GoTo Nochmal
Else
Beep: System
End If
End Select
End