XProfan

Deutsch

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 zitieren Zeilenweise zitieren

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 zitieren Zeilenweise zitieren

ReinerKlaas

Hi,
siehe Profan Hilfe zur MessageBox:

@MessageBox(S1,S2,N)

S1 : String - Meldungstext

S2 : String - Überschrift

N : Integer - Art der MessageBox

Ergebnis - Integer: gedrückter Knopf

Werte für 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 zitieren Zeilenweise zitieren

Alfred
Wagner

Jau Rolf Danke

Vor allem für 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 für den Hinweis zur Hilfe!

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)

Endif

Vielleicht könnte man sowas mit in die Hilfe 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 zitieren Zeilenweise zitieren

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

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

09.11.2006 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

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 natürlich 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 zitieren Zeilenweise zitieren

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 zitieren Zeilenweise zitieren