Einzelnes Fenster schließen

Gary12345

Hallo,

Zurzeitiger Code:

Zitat

Def SetClassLong(3) !"USER32","SetClassLongA"
Window 0,0-800,800
WindowStyle 16
WindowTitle "Updatechecker by Gary12345"
PopUp "&Programm"
AppendMenu 102, "&Englisch"
AppendMenu 103, "&Zusatzfunktionen"
AppendMenu 104, "&Informationen"
PopUp "&Programmupdates"
AppendMenu 105, "&Die aktuellsten Versionen"
AppendMenu 106, "&Programme updaten"
PopUp "&Sonstiges"
AppendMenu 107, "&Informationen über den Autor"
AppendMenu 108, "&Version des Programms"
Separator
AppendMenu 109, "&Programm beenden"
Declare button1%, button2%, button3%, button4%, button5%, button6%, button7%
Declare button1e%, button2e%, button3e%, button4e%, button5e%, button6e%, button7e%
Declare Window%, Window2%
button1% = Create("Button", %hwnd, "Versionen ermitteln", 264, 64, 264, 80)
Create("Tooltip", %hwnd, button1%, "Versionen ermitteln")
button2% = Create("Button", %hwnd, "Aktuellste Versionen", 264, 168, 264, 72)
Create("Tooltip", %hwnd, button2%, "Aktuellste Versionen")
button3% = Create("Button", %hwnd, "Programme updaten", 264, 264, 264, 72)
Create("Tooltip", %hwnd, button3%, "Programme updaten")
button4% = Create("Button", %hwnd, "Zusatzfunktionen", 264, 360, 264, 72)
Create("Tooltip", %hwnd, button4%, "Zusatzfunktionen")
button5% = Create("Button", %hwnd, "Informationen über den Autor", 264, 456, 264, 72)
Create("Tooltip", %hwnd, button5%, "Informationen über den Autor")
button6% = Create("Button", %hwnd, "Programmversion", 264, 552, 264, 72)
Create("Tooltip", %hwnd, button6%, "Programmversion")
button7% = Create("Button", %hwnd, "Programm beenden", 264, 648, 264, 72)
Create("Tooltip", %hwnd, button7%, "Programm beenden")

While 1
WaitInput
If MenuItem(102)
SetText button1%, "Version identification"
SetText button2%, "Latest Versions"
SetText button3%, "Programupdates"
SetText button4%, "Additional Functions"
SetText button5%, "About the author"
SetText button6%, "Programversion"
SetText button7%, "Exit"
EndIf
If MenuItem(116) Or MenuItem(109) Or (Clicked(Button7%) And GetFocus(Button7%)) Or (Clicked(Button7e%) And GetFocus(button7e%))
MessageBox("Das Programm wird jetzt beendet","INFO",48)
End
EndIf
If MenuItem(105) Or Clicked(button2%)
Window2% = Create("Window",%hwnd, "Updatechecker",0,0,1800,800)
ShowWindow(Window2%,1)

StartPaint Window2%
cls
Usefont "Arial", 0, 14, 1, 1, 0, 0
TextColor 0, -1
DrawText 0, 0, "Willkommen zu diesem Bereich / Welcome to this Point"
DrawText 0,30, "Hier werden sie die aktuellsten Versionen kennenlernen / Here you will meet the latest Versions of all programs"
EndPaint
Declare nurso%, button8%
Def GetStockObject(1) !"GDI32","GetStockObject"
Def GetSysColor(1) !"USER32","GetSysColor"
Def GetParent(1) !"USER32","GetParent"
Def &COLOR_BTNFACE $F
Def &DEFAULT_GUI_FONT $11
WindowStyle 26 | 512 | 2048
WindowTitle "Arbeitsfenster"
Window 280, 0 - 1806, 828
Cls GetSysColor(&COLOR_BTNFACE)
SetDialogFont GetStockObject(&DEFAULT_GUI_FONT)
button8% = Create("Button", Window2%, "Fenster schließen", 32, 720, 224, 48)

EndIf

EndWhile

Alles anzeigen

Wie kann ich nur das ein Fenster schließen , das mit Create("Window") erstellt wurde. Ich will jetzt nicht, dass sich alle beiden schließen, nur das eine Fenster

LG

Werbepost

Hallo!

Wenn du gerade an deiner Website arbeitest oder dein aktuelles Hosting überdenkst: Wir betreiben mit NetzLiving eine Hosting-Plattform, die speziell auf Performance, Sicherheit und einfache Verwaltung ausgelegt ist.

✔️ Schnelle Ladezeiten (optimiert für WordPress, WoltLab & Co.)
✔️ Deutsche Server & DSGVO-konform
✔️ Persönlicher Support (kein 0815-Ticket-System)

Mehr erfahren

Wenn du Fragen hast, kannst du dich gerne jederzeit an @Maximilian Rupp wenden

Hinweis:

Gary12345

Ich habe es jetzt mit DestroyWindow(N) versucht, aber wenn ich den Button anklicke, kommt eine Fehlermeldung, dass das nicht stimmt:

Zitat

If Clicked(button8%)
DestroyWindow(Window2%)
EndIf

True29

Schließen eines Fensters:
@DestroyWindow(N)und da dann halt die ID des fensters angeben welches du schließen willst.

Zitat aus der Hilfe:
N : LongInt - Handle eines Fensterobjektes

Ergebnis : Integer - 1=Erfolg / 0=Mißerfolg

Das Fenster oder Fensterobjekt mit dem Handle N wird entfernt. War die Aktion erfolgreich, ist das Ergebnis 1 ansonsten ist es 0.

N : LongInt - Handle eines Fensterobjektes fehlt
also in deinem Fall "Window2%" ist das Handle.

Gary12345

Habe ich schon ausgebessert Es kommt eine Fehlermeldung das "If clicked(button8%)" nicht stimmt

Frank A.

In deinem Code sind quasi zwei Codes eingebettet. Schau dir deinen Code nochmal richtig an.

Bitte deine Codes hier in Code-Tags setzen, nicht in Quote-Tags...

Gary12345

Ich weiss nicht was Du meinst - Dafür bin ich wohl zu blöde D:

Code

Def SetClassLong(3) !"USER32","SetClassLongA"


Window 0,0-800,800
WindowStyle 16
WindowTitle "Updatechecker by Gary12345"


PopUp "&Programm"
AppendMenu 102, "&Englisch"
AppendMenu 103, "&Zusatzfunktionen"
AppendMenu 104, "&Informationen"


PopUp "&Programmupdates"
AppendMenu 105, "&Die aktuellsten Versionen"
AppendMenu 106, "&Programme updaten"


PopUp "&Sonstiges"
AppendMenu 107, "&Informationen über den Autor"
AppendMenu 108, "&Version des Programms"
Separator 
AppendMenu 109, "&Programm beenden"


Declare button1%, button2%, button3%, button4%, button5%, button6%, button7%
Declare button1e%, button2e%, button3e%, button4e%, button5e%, button6e%, button7e%
Declare Window%, Window2% 


button1% = Create("Button", %hwnd, "Versionen ermitteln", 264, 64, 264, 80)
Create("Tooltip", %hwnd, button1%, "Versionen ermitteln")


button2% = Create("Button", %hwnd, "Aktuellste Versionen", 264, 168, 264, 72)
Create("Tooltip", %hwnd, button2%, "Aktuellste Versionen")


button3% = Create("Button", %hwnd, "Programme updaten", 264, 264, 264, 72)
Create("Tooltip", %hwnd, button3%, "Programme updaten")


button4% = Create("Button", %hwnd, "Zusatzfunktionen", 264, 360, 264, 72)
Create("Tooltip", %hwnd, button4%, "Zusatzfunktionen")


button5% = Create("Button", %hwnd, "Informationen über den Autor", 264, 456, 264, 72)
Create("Tooltip", %hwnd, button5%, "Informationen über den Autor")


button6% = Create("Button", %hwnd, "Programmversion", 264, 552, 264, 72)
Create("Tooltip", %hwnd, button6%, "Programmversion")


button7% = Create("Button", %hwnd, "Programm beenden", 264, 648, 264, 72)
Create("Tooltip", %hwnd, button7%, "Programm beenden")




While 1
WaitInput
If MenuItem(102) 


SetText button1%, "Version identification"
SetText button2%, "Latest Versions"
SetText button3%, "Programupdates" 
SetText button4%, "Additional Functions"
SetText button5%, "About the author"
SetText button6%, "Programversion"
SetText button7%, "Exit"
EndIf


If MenuItem(116) Or MenuItem(109) Or (Clicked(Button7%) And GetFocus(Button7%)) Or (Clicked(Button7e%) And GetFocus(button7e%))
MessageBox("Das Programm wird jetzt beendet","INFO",48)
End 
EndIf


If MenuItem(105) Or Clicked(button2%)


Window2% = Create("Window",%hwnd, "Updatechecker",0,0,1800,800)
  ShowWindow(Window2%,1)

  StartPaint Window2%
  cls
  Usefont "Arial", 0, 14, 1, 1, 0, 0
  TextColor 0, -1
  DrawText 0, 0, "Willkommen zu diesem Bereich / Welcome to this Point"
  DrawText 0,30, "Hier werden sie die aktuellsten Versionen kennenlernen / Here you will meet the latest Versions of all programs"
  EndPaint



Declare nurso%, button8%


Def GetStockObject(1) !"GDI32","GetStockObject"
Def GetSysColor(1) !"USER32","GetSysColor"
Def GetParent(1) !"USER32","GetParent"


Def &COLOR_BTNFACE $F
Def &DEFAULT_GUI_FONT $11


  WindowStyle 26 | 512 | 2048
  WindowTitle "Arbeitsfenster"
  Window 280, 0 - 1806, 828


  Cls GetSysColor(&COLOR_BTNFACE)
  SetDialogFont GetStockObject(&DEFAULT_GUI_FONT)


  button8% = Create("Button", Window2%, "Fenster schließen", 32, 720, 224, 48)




EndIf


If Clicked(button8%)
DestroyWindow(Window2%)
EndIf


EndWhile

Alles anzeigen

Kann mir jemand den ausbessern?

True29

Code

Window 0,0-800,800
WindowStyle 16
WindowTitle "Updatechecker by Gary12345"


PopUp "&Programm"
AppendMenu 102, "&Englisch"
AppendMenu 103, "&Zusatzfunktionen"
AppendMenu 104, "&Informationen"


PopUp "&Programmupdates"
AppendMenu 105, "&Die aktuellsten Versionen"
AppendMenu 106, "&Programme updaten"


PopUp "&Sonstiges"
AppendMenu 107, "&Informationen über den Autor"
AppendMenu 108, "&Version des Programms"
Separator 
AppendMenu 109, "&Programm beenden"


Declare button1%, button2%, button3%, button4%, button5%, button6%, button7%
Declare button1e%, button2e%, button3e%, button4e%, button5e%, button6e%, button7e%
Declare Window%, Window2% 
Declare nurso%, button8%


button1% = Create("Button", %hwnd, "Versionen ermitteln", 264, 64, 264, 80)
Create("Tooltip", %hwnd, button1%, "Versionen ermitteln")


button2% = Create("Button", %hwnd, "Aktuellste Versionen", 264, 168, 264, 72)
Create("Tooltip", %hwnd, button2%, "Aktuellste Versionen")


button3% = Create("Button", %hwnd, "Programme updaten", 264, 264, 264, 72)
Create("Tooltip", %hwnd, button3%, "Programme updaten")


button4% = Create("Button", %hwnd, "Zusatzfunktionen", 264, 360, 264, 72)
Create("Tooltip", %hwnd, button4%, "Zusatzfunktionen")


button5% = Create("Button", %hwnd, "Informationen über den Autor", 264, 456, 264, 72)
Create("Tooltip", %hwnd, button5%, "Informationen über den Autor")


button6% = Create("Button", %hwnd, "Programmversion", 264, 552, 264, 72)
Create("Tooltip", %hwnd, button6%, "Programmversion")


button7% = Create("Button", %hwnd, "Programm beenden", 264, 648, 264, 72)
Create("Tooltip", %hwnd, button7%, "Programm beenden")




While 1
WaitInput
If MenuItem(102) 


SetText button1%, "Version identification"
SetText button2%, "Latest Versions"
SetText button3%, "Programupdates" 
SetText button4%, "Additional Functions"
SetText button5%, "About the author"
SetText button6%, "Programversion"
SetText button7%, "Exit"
EndIf


If MenuItem(116) Or MenuItem(109) Or (Clicked(Button7%) And GetFocus(Button7%)) Or (Clicked(Button7e%) And GetFocus(button7e%))
MessageBox("Das Programm wird jetzt beendet","INFO",48)
End 
EndIf


If MenuItem(105) Or Clicked(button2%)


Window2% = Create("Window",%hwnd, "Updatechecker",0,0,1800,800)
  ShowWindow(Window2%,1)

  StartPaint Window2%
  cls
  Usefont "Arial", 0, 14, 1, 1, 0, 0
  TextColor 0, -1
  DrawText 0, 0, "Willkommen zu diesem Bereich / Welcome to this Point"
  DrawText 0,30, "Hier werden sie die aktuellsten Versionen kennenlernen / Here you will meet the latest Versions of all programs"
  EndPaint



Def GetStockObject(1) !"GDI32","GetStockObject"
Def GetSysColor(1) !"USER32","GetSysColor"
Def GetParent(1) !"USER32","GetParent"


Def &COLOR_BTNFACE $F
Def &DEFAULT_GUI_FONT $11


  WindowStyle 26 | 512 | 2048
  WindowTitle "Arbeitsfenster"
  Window 280, 0 - 1806, 828


  Cls GetSysColor(&COLOR_BTNFACE)
  SetDialogFont GetStockObject(&DEFAULT_GUI_FONT)


  button8% = Create("Button", Window2%, "Fenster schließen", 32, 720, 224, 48)




EndIf


If Clicked(button8%)
DestroyWindow(Window2%)
EndIf


EndWhile

Alles anzeigen

so scheints zu gehen

Frabbing meint verscheinlich , das du in deinem Code 2x declarierst sowie 2x Definierst

Gary12345

OK geht

Ich habe mit SetTex den Text von den Buttons verädnert - wie geht das bei den AppendMenu 103, "Beispiel" ???

GT43A

Zitat von Gary12345;933600

Ich weiss nicht was Du meinst - Dafür bin ich wohl zu blöde D:

Kann mir jemand den ausbessern?

Hallo,

[Blockierte Grafik: http://s11.postimage.org/4lf2o2hkv/Lemmon.jpg]

Diesen Code kannst du dann auch gleich weiter bearbeiten.

Gary12345

Gerd) Mach ich auch

Zitat

Ich habe mit SetTex den Text von den Buttons verädnert - wie geht das bei den AppendMenu 103, "Beispiel" ???

Gary12345

Ich habe mit SetTex den Text von den Buttons verädnert - wie geht das bei den AppendMenu 103, "Beispiel" ???

Mit SetText Menuitem(101) gehts schon mal nich - hat jemand ne andere Idee?

AxT

Nur über API.
Mit GetMenu Handle des Fenstermenüs ermitteln.
Mit SetMenuItemInfo Text des Items ändern.

Gary12345

Ah OK schade - dann werd ich wohl nur die Buttons verändern können

horst_

@Gary
Hier ist ein Code, den du mal testen solltest. Es ist so ziehmlich alles drin, was du für den Anfang brauchst. Bei Problemen hier fragen oder eine PN an mich
Viel Erfolg

Code

DECLARE but10&,but20&,but30&,but40&,but50&,but100&
DECLARE but10$,but20$,but30$,but40$,but50$,but100$
but10$="F1 Hilfe":but20$="F2 Neu...":but30$="F3 Laden..."
but40$="F6 Drucken":but50$="F8 Löschen":but100$="Alt+F4 Ende"     
DECLARE spalte%,zeile%,steig%,lang%,hoch%
spalte%=10:zeile%=5:lang%=100:hoch%=25:steig%=(hoch%+4)
VAR font0%=CREATE("FONT","ARIAL",16,6,0,0,0)
'-----------------------------------------------------------------
ADDHOTKEY 10,112,0 'F1-Taste
ADDHOTKEY 20,113,0 'F2-Taste
ADDHOTKEY 30,114,0 'F3-Taste
ADDHOTKEY 40,117,0 'F6-Taste
ADDHOTKEY 50,119,0 'F8-Taste
ADDHOTKEY 100,115,4 'F4+Alt-Taste Beenden
'-------------------------------------------------------------------------
'Programm-Start
'-------------------------------------------------------------------------
SETDIALOGFONT font0%
WindowStyle 46+512
WINDOW (%MaxX/2-400),(%MaxY/2-300)-800,600 'zentrierte Ausgabe
but10&=CREATE("BUTTON",%hwnd,but10$,spalte%,zeile%,lang%,hoch%)
zeile%=(zeile%+steig%)
but20&=CREATE("BUTTON",%hwnd,but20$,spalte%,zeile%,lang%,hoch%)
zeile%=(zeile%+steig%)
but30&=CREATE("BUTTON",%hwnd,but30$,spalte%,zeile%,lang%,hoch%)
zeile%=(zeile%+steig%)
but40&=CREATE("BUTTON",%hwnd,but40$,spalte%,zeile%,lang%,hoch%)
zeile%=(zeile%+steig%)
but50&=CREATE("BUTTON",%hwnd,but50$,spalte%,zeile%,lang%,hoch%)
zeile%=(zeile%+(steig%*2))
'--------------------------------------------
but100&=CREATE("BUTTON",%hwnd,but100$,spalte%,zeile%,lang%,hoch%)
WHILE 1
        WAITINPUT
CASE GetFocus(but10&) | MenuItem(10):BEISPIEL but10$        
CASE GetFocus(but20&) | MenuItem(20):BEISPIEL but20$        
CASE GetFocus(but30&) | MenuItem(30):ANZEIGE "C:"
CASE GetFocus(but40&) | MenuItem(40):BEISPIEL but40$        
CASE GetFocus(but50&) | MenuItem(50):BEISPIEL but50$        
CASE GetFocus(but100&) | MenuItem(100):END
CASE (%Key=2):END 'Schließen-Button oben rechts [X]
Case IsKey(27):END 'ESC-Taste
ENDWHILE        
END
'###################################
PROC BEISPIEL
PARAMETERS text$
Messagebox(text$,"Beispielreaktion",64)
ENDPROC
'####################################
PROC ANZEIGE
ADDHOTKEY 110,65,4 'Alt+A-Taste
DECLARE win01&,list01&,back01&,EE%
EE%=0
PARAMETERS verz$
CHDIR verz$
win01&=CREATE("DIALOG",%hwnd,"",(%MaxX/2-250),(%MaxY/2-165),500,330) 'zentrierte Ausgabe
list01&=CREATE("SORTEDLISTBOX",win01&,"",5,5,480,250)
CLEARLIST list01&
ADDFILES "*.*"
MOVELISTTOHANDLE(list01&)
back01&=CREATE("BUTTON",win01&,"&Abbrechen",10,270,lang%,hoch%)
WHILENOT EE%
        WAITINPUT
IF GetFocus(back01&) | MenuItem(110)
        DesTRoyWindow(win01&)
                EE%=1
        SetFocus(%hwnd)
ENDIF
ENDWHILE
ENDPROC

Alles anzeigen

Gary12345

Ich will lieber meinen eigenen Code benutzen - tut mir leid, dennoch vielen Dank für Deine Mühe

PS: Var gibt es in XProfan9 nicht

horst_

Zitat von Gary12345;933634

Ich will lieber meinen eigenen Code benutzen - tut mir leid, dennoch vielen Dank für Deine Mühe
PS: Var gibt es in XProfan9 nicht

Dann declariere eben.
Du sollst ja auch deinen eigenen Code weiter nutzen.
Mein Code ist als Trainings-Text gedacht.
Aber wer nicht will, der hat schon.
Dein Code ist überlastet und an vielen Stellen unlogisch aufgebaut.
Daher mein Beispiel.
Jeder hat mal angefangen und mir wurde auch geholfen.

Code

VAR font0%=CREATE("FONT","ARIAL",16,6,0,0,0)

Würde in Version 9 so lauten:

Code

DECLARE font0%
font0%=CREATE("FONT","ARIAL",16,6,0,0,0)

Gary12345

OK gute Idee Ich schreib diesen Code mal im Xprofed, mal sehen, was mir besser gefällt

Gary12345

Diese Addhotkey funktioniert nicht - Wird wohl auch an XProfan 9 liegen - wie soll ich es ausbessern?

horst_

Zitat von Gary12345;933638

Diese Addhotkey funktioniert nicht - Wird wohl auch an XProfan 9 liegen - wie soll ich es ausbessern?

Nimm mal den ganzen Block nach WAITINPUT raus und ersetze damit:

Code

CASE GetFocus(but10&) | IsKey(112):BEISPIEL but10$        
CASE GetFocus(but20&) | IsKey(113):BEISPIEL but20$        
CASE GetFocus(but30&) | IsKey(114):ANZEIGE "C:"
CASE GetFocus(but40&) | IsKey(117):BEISPIEL but40$        
CASE GetFocus(but50&) | IsKey(119):BEISPIEL but50$        
CASE GetFocus(but100&) | (IsKey(114) & Iskey(18)):END
CASE (%Key=2):END 'Schließen-Button oben rechts [X]

Alle ADDHOTKEY-Zeilen löschen

Gary12345

Ich habe jetzt alle AddHotkey Zeilen geöscht und es erscheint eine Fehlermeldung, wenn ich auf den Button Laden drücke, das MOVELISTTOHANDLE unbekannt ist ?!

Jetzt mitmachen!