Deutsch
Forum

Brauche mal wieder eure Hilfe (Listbox erstellen)

 

Stephie
Erstmal eine Bitte, wie stelle ich hier den Code als Liste dar ?
Bitte meinen wandeln, wer das Recht dazu hat, DANKE.
So nun zu meinem Anliegn. Ich rufe über mein Menu eine Ausgabe auf, in der bestimmte Sachen angezeigt werden sollen. Das Fenster soll auf Tastendruck oder über einen Button geschlossen werden, das Hauptfenster soll aber nicht dabei geschlossen werden.
Habe viel gelesen und rumprobiert, so dass ich jetzt echt nicht mehr weis was ich machen soll. (Bei mir schloss sich dann auch das Hauptfenster, habe diesen teil wieder gelöscht sicherheitshalber).

Hier mein Code :
'----- ini Ausgabe -----
Proc ini-Ausgabe

    Declare Listbox%,Dlg%
    SetTrueColor 1
    Cls @RGB(255,255,255)
    Dlg% = @Create("Dialog",%Hwnd,Titel$,300,100,400,500)
    ListBox%=@CreateListBox(Dlg%,"",10,10,370,410)
    @AddString(ListBox%,"Familie im Netz Version 1.0 portable")
    @AddString(ListBox%,"- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -")
    @AddString(ListBox%," ")
    @AddString(ListBox%,"ini - Zuweisungen")
    @AddString(ListBox%,"Fin.ini = "+Prini$)
    @AddString(ListBox%,"Sprache = "+Menuini$)
    @AddString(ListBox%," ")
    @AddString(ListBox%,"Ordner - Zuweisungen")
    @AddString(ListBox%,Backup$)
    @AddString(ListBox%,Beispiel$)
    @AddString(ListBox%,Bilder$)
    @AddString(ListBox%,Datei$)
    @AddString(ListBox%,Dummys$)
    @AddString(ListBox%,Erweiterungen$)
    @AddString(ListBox%,Fonts$)
    @AddString(ListBox%,Hintergrundbild$)
    @AddString(ListBox%,Rahmen$)
    @AddString(ListBox%,Sprachen$)
    @AddString(ListBox%,Tafelbilder$)
    @AddString(ListBox%,Vorlagen$)
    @AddString(ListBox%,Wiki$)

EndProc

 
18.08.2011  
 




Julian
Schmidt
Wenn ich dich richtig verstehe willst du einfach nur ein Dialog-Fenster schließen ohne das Hauptfenster mit zuschließen!?
declare Dlg%
UserMessages $10
Windowstyle 24
Window 100,200-300,250
ini-Ausgabe

while 1

    waitinput

    if CloseWindow(Dlg%)

        destroywindow(Dlg%)

    elseif CloseWindow(%hwnd)

        break

    Endif

Endwhile

end

Proc ini-Ausgabe

    Declare Listbox%
    SetTrueColor 1
    Cls @RGB(255,255,255)
    Dlg% = @Create("Dialog",%Hwnd,"",300,100,400,500)
    ListBox%=@Create("ListBox",Dlg%,"",10,10,370,410)
    @AddString(ListBox%,"Familie im Netz Version 1.0 portable")
    @AddString(ListBox%,"- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -")
    @AddString(ListBox%," ")
    @AddString(ListBox%,"ini - Zuweisungen")
    @AddString(ListBox%,"Fin.ini = "+"")
    @AddString(ListBox%,"Sprache = "+"")
    @AddString(ListBox%," ")
    @AddString(ListBox%,"Ordner - Zuweisungen")
    @AddString(ListBox%,"")
    @AddString(ListBox%,"")
    @AddString(ListBox%,"")
    @AddString(ListBox%,"")
    @AddString(ListBox%,"")
    @AddString(ListBox%,"")
    @AddString(ListBox%,"")
    @AddString(ListBox%,"")
    @AddString(ListBox%,"")
    @AddString(ListBox%,"")
    @AddString(ListBox%,"")
    @AddString(ListBox%,"")
    @AddString(ListBox%,"")

EndProc

Proc CloseWindow

    Parameters hdl&
    var x%=0

    if %UMessage = $10

        case GetActiveWindow()=hdl& : x%=1

    Endif

    Return x%

EndProc

 
XProfan X2
Win7 Home Premium, SP1, AMD Athlon(tm) II Neo K125 Processor

˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...] 
18.08.2011  
 




Stephie
So erstmal Danke für den der den Code so fertig gemacht hat. Aber wie mache ich das für die Zukunft ? Was muss ich da Eingeben damit nicht immer Ihr das für mich machen müsst.
Nun zu Dir Julian57, Ich rufe von meinem Hauptfenster über dessen Menu dieses Dialogfenster auf. Nachdem ich schauen kann, das alles noch i.O. ist, möchte ich durch einfachen Druck einer Taste (z.B. waitinput) oder über einen Button der unten im Dialog-Fenster erscheinen könnte, diesen Dialog schliessen, um dann im Hauptfenster weiterarbeiten zu können.
Mit dem Waitinput passiert nichts, mit dem Button (wenn ich den einbaue) schliesse ich auch das Hauptfenster.
Es sollte also eine Routine eingebaut werden, die meines erachtens in dem Proc ini-Ausgabe bis Endproc stehen müsste.

Gruß Stephie
(PS: Habe wohl bei der ersten Anfrage meinen Namen vergessen, Hole ich jetzt nach.)
 
19.08.2011  
 




E.T.
Mal ohne Messages zu "verbiegen" und ohne Extra-Proc:
CLS'Hauptfenster erstellen
var Btn1& = Create("Button",%HWnd,,"ini-Ausgabe aufrufen",10,10,200,25)'selbsterklärend
var ProgEnde% = 0

WhileNot ProgEnde%'warten...

    waitinput

    If @Clicked(Btn1&)

        ini_Ausgabe'Aufruf ini-Ausgabe, ob über diesen Button oder Menü ist deine Sache

    ElseIf %Key = 2'Schliessen-Kreuz im Hauptfenster

        Progende% = 100'Programm beenden

    EndIF

EndWhile

end

Proc ini_Ausgabe'KEIN BINDESTRICH!!!

    Declare Listbox%,Dlg%, Titel$'div. declaration fehlt, hab den Rest unten als String genommen
    Titel$ = "Testbox"
    SetTrueColor 1
    Cls @RGB(255,255,255)
    WindowStyle 1024
    Dlg% = @Create("Dialog",%Hwnd,Titel$,300,100,400,500)
    ListBox%=@CreateListBox(Dlg%,"",10,10,370,410)
    @AddString(ListBox%,"Familie im Netz Version 1.0 portable")
    @AddString(ListBox%,"- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -")
    @AddString(ListBox%," ")
    @AddString(ListBox%,"ini - Zuweisungen")
    @AddString(ListBox%,"Fin.ini = "+"Prini$")
    @AddString(ListBox%,"Sprache = "+"Menuini$")
    @AddString(ListBox%," ")
    @AddString(ListBox%,"Ordner - Zuweisungen")
    @AddString(ListBox%,"Backup$")
    @AddString(ListBox%,"Beispiel$")
    @AddString(ListBox%,"Bilder$")
    @AddString(ListBox%,"Datei$")
    @AddString(ListBox%,"Dummys$")
    @AddString(ListBox%,"Erweiterungen$")
    @AddString(ListBox%,"Fonts$")
    @AddString(ListBox%,"Hintergrundbild$")
    @AddString(ListBox%,"Rahmen$")
    @AddString(ListBox%,"Sprachen$")
    @AddString(ListBox%,"Tafelbilder$")
    @AddString(ListBox%,"Vorlagen$")
    @AddString(ListBox%,"Wiki$")
    var Ini_Ende_Btn& = @Create("Button",Dlg%,"ini-Ausgabe beenden",10,@Height(Dlg%)-30,300,25)'Button zum beenden der Ausgabe
    var Ini_Ende% = 0
    Enablewindow %Hwnd,0'Hauptfenster deaktivieren

    WhileNot Ini_Ende%

        waitinput'warten, bis Dlg% über Button geschlossen wird
        Case @Clicked(Ini_Ende_Btn&): Ini_Ende% = 1

    EndWhile

    DestroyWindow(Dlg%)'Dialog zerstören
    Enablewindow %Hwnd,1'Hauptfenster wieder aktivieren
    Setwindowpos %HWnd = %WinLeft,%WinTop;0'Fenster wieder in den Vordergrund holen

EndProc


Hoffe, das hilft etwas... bei mir funktioniert das bestens
 
Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...
19.08.2011  
 




Dietmar
Horn
Hallo Stephie,

ich war der Bösewicht gewesen, der sich an Deinem Code vergriffen hat.

Vor den Code setzt Du [~CODE] und danach [~/CODE] - ohne "~".

Gruß
Dietmar
 
Multimedia für Jugendliche und junge Erwachsene - MMJ Hoyerswerda e.V.  [...] 

Windows 95 bis Windows 7
Profan² 6.6 bis XProfan X2 mit XPSE

Das große XProfan-Lehrbuch:  [...] 
19.08.2011  
 




Jörg
Sellmeyer

Vor den Code setzt Du [~CODE] und danach [~/CODE] - ohne "~".


oder noch einfacher: über diesem Beitragstextedit ist eine Leiste mit "Beitrag|Schrift|Smilies" und am Ende ein kleiner Pfeil. Den klick mal an...
 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
19.08.2011  
 




Julian
Schmidt
Dietmar Horn (19.08.11)
Vor den Code setzt Du [~CODE] und danach [~/CODE] - ohne "~".


Simple über das Menu aufzurufen...



[OFFTOPIC]hmmm.....Jörg war schneller [/OFFTOPIC]

44 kB
Hochgeladen:19.08.2011
Ladeanzahl198
Herunterladen
 
XProfan X2
Win7 Home Premium, SP1, AMD Athlon(tm) II Neo K125 Processor

˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...] 
19.08.2011  
 




Jörg
Sellmeyer
Hier auch noch meine Variante zu Fenster schließen:
UserMessages $10
Def CloseDlg(1) (%umessage = $10) And (GetActiveWindow() = &(1))
Cls
Var dlg& = Create("Dialog",%hwnd,"Dialog",100,100,200,400)

While 1

    WaitInput

    If CloseDlg(%hwnd)

        Break

    ElseIf CloseDlg(dlg&)

        DestroyWindow(dlg&)

    EndIf

Wend

 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
19.08.2011  
 



Hallo Stephie,

Unbenannt (19.08.11)
... hat. Aber wie mache ich das für die Zukunft?


Das geht ganz leicht.

Nachdem Du den Quelltext in das Beitragseditorfeld eingefügt hast markierst Du den Quelltext einfach und wählst (wie im folgenden Screenshot abgebildet) "Quelltext" aus. Der markierte Beitragstext wird dann mit [CODE]...[/CODE] umrandet womit er als Quelltext gekennzeichnet ist.





Unbenannt (19.08.11)
(PS: Habe wohl bei der ersten Anfrage meinen Namen vergessen, Hole ich jetzt nach.)


Noch einfacher ist es wenn Du Deinen (Lieblings-)Mitgliedsnamen hier festlegst:  [...] 

Ebenso könntest ein Anzeigebild/ Avatar für Dich festlegen:  [...] 

Das sind alles Optionen unter Mein-XProfan:  [...] 

Dann sieht man automatisch wer der Urheber eines Beitrages ist und dann hast Du auch ein Profil das Du mit weiteren (optionalen) Angaben bereichern kannst.

10 kB
Hochgeladen:19.08.2011
Ladeanzahl0
Herunterladen
4 kB
Hochgeladen:19.08.2011
Ladeanzahl0
Herunterladen
 
19.08.2011  
 




Stephie
Boh Wo fange ich an ....
Also ich habe mich für den Vorschlag von E.T. entschieden, da ich es auch nachvollziehen kann, was für mich wichtig ist.

Tja wenn ich das jetzt mit dem Code und all den anderen tausend Sachen vergessen sollte, dann wäre es ja peinlich bei so vielen Informationen.

DAHER DANKE AN ALLE.
 
19.08.2011  
 



Bist willkommen!

Da Du einen (öffentlichen) Mitgliedsnamen gewählt hast, hast Du (automatisch)

auch ein (öffentliches) Profil:  [...] 
 
19.08.2011  
 



Antworten


Thementitel, max. 100 Zeichen.
 

Systemprofile:

Kein Systemprofil angelegt. [anlegen]

XProfan:

 Beitrag  Schrift  Smilies  ▼ 

Bitte anmelden um einen Beitrag zu verfassen.
 

Themenoptionen

12.623 Betrachtungen

Unbenanntvor 0 min.
Ju15.02.2017
Christof Neuß15.10.2016
RudiB.08.11.2012
Unbenannt15.04.2012
Mehr...

Themeninformationen



Admins  |  AGB  |  Anwendungen  |  Autoren  |  Chat  |  Datenschutz  |  Download  |  Eingangshalle  |  Hilfe  |  Händlerportal  |  Impressum  |  Mart  |  Schnittstellen  |  SDK  |  Services  |  Spiele  |  Suche  |  Support

Ein Projekt aller XProfaner, die es gibt!


Mein XProfan
Private Nachrichten
Eigenes Ablageforum
Themen-Merkliste
Eigene Beiträge
Eigene Themen
Zwischenablage
Abmelden
 Deutsch English Français Español Italia
Übersetzungen

Datenschutz


Wir verwenden Cookies nur als Session-Cookies wegen der technischen Notwendigkeit und bei uns gibt es keine Cookies von Drittanbietern.

Wenn du hier auf unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung von Informationen in unseren Cookies auf XProfan.Net zu.

Weitere Informationen zu unseren Cookies und dazu, wie du die Kontrolle darüber behältst, findest du in unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Ich möchte keinen Cookie