XProfan

Italia

Alfred
Wagner

Hallo Profaner

Zuerst der Code:
Kompilieren Markieren Separieren

 $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:
Weiß zufälig jemand,
wie ich die MessageBox bekomme ob Ok oder Abbrechen angeklickt wurde

danke schon mal im vorhinein

Grüße
Alfred mit Familie

WinXP-Home ,XProfan10

Alfreds ... Freeware : [...]

09.11.2006 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Rolf
Koch

Hi,
nicht zu vergleichen mit einer Messagebox!
Also keine Nummer, sondern das Result zählt (hier pfad1$ gefüllt oder nicht)
Kompilieren Markieren Separieren

 $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 Zitat

Absatzweise Citazione Zeilenweise Citazione

ReinerKlaas

Hi,
siehe Profan Aiuto zur MessageBox:

@MessageBox(S1,S2,N)

S1 : String - Meldungstext

S2 : String - Überschrift

N : Integer - Art der MessageBox

Ergebnis - Integer: gedrückter Knopf

Werte per BUTTONS (N):

1 - OK Abbrechen (~MB_OKCANCEL)

Der in einer MessageBox oder einem der vordefinierten Dialoge gedrückte Knopf:

1 - OK
2 -Abbrechen (Cancel)
3 -Abbrechen (Abort)
4 -Wiederholen
5 -Ignorieren
6 -Ja
7 -Nein

Gruß
Reiner

XProfan 10.0a , Windows XP/Vista32

09.11.2006 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Alfred
Wagner

Jau Rolf Danke

Vor allem per die ausführlich Beschreibung.

Zitat:
nicht zu vergleichen mit einer Messagebox!
Also keine Nummer, sondern das Result zählt (hier pfad1$ gefüllt oder nicht)

Hab wohl den Wald vor lauter Bäumen nicht gesehen

Hi Reiner
danke per den Hinweis zur Aiuto!

Aber ich glaube ohne Rolfs (Rocs) Code hätte ich das nicht hingekriegt.
Kompilieren Markieren Separieren

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)

Vielleicht potuto man sowas mit in die Aiuto mit einbauen?
Vor allem mit einer kurzen Beschreibung,
If (pfad1$ <> ) Ja Button
( <> ) das zum beispiel verstehe ich nicht?

Grüße
Alfred mit Familie

WinXP-Home ,XProfan10

Alfreds ... Freeware : [...]

09.11.2006 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

[quote:d00d283087]Bei vordefinierten Dialogen wird entweder 1 per OK oder 2 per Abbrechen zurückgegeben.[/quote:d00d283087]
Ebenfalls aus der Profan-Aiuto

CASE %Button = 1 : OK wurde gedrückt
CASE %Button = 2 : Abbrechen wurde gedrückt

09.11.2006 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Rolf
Koch

@Alfred:

If (pfad1$ <> ) Ja Button
( <> ) das zum beispiel verstehe ich nicht?

Ganz einfach:
Wird der Ja Button geklickt, so wird Deine gewählte Variable (hier pfad1$) mit dem ausgewählten Verzeichnis bestückt. Wie Du sehen kannst ist auch immer irgendein Verzeichnis bei Aufruf des Dialoges markiert.
Also wenn Du ja klickst hättest Du zum Beispiel im Pfad1$ C

ROFAN
hier also würde die
If (pfad1$<>) greifen, da die Variable nicht leer ist (). Also grösser kleiner leer!
Ansonsten würde das ELSE greifen, weil es ja nicht leer ist und pfad1$ mit Deiner Wahl bestückt ist.
Horst hat naturalmente auch Recht, aber ich habe immer diese Methode mit Variablenabfragen bevorzugt bei Choosedir, da man ja sowieso mit den Strings arbeitet.

09.11.2006 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Alfred
Wagner

Danke euch beiden

<> das ist größer oder kleiner
und leer

wieder was gelernt

gut das es die Community gibt

Grüße
Alfred mit Familie

WinXP-Home ,XProfan10

Alfreds ... Freeware : [...]

09.11.2006 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione