| |
|
|
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
|
|
|
| |
|
|
|
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
|
|
|
| |
|
|
|
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.) |
|
|
| |
|
|
|
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] |
|
|
| |
|
|
|
Jörg Sellmeyer | ici aussi encore mon variante trop la fenêtre schließen:
|
|
|
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 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. |
|
|
| |
|
|
|
| es willkommen!
là Du une (öffentlichen) Mitgliedsnamen gewählt la hâte, la hâte Du (automatisch)
aussi un (öffentliches) Profil: [...] |
|
|
| |
|
|