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: Wie frage ich denn Button ab?
Autor: Heinz Brill (---.dip0.t-ipconnect.de)
Datum:   02.12.17 07:44

Die Iconbuttons fragt man genauso, wie die
normalen Buttons in einer Schleife ab.
 Var ProgName$ = "Starter V1.0"
  WindowTitle ProgName$
  WindowStyle 63 '8 + 16
  Window 256, 100
  CLS  : ClearList
  
  Declare hIcon1&, hIcon2&, hIcon3&, hIcon4&
  Declare hButton1&, hButton2&, hButton3&, hButton4&
  Declare Ende&
  Ende& = 0
 
  hIcon1& = Create("hIcon", "ico/DosBox.ico", 0)
  hIcon2& = Create("hIcon", "ico/ScummVM.ico", 0)
  hIcon3& = Create("hIcon", "ico/Amiga.ico", 0)
  hIcon4& = Create("hIcon", "ico/C64.ico", 0)
  
  hButton1& = Create("ICONBUTTON", %hWnd, hIcon1&, 0, 0, 60, 60)
  hButton2& = Create("ICONBUTTON", %hWnd, hIcon2&, 60, 0, 60, 60)
  hButton3& = Create("ICONBUTTON", %hWnd, hIcon3&, 120, 0, 60, 60)
  hButton4& = Create("ICONBUTTON", %hWnd, hIcon4&, 180, 0, 60, 60)
 
 WhileNot Ende&
  WaitInput
   If Clicked(hButton1&)
     Shell "ext.Programm"
   ElseIf Clicked(hButton2&)
    Shell "ext.Programm"
    ' usw.
   EndIf
   Case %Key = 2 : Ende& = 1
 EndWhile
 DeleteObject hIcon1&, hIcon2&, hIcon3&, hIcon4&
 


Du mußt dir nur eine Abfrage schaffen, damit die Schleife
bei Ende des Programms verlassen wird. Hier oben mit dem
Schließen-Kreuz. Du kannst aber auch einen extra Button
machen, den du abfragst und dann Ende& auf 1 setzen.

Den gleichen Effekt hast du mit
UserMessages 16 'wm_close
und Abfrage von %UMessage in der Schleife.
Da wird auch die Message wm_close an das Profanfenster
geschickt.

H.Brill
XProfan X4 + FreeProfan

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

 Beiträge Autor  Datum
 Wie frage ich denn Button ab?  Neu
Markus Barkholz 01.12.17 22:47 
 Re: Wie frage ich denn Button ab?  Neu
Heinz Brill 02.12.17 07:44 
 Re: Wie frage ich denn Button ab?  Neu
Markus Barkholz 05.12.17 18:28 
 Re: Wie frage ich denn Button ab?  Neu
Volkmar Göritz 05.12.17 20:13 
 Re: Wie frage ich denn Button ab?  Neu
Markus Barkholz 06.12.17 18:58 


 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