XProfan

Français

Alfred
Wagner

allô Profaner

d'abord qui Code:
Kompilieren Marque Séparation

 $P+
SetErrorLevel 0
DEF GETSYSCOLOR(1) !USER32,GetSysColor
DECLARE BUTTON1&,Pfad1$

PROC BUTTON1_ONCLICK

    GETMESSAGE
    Pfad1$ = @ChooseDir$(Wählen Sie einen Ordner aus:)

    If (%Button = 6) Ja Button

        MessageBox
        (Ok wurde gedrückt,Hinweis !,36)

    Elseif (%Button = 7) Nein Button

        MessageBox
        (Abbrechen wurde gedrückt,Hinweis !,36)

    Endif

ENDPROC

WINDOWSTYLE 31
WINDOWTITLE Neues Fenster
WINDOW SUB(DIV(%MAXX,2),DIV(376,2)),SUB(DIV(%MAXY,2),DIV(161,2))-376,161
SETTRUECOLOR 1
DECLARE ENDE%
CLS GETSYSCOLOR(15)
USEFONT MS Sans Serif,13,0,0,0,0
SETDIALOGFONT 1
BUTTON1& = CREATE(BUTTON,%HWND,ChooseDir,0180,0068,0153,0030)
SETFOCUS(%HWND)

WHILENOT ENDE%

    WAITINPUT

    If @EQU(%KEY,2)

        LET ENDE%= 1

    ELSEIF @EQU(%KEY,4)

    ELSEIF GETFOCUS(BUTTON1&) BUTTON

        BUTTON1_ONCLICK

    ENDIF

WEND

Problem:
sais zufälig quelqu'un,
comment je qui MessageBox bekomme si Ok ou bien démolir angeklickt wurde

merci déjà la fois im vorhinein

Grüße
Alfred avec la famille

WinXP-Home ,XProfan10

Alfreds ... Freeware : [...]

09.11.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Rolf
Koch

Hi,
pas trop comparer avec einer Messagebox!
alors aucun numéro, mais cela Result zählt (ici pfad1$ pleine ou bien pas)
Kompilieren Marque Séparation

 $P+
SetErrorLevel 0
DEF GETSYSCOLOR(1) !USER32,GetSysColor
DECLARE BUTTON1&,Pfad1$

PROC BUTTON1_ONCLICK

    GETMESSAGE
    Pfad1$ = @ChooseDir$(Wählen Sie einen Ordner aus:)

    If (pfad1$ <> ) Ja Button

        MessageBox
        (Ok wurde gedrückt,Hinweis !,36)
        Else Nein Button
        MessageBox
        (Abbrechen wurde gedrückt,Hinweis !,36)

    Endif

ENDPROC

WINDOWSTYLE 31
WINDOWTITLE Neues Fenster
WINDOW SUB(DIV(%MAXX,2),DIV(376,2)),SUB(DIV(%MAXY,2),DIV(161,2))-376,161
SETTRUECOLOR 1
DECLARE ENDE%
CLS GETSYSCOLOR(15)
USEFONT MS Sans Serif,13,0,0,0,0
SETDIALOGFONT 1
BUTTON1& = CREATE(BUTTON,%HWND,ChooseDir,0180,0068,0153,0030)
SETFOCUS(%HWND)

WHILENOT ENDE%

    WAITINPUT

    If @EQU(%KEY,2)

        LET ENDE%= 1

    ELSEIF @EQU(%KEY,4)

    ELSEIF GETFOCUS(BUTTON1&) BUTTON

        BUTTON1_ONCLICK

    ENDIF

WEND

09.11.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

ReinerKlaas

Hi,
siehe Profan Aider zur MessageBox:

@MessageBox(S1,S2,N)

S1 : String - Meldungstext

S2 : String - Überschrift

N : Integer - Art qui MessageBox

Ergebnis - Integer: gedrückter Knopf

Werte pour BUTTONS (N):

1 - OK démolir (~MB_OKCANCEL)

qui dans einer MessageBox ou bien einem qui vordefinierten Dialoge gedrückte Knopf:

1 - OK
2 -démolir (Cancel)
3 -démolir (Abort)
4 -Wiederholen
5 -ignorer
6 -oui
7 -non

Gruß
Reiner

XProfan 10.0a , Windows XP/Vista32

09.11.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Alfred
Wagner

Jau Rolf merci

avant allem pour qui en détails Beschreibung.

citation:
pas trop comparer avec einer Messagebox!
alors aucun numéro, mais cela Result zählt (ici pfad1$ pleine ou bien pas)

Hab wohl den forêt avant lauter Bäumen pas gesehen

Hi Reiner
merci pour den Hinweis zur Aider!

mais je crois sans Rolfs (Rocs) Code hätte je cela pas hingekriegt.
Kompilieren Marque Séparation

Pfad1$ = @ChooseDir$(Wählen Sie einen Ordner aus:)

If (pfad1$ <> ) Ja Button

    MessageBox
    (Ok wurde gedrückt,Hinweis !,36)
    Else Nein Button
    MessageBox
    (Abbrechen wurde gedrückt,Hinweis !,36)

peut-être pourrait on quelque chose comme avec dans qui Aider avec einbauen?
avant allem avec einer kurzen Beschreibung,
Si (pfad1$ <> ) oui Button
( <> ) cela par exemple verstehe je pas?

Grüße
Alfred avec la famille

WinXP-Home ,XProfan10

Alfreds ... Freeware : [...]

09.11.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

[quote-part:d00d283087]chez vordefinierten Dialogen wird entweder 1 pour OK ou bien 2 pour démolir retour.[/quote-part:d00d283087]
également aus qui Profan-Aider

CASE %Button = 1 : OK wurde gedrückt
CASE %Button = 2 : démolir wurde gedrückt

09.11.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Rolf
Koch

@Alfred:

Si (pfad1$ <> ) oui Button
( <> ) cela par exemple verstehe je pas?

entier simple:
Wird qui oui Button geklickt, so wird Votre gewählte Variable (ici pfad1$) avec dem ausgewählten Verzeichnis bestückt. comment Du voyons peux ist De toute façon irgendein Verzeichnis chez Aufruf des Dialoges markiert.
alors si Du oui klickst hättest Du zum Beispiel im Pfad1$ C

ROFAN
ici alors serait qui
Si (pfad1$<>) greifen, là qui Variable pas vide ist (). alors grösser kleiner vide!
Ansonsten serait cela ELSE greifen, weil es oui pas vide ist et pfad1$ avec Deiner l'élection bestückt ist.
Horst hat naturellement aussi droite, mais j'ai toujours cet Methode avec Variablenabfragen bevorzugt chez Choosedir, là on oui sowieso avec den Cordes arbeitet.

09.11.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Alfred
Wagner

merci euch beiden

<> c'est größer ou bien kleiner
et vide

wieder quoi gelernt

bien cela es qui Community gibt

Grüße
Alfred avec la famille

WinXP-Home ,XProfan10

Alfreds ... Freeware : [...]

09.11.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation