Français
Forum

Brauche la fois wieder eure Aider (Listbox erstellen)

 

Stephie
Erstmal une s'il te plaît, comment lieu je ici den Code comme liste dar ?
s'il te plaît meinen wandeln, qui cela droite en supplément hat, DANKE.
So eh bien trop meinem Anliegn. j'appelle sur mon Menu une Ausgabe sur, dans qui bestimmte Sachen angezeigt volonté devoir. cela la fenêtre soll sur Tastendruck ou bien sur une Button geschlossen volonté, cela Hauptfenster mais devrait pas dabei geschlossen volonté.
Habe viel gelesen et rumprobiert, so dass je maintenant vraie pas plus weis quoi je faire soll. (chez mir schloss sich ensuite aussi cela Hauptfenster, habe cette partie wieder gelöscht sicherheitshalber).

ici mon Code :
'----- ini Ausgabe -----
Proc ini-Ausgabe

    Déclarer Listbox%,Dlg%
    SetTrueColor 1
    Cls @RGB(255,255,255)
    Dlg% = @Créer("Dialog",%Hwnd,Titel$,300,100,400,500)
    ListBox%=@CreateListBox(Dlg%,»,10,10,370,410)
    @AddStrings(ListBox%,"Familie im Netz Version 1.0 portable")
    @AddStrings(ListBox%,"- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -")
    @AddStrings(ListBox%," ")
    @AddStrings(ListBox%,"ini - Zuweisungen")
    @AddStrings(ListBox%,"Fin.ini = "+Prini$)
    @AddStrings(ListBox%,"Sprache = "+Menuini$)
    @AddStrings(ListBox%," ")
    @AddStrings(ListBox%,"Ordner - Zuweisungen")
    @AddStrings(ListBox%,Backup$)
    @AddStrings(ListBox%,Beispiel$)
    @AddStrings(ListBox%,Bilder$)
    @AddStrings(ListBox%,Dossier$)
    @AddStrings(ListBox%,Dummys$)
    @AddStrings(ListBox%,Erweiterungen$)
    @AddStrings(ListBox%,Fonts$)
    @AddStrings(ListBox%,Hintergrundbild$)
    @AddStrings(ListBox%,cadre$)
    @AddStrings(ListBox%,Sprachen$)
    @AddStrings(ListBox%,Tafelbilder$)
    @AddStrings(ListBox%,Vorlagen$)
    @AddStrings(ListBox%,Wiki$)

ENDPROC

 
18.08.2011  
 




Julian
Schmidt
si je toi richtig verstehe veux du simple seulement un Dialog-la fenêtre schließen sans cela Hauptfenster avec zuschließen!?
declare Dlg%
Utilisateur Messages $10
Windowstyle 24
Fenêtre 100,200-300,250
ini-Ausgabe

tandis que 1

    waitinput

    si CloseWindow(Dlg%)

        destroywindow(Dlg%)

    elseif CloseWindow(%hwnd)

        pause

    Endif

Endwhile

end

Proc ini-Ausgabe

    Déclarer Listbox%
    SetTrueColor 1
    Cls @RGB(255,255,255)
    Dlg% = @Créer("Dialog",%Hwnd,»,300,100,400,500)
    ListBox%=@Créer(ListBox,Dlg%,»,10,10,370,410)
    @AddStrings(ListBox%,"Familie im Netz Version 1.0 portable")
    @AddStrings(ListBox%,"- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -")
    @AddStrings(ListBox%," ")
    @AddStrings(ListBox%,"ini - Zuweisungen")
    @AddStrings(ListBox%,"Fin.ini = "+»)
    @AddStrings(ListBox%,"Sprache = "+»)
    @AddStrings(ListBox%," ")
    @AddStrings(ListBox%,"Ordner - Zuweisungen")
    @AddStrings(ListBox%,»)
    @AddStrings(ListBox%,»)
    @AddStrings(ListBox%,»)
    @AddStrings(ListBox%,»)
    @AddStrings(ListBox%,»)
    @AddStrings(ListBox%,»)
    @AddStrings(ListBox%,»)
    @AddStrings(ListBox%,»)
    @AddStrings(ListBox%,»)
    @AddStrings(ListBox%,»)
    @AddStrings(ListBox%,»)
    @AddStrings(ListBox%,»)
    @AddStrings(ListBox%,»)

ENDPROC

Proc CloseWindow

    Paramètres hdl&
    var x%=0

    si %UMessage = $10

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

    Endif

    Retour x%

ENDPROC

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

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




Stephie
So erstmal merci pour den qui den Code so fertig gemacht hat. mais comment fais je cela pour qui Zukunft ? quoi muss je là Eingeben avec cela pas toujours son cela pour mich faire müsst.
eh bien trop Dir Julian57, j'appelle de meinem Hauptfenster sur dessen Menu cet Dialogfenster sur. après que je regarder peux, cela alles encore i.O. ist, voudrais je par einfachen Druck einer bouton (z.B. waitinput) ou bien sur une Button qui unten im Dialog-la fenêtre erscheinen pourrait, cette Dialog schliessen, um ensuite im Hauptfenster weiterarbeiten trop peut.
avec dem Waitinput passiert rien, avec dem Button (si Je l' einbaue) schliesse je aussi cela Hauptfenster.
Es sollte alors une Routine incorporé volonté, qui meines erachtens dans dem Proc ini-Ausgabe jusqu'à ENDPROC stehen devrait.

Salut Stephie
(PS: Habe wohl chez qui ersten Anfrage meinen Namen oublier qc, Hole je maintenant pour.)
 
19.08.2011  
 




E.T.
la fois sans Messages trop "verbiegen" et sans Extra-Proc:
CLS'Hauptfenster erstellen
var Btn1& = Créer("Button",%HWnd,,"ini-Ausgabe aufrufen",10,10,200,25)'selbsterklärend
var ProgEnde% = 0

WhileNot ProgEnde%'attendre...

    waitinput

    Si @Clicked(Btn1&)

        ini_Ausgabe'Aufruf ini-Ausgabe, si sur cette Button ou bien menu ist deine l'affaire

    ElseIf %Key = 2'Schliessen-Croix im Hauptfenster

        Progende% = 100'Programme finissons

    EndIF

Endwhile

end

Proc ini_Ausgabe'KEIN BINDESTRICH!!!

    Déclarer Listbox%,Dlg%, Titel$'div. declaration fehlt, hab den reste unten comme String pris
    Titel$ = "Testbox"
    SetTrueColor 1
    Cls @RGB(255,255,255)
    Fenêtre Style 1024
    Dlg% = @Créer("Dialog",%Hwnd,Titel$,300,100,400,500)
    ListBox%=@CreateListBox(Dlg%,»,10,10,370,410)
    @AddStrings(ListBox%,"Familie im Netz Version 1.0 portable")
    @AddStrings(ListBox%,"- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -")
    @AddStrings(ListBox%," ")
    @AddStrings(ListBox%,"ini - Zuweisungen")
    @AddStrings(ListBox%,"Fin.ini = "+"Prini$")
    @AddStrings(ListBox%,"Sprache = "+"Menuini$")
    @AddStrings(ListBox%," ")
    @AddStrings(ListBox%,"Ordner - Zuweisungen")
    @AddStrings(ListBox%,"Backup$")
    @AddStrings(ListBox%,"Beispiel$")
    @AddStrings(ListBox%,"Bilder$")
    @AddStrings(ListBox%,"Datei$")
    @AddStrings(ListBox%,"Dummys$")
    @AddStrings(ListBox%,"Erweiterungen$")
    @AddStrings(ListBox%,"Fonts$")
    @AddStrings(ListBox%,"Hintergrundbild$")
    @AddStrings(ListBox%,"Rahmen$")
    @AddStrings(ListBox%,"Sprachen$")
    @AddStrings(ListBox%,"Tafelbilder$")
    @AddStrings(ListBox%,"Vorlagen$")
    @AddStrings(ListBox%,"Wiki$")
    var Ini_Ende_Btn& = @Créer("Button",Dlg%,"ini-Ausgabe beenden",10,@Height(Dlg%)-30,300,25)'Button zum finissons qui Ausgabe
    var Ini_Ende% = 0
    Enablewindow %Hwnd,0'Hauptfenster désactiver

    WhileNot Ini_Ende%

        waitinput'attendre, jusqu'à Dlg% sur Button geschlossen wird
        Cas @Clicked(Ini_Ende_Btn&): Ini_Ende% = 1

    Endwhile

    DestroyWindow(Dlg%)'Dialog anéantir
    Enablewindow %Hwnd,1'Hauptfenster wieder aktivieren
    Setwindowpos %HWnd = %WinLeft,%WinTop;0'la fenêtre wieder dans den Vordergrund holen

ENDPROC


Hoffe, cela hilft quelque chose... chez mir funktioniert cela 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
allô Stephie,

j'étais qui Bösewicht gewesen, qui sich à Deinem Code vergriffen hat.

avant den Code mets Du [~CODE] et après [~/CODE] - sans "~".

Salut
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

avant den Code mets Du [~CODE] et après [~/CODE] - sans "~".


ou bien encore einfacher: sur diesem Beitragstextedit ist une Leiste avec "Beitrag|Schrift|Smilies" et am Ende un kleiner flèche. Den klick la fois à...
 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
19.08.2011  
 




Julian
Schmidt
Dietmar Horn (19.08.11)
avant den Code mets Du [~CODE] et après [~/CODE] - sans "~".


Simple sur cela Menu aufzurufen...



[OFFTOPIC]hmmm.....Jörg était plus rapide [/OFFTOPIC]

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

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




Jörg
Sellmeyer
ici aussi encore mon variante trop la fenêtre schließen:
Utilisateur Messages $10
Def CloseDlg(1) (%umessage = $10) And (GetActiveWindow() = &(1))
Cls
Var dlg& = Créer("Dialog",%hwnd,"Dialog",100,100,200,400)

Tandis que 1

    WaitInput

    Si CloseDlg(%hwnd)

        Pause

    ElseIf CloseDlg(dlg&)

        DestroyWindow(dlg&)

    EndIf

Wend

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



allô Stephie,

Unbenannt (19.08.11)
... hat. mais comment fais je cela pour qui Zukunft?


cela allez entier léger.

après que Du den Voir le texte source dans cela Beitragseditorfeld eingefügt la hâte markierst Du den Voir le texte source simple et wählst (comment im folgenden Screenshot abgebildet) "Quelltext" aus. qui markierte Beitragstext wird ensuite avec [CODE]...[/CODE] umrandet womit il comme Voir le texte source gekennzeichnet ist.





Unbenannt (19.08.11)
(PS: Habe wohl chez qui ersten Anfrage meinen Namen oublier qc, Hole je maintenant pour.)


encore einfacher ist es si Du Deinen (Lieblings-)Mitgliedsnamen ici festlegst:  [...] 

Ebenso könntest un Anzeigebild/ Avatar pour toi festlegen:  [...] 

ce sont alles Optionen sous mon-XProfan:  [...] 

ensuite sieht on automatisch qui qui Urheber eines Beitrages ist et ensuite la hâte Du aussi un Profil cela Du avec weiteren (optionalen) Angaben bereichern peux.

10 kB
Hochgeladen:19.08.2011
Downloadcounter0
Download
4 kB
Hochgeladen:19.08.2011
Downloadcounter0
Download
 
19.08.2011  
 




Stephie
Boh wohin fange je à ....
alors j'ai mich pour den Vorschlag de E.T. entschieden, là je es aussi nachvollziehen peux, quoi pour mich important ist.

Tja si je cela maintenant avec dem Code et espace den anderen mille Sachen oublier qc sollte, ensuite wäre es oui pénible chez so vielen Informationen.

DAHER DANKE AN ALLE.
 
19.08.2011  
 



es willkommen!

là Du une (öffentlichen) Mitgliedsnamen gewählt la hâte, la hâte Du (automatisch)

aussi un (öffentliches) Profil:  [...] 
 
19.08.2011  
 



répondre


Topictitle, max. 100 marque.
 

Systemprofile:

ne...aucune Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

s'il te plaît s'inscrire um une Beitrag trop verfassen.
 

Options du sujet

12.695 Views

Untitledvor 0 min.
Ju15.02.2017
Christof Neuß15.10.2016
RudiB.08.11.2012
Untitled15.04.2012
plus...

Themeninformationen



Admins  |  AGB  |  Applications  |  Auteurs  |  Chat  |  protection des données  |  Télécharger  |  Entrance  |  Aider  |  Merchantportal  |  Empreinte  |  Mart  |  Interfaces  |  SDK  |  Services  |  Jeux  |  cherche  |  Support

un projet aller XProfaner, qui il y a!


Mon XProfan
Privé Nouvelles
Eigenes Ablageforum
Sujets-La liste de voeux
Eigene Posts
Eigene Sujets
Zwischenablage
Annuler
 Deutsch English Français Español Italia
Traductions

protection des données


Wir verwenden Cookies seulement comme Session-Cookies à cause de qui technischen Notwendigkeit et chez uns gibt es aucun Cookies de Drittanbietern.

si du ici sur unsere Webseite klickst ou bien navigierst, stimmst du unserer Erfassung de Informationen dans unseren Cookies sur XProfan.Net trop.

Weitere Informationen trop unseren Cookies et en supplément, comment du qui Kontrolle par-dessus behältst, findest du dans unserer nachfolgenden Datenschutzerklärung.


d'accordDatenschutzerklärung
je voudrais keinen Cookie