Das OFFIZIELLE PROFAN SUPPORT FORUM
Einsteigerfragen
PROFAN-Programmierung
Helfer & Tools
Anregungen & Vorschläge
PROFAN-NEWS
Die Regeln!
2 - PROFAN-Programmierung

 Neues Thema  |  Zur Übersicht  |  Suchen  |  Einloggen   Vorherige Nachricht  |  Nächste Nachricht 
 Re: Messageloop direkt aufrufen?
Autor: Heinz Brill (---.dip0.t-ipconnect.de)
Datum:   10.01.19 20:03

Vielleicht hier ein kleines Beispiel zum besseren
Verständnis.

 Declare Handle btn1, btn2, btn3, grid, Long ende, pid
 
 Window 640, 400
 btn1 = Create("Button", %HWnd, "Suspend", 10, 10, 80, 25)
 btn2 = Create("Button", %HWnd, "Resume", 100, 10, 80, 25)
 btn3 = Create("Button", %HWnd, "Ende",   500, 10, 80, 25)
 grid = Create("GridBox", %HWnd, "Spalte 1;0;80;Spalte 2;0;80;Spalte3;0;80", 0, 10, 80, 280, 200)
 
 ende = 0
 pid = 0
 
 UserMessages $1000
 
 pid = pExec("|Schleife", %HWnd, grid)
 
 WhileNot ende
   WaitInput
   If Clicked(btn1)
      Process("Suspend", pid)
   ElseIf Clicked(btn2)
     Process("Resume", pid)
   ElseIf Clicked(btn3)
      Ende = 1
   EndIf
   If %UMessage = $1000
       MessageBox("Schleife hat aufgehört !", "Info", 0)
   EndIf    
 EndWhile
 
 If pid > 0
    Process("Kill", pid, 0)
 EndIf
 End
 
 Proc Schleife
 Parameters Handle win, tabelle
 Declare Long i
 For i, 1, 100
      WhileLoop 1, 10
          AddString(tabelle, Str$(&LOOP) + "|" + Str$(&LOOP * 2) + "|" + Str$(&LOOP * 3))
          Sleep 100
          ' Das Sleep ist hier nur drin, damit man den Fortschritt und
          ' damit die Anzeige in der Tabelle besser sieht. Andernfalls
          ' rutscht es zu schnell durch.
      EndWhile
 EndFor
 SendMessage(win, $1000, 0, 0)
 EndProc
 


H.Brill
XProfan X4 + FreeProfan

Nachricht bearbeitet (10.01.19 20:09)

 Beitrag beantworten  |  Foren-Liste  |  Alle Antworten   Neuerer Beitrag  |  Älteres Thema 

 Beiträge Autor  Datum
 Messageloop direkt aufrufen?  Neu
Jens-Arne Reumschüssel 09.01.19 20:50 
 Re: Messageloop direkt aufrufen?  Neu
Heinz Brill 10.01.19 04:02 
 Re: Messageloop direkt aufrufen?  Neu
Jens-Arne Reumschüssel 10.01.19 19:00 
 Re: Messageloop direkt aufrufen?  Neu
p. specht 10.01.19 19:36 
 Re: Messageloop direkt aufrufen?  Neu
Jens-Arne Reumschüssel 10.01.19 21:16 
 Re: Messageloop direkt aufrufen?  Neu
Heinz Brill 10.01.19 19:30 
 Re: Messageloop direkt aufrufen?  Neu
Jens-Arne Reumschüssel 10.01.19 21:14 
 Re: Messageloop direkt aufrufen?  Neu
Heinz Brill 10.01.19 20:03 
 Re: Messageloop direkt aufrufen?  Neu
Jens-Arne Reumschüssel 10.01.19 21:32 


 Foren-Liste  |  Zur Registrierung 
 Benutzerlogin
 Benutzername:
 Passwort:
 Login-Daten speichern:
   
 Passwort vergessen?
E-Mail-Adresse oder Username unten eingeben. Dann wird Dir per e-Mail ein neues Passwort zugeschickt.

phorum.org