Français
Source/ Codesnippets

Erstellen Menüleiste

 

Source wurde am 15.07.2007 aus qui MMJ-Quellcodesammlung (Dietmar Horn) dans qui Babyklappe sur XProfan.Com abgelegt:
Menüleiste erstellen
Lauffähig ab Profan-Version 5.0
-----------------------------------------------
titel:    Menüleiste
autor:    Rolf Koch - ROKO-SOFTWARE
e-mail:   webmaster@rokosoft.de
homepage: http://www.rokosoft.de
date:    10.01.2001
-----------------------------------------------
Erklärung:
----------
comment wird un menu erstellt?
comment frage je qui individuel Punkte ab?
---------------------------------------
Déclarer ende%				Variable vorbereiten
Fenêtre 10,10 - 500,300			comment toujours la fenêtre erstellen
Windowtitle Menüs erstellen/auswerten	Fenstertitel
ici wird qui Menüleiste erstellt:
cela & bedeutet: qui pour dem & marque kommende Buchstabe
wird unterstrichen et peux ensuite avec dem Buchstaben sur
qui clavier cela gleiche bewirken et z.B. Dossier öffnen . Run
Popup &Dossier				entier à gauche Obereintrag Dossier
AppendMenu 1,&öffnen		Untereintrag (Dossier) öffnen
SEPARATOR				une Trennlinie
AppendMenu 2,&schließen		Untereintrag (Dossier) schließen
AppendMenu 3,&Programmende		Programmende (Dossier) Programmende
Popup &Aider				prochaine Eintrag Leiste: Aider
SubPopup &Infos			Untereintrag (Aider) Infos
AppendMenu 4,&Programme		Untereintrag zum Untereintrag Infos :-) Programme
AppendMenu 5,&Autor		Untereintrag zum Untereintrag Infos :-) Autor
EndSub

Whilenot ende%				solange Endevariable = 0

    waitinput				Wartet sur souris ou bien bouton
    ici eh bien qui Auswertungen qui Menüpunkte (entier simple)

    IF @Menuitem(254)			Ausnahme 254 ist cela (c) marque

        wird ca angeklickt peux on une
        Infobox erstellen ou bien so quoi.
        Im Interpreter venez mais toujours encore
        d'abord qui Hinweis zum Profaninterpreter
        cls				Bildschirm effacer
        PRINT Demo zum Menüprogramm	Ausgabe Text Bildschirm

    Elseif @Menuitem (1)			Dossier öffnen gewählt

        cls
        Imprimer maintenant serait z.B. qui Dateiwahldialog ouvert

    Elseif @Menuitem (2)			Dossier schließen gewählt

        cls
        Imprimer ici pourrait on qui aktuelle Dossier wieder schließen

    Elseif @Menuitem (3)			Programmende gewählt

        cls
        Imprimer eh bien serait cela Programme finissez
        Imprimer ensuite devrait im Quellcode stehen
        Imprimer let ende%=1
        let ende%=1			wird cela Hochkomma entfernt
        wirklich Programmende,  Schleifen
        bedingung gegeben ist ende%=1

    Elseif @Menuitem (4)			Aider/Infos/Programme gewählt

        cls
        Imprimer cet Programme ist zur Demo menu gedacht

    Elseif @Menuitem (5)			Aider/Infos/Autor gewählt

        cls
        Imprimer (c) by Rolf Koch - Roko-Software 2001
        ENDIF					Ende qui Abfrage
        Wend					Zurück trop Whilenot ende% (jusqu'à Programmende)
 
16.07.2007  
 



Zum Quelltext


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

1.615 Views

Untitledvor 0 min.
Thomas Freier30.01.2024
Georg Teles20.08.2019
Rolf01.02.2018
rafl01.09.2014
plus...

Themeninformationen

cet Thema hat 1 participant:

unbekannt (1x)


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