Der Befehl If Mouse

Ist ganz einfach, ich hoffe, das hilft:

declare exit&
cls rgb (192,192,192)
Window 50,0 - 450,150
rectangle 9,9 - 161,36
rectangle 9,40 - 280,64


loadbmp "ausschalten.bmp",161,7;0
loadbmp "abmelden.bmp",191,7;0
loadbmp "standby.bmp",251,7;0
loadbmp "neustart.bmp",221,7;0


exit& = Create("Button",%HWnd,"RHP Multiprogram 1.2",10,10,150,25)


While 1=1
 waitinput
 IF Clicked(Exit&)
  End
 ElseIf Mouse(161,7-191,37) '191,37 ergibt sich aus der Größe der Bitmap 30*30
  MEssagebox("Ausschalten geclicket!","Button?",64) 
 ElseIf Mouse(191,7-221,37)
  Messagebox("Abmelden geclicket!","Button?",64)
 ElseIf Mouse(251,7-281,37)
  Messagebox("Standby geclicket!","Button?",64)
 ElseIf Mouse(221,7-251,37)
  Messagebox("Neustart geclicket!","Button?",64)
 endif
wend

Du musst kleine und lauffähige Minimalteste posten. So kann das ja niemand nachvollziehen.

Zitat von mcmini12;683058

Ich will aber das es geöffnet bleibt.

Da ich bislang nur Buttons gebaut habe, die Programme schließen, kann ich dir da leider nicht weiterhelfen.
Wenn du eine Lösung gefunden hast, poste die hier bitte; die würde mich auch sehr interessieren - man lernt ja nie aus.

In dem Archiv stecken 2 Quelltexte. Bei beiden wird die Input-Box genommen, die sich IMMER schließt, wenn man auf OK drückt. Du musst den Dialog selbst erstellen, damit er offen bleibt.

Und dann musst du das Waitinput in While/endwhile einkapseln, damit die Abfrage immer wiederholt wird. Ansonsten wird das Waitinput und die ifs durchlaufen und das Ende des Quelltexts erreicht -> das Programm beendet sich.

Hallo,
hier klemmt es:

Var Text$ = "MultiProgram 1.2:\n\n\t\
        Version: 1.2\n\t\
        Veröffentlichungsdatum: 7.März.2009\n\t\
        Hersteller: RHP\n\n\t\
Für mehr Infos gehen Sie auf www.RHPrograms.piczo.com"

Du darfst nicht ein Stringliteral über mehrere Zeilen umbbrechen.
Schreibe es also so:

Var Text$ = "MultiProgram 1.2:\n\n\t" \
      + "Version: 1.2\n\t" \
      + "Veröffentlichungsdatum: 7.März.2009\n\t" \
      + "Hersteller: RHP\n\n\t" \
      + "Für mehr Infos gehen Sie auf www.RHPrograms.piczo.com"

Dann sollte es klappen.
Gruß
Roland

Zitat von AHT;683096

Wenn du eine Lösung gefunden hast, poste die hier bitte; die würde mich auch sehr interessieren - man lernt ja nie aus.

Hallo mcmini12...
Deine Lösung geht bei mir leider nicht, schade...
Hast du eine Ahnung, woran es liegen könnte?

Nimm das endif nach i%=1 raus.

Zitat von Jac de Lad;683868

Nimm das endif nach i%=1 raus.

Ganz sicher? 8O

mcmini12: Schon eine Ahnung, woran es liegt?

Naja, das hat das Endif-Problem gelöst.

Dazu kamen:

1. var innerhalb einer Schleife declariert die Variable jedes Mal aufs neue. Das geht nicht. Vor der Schleife declarieren und in der Schleife mit x$="Text" belegen. In diesem Fall reicht auch das einmalige var x$="Text", da sich der Text ja nie ändert.

2. Das Whileloop war nicht geschlossen, das letzte "end" muss ein "endwhile" sein.

3. das erste "elseif" war vollkommen falsch. Es darf nur nach einem if kommen.

4. das erste "endif" war falsch.

Ansonsten ist noch einiges ungünstig, sollte aber laufen. Ich hab die Bilder ja nicht und konnte nur Teile teste. Ob die Koordinaten stimmen, weiß ich nicht.

declare exit&,i%
cls rgb (192,192,192)
Window 50,0 - 384,142
rectangle 9,9 - 161,36
rectangle 9,40 - 280,64
loadbmp "RHPMP1.bmp",290,2;0
loadbmp "ausschalten.bmp",161,7;0
loadbmp "abmelden.bmp",191,7;0
loadbmp "neustart.bmp",221,7;0


    Popup "&Updates"
        AppendMenu 101,"Programm Updaten"


exit& = Create("Button",%HWnd,"RHP Multiprogram 1.2",10,10,150,25)


                          i% = 0


'                          elseif i% = 0
var Text$ = "MultiProgram"' 1.2:\n\n\t\        Version: 1.2\n\t\        Veröffentlichungsdatum: 7.März.2009\n\t\        Hersteller: RHP\n\n\t\Für mehr Infos gehen Sie auf www.RHPrograms.piczo.com"
var Titeltext$ = "I N F O"
While 1=1
 waitinput
 IF Clicked(Exit&)
Messagebox(Text$,Titeltext$,4160)
end


 ElseIf Mouse(161,7-191,37) '191,37 ergibt sich aus der Größe der Bitmap 30*30
' exitwindows -0
 ElseIf Mouse(191,7-221,37)
' exitwindows -3
 ElseIf Mouse(221,7-251,37)
' exitwindows -1
                                                    i% = 1





                          

 
 
 ElseIf Mouse(191,7-221,37)
  Messagebox("Abmelden geclicket!","Button?",64)
 ElseIf Mouse(251,7-281,37)
  Messagebox("Standby geclicket!","Button?",64)
 ElseIf Mouse(221,7-251,37)
  Messagebox("Neustart geclicket!","Button?",64)
endif 
endwhile

Hm, die "if Mouse()"-Messageboxen dürften nie angezeigt werden, da der Bereich ja schon in einem if/elseif verarbeitet wurde und die weiteren Bedingungen nur angesprungen werden, wenn das if/elseif nicht zutraf. Also die Messageboxen mit in die erste entsprechende Abfrage per Mouse() einbringen.

Zitat von Jac de Lad;683900

Dazu kamen:

Das hört sich schon besser an.