XProfan

Español

Alfred
Wagner

¡Hola Profaner

Zuerst el Code:
Kompilieren Marca Separación

 $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

Problema:
Weiß zufälig alguien,
Yo el MessageBox bekomme si Ok oder Alto angeklickt wurde

danke ya veces en el vorhinein

Grüße
Alfred con Familie

WinXP-Home ,XProfan10

Alfreds ... Freeware : [...]

09.11.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Rolf
Koch

Hi,
no a vergleichen con uno Messagebox!
Also no Nummer, pero el Result zählt (hier pfad1$ gefüllt oder no)
Kompilieren Marca Separación

 $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 Cita Zeilenweise Cita

ReinerKlaas

Hi,
siehe Profano Ayuda a MessageBox:

@MessageBox(S1,S2,N)

S1 : String - Meldungstext

S2 : String - Überschrift

N : Integer - Art el MessageBox

Ergebnis - Integer: gedrückter Knopf

Werte para BUTTONS (N):

1 - OK Alto (~MB_OKCANCEL)

Der en uno MessageBox oder una el vordefinierten Dialoge gedrückte Knopf:

1 - OK
2 -Alto (Cancel)
3 -Alto (Abort)
4 -Wiederholen
5 -Ignorieren
6 -Sí
7 -Nein

Gruß
Reiner

XProfan 10.0a , Windows XP/Vista32

09.11.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Alfred
Wagner

Jau Rolf Gracias

Vor allem para el ausführlich Descripción.

Zitat:
no a vergleichen con uno Messagebox!
Also no Nummer, pero el Result zählt (hier pfad1$ gefüllt oder no)

Hab wohl el Wald antes lauter Bäumen no gesehen

Hi Reiner
danke para el Referencia a Ayuda!

Aber Yo glaube sin Rolfs (Rocs) Code hätte Yo el no hingekriegt.
Kompilieren Marca Separación

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)

Tal vez podría uno algo como con en el Ayuda con einbauen?
Vor allem con uno kurzen Descripción,
If (pfad1$ <> ) Sí Button
( <> ) el para beispiel verstehe Yo no?

Grüße
Alfred con Familie

WinXP-Home ,XProfan10

Alfreds ... Freeware : [...]

09.11.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

[quote:d00d283087]En vordefinierten Dialogen se entweder 1 para OK oder 2 para Alto zurückgegeben.[/quote:d00d283087]
Ebenfalls de el Profano-Ayuda

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

09.11.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Rolf
Koch

@Alfred:

If (pfad1$ <> ) Sí Button
( <> ) el para beispiel verstehe Yo no?

Ganz simplemente:
Wird el Sí Button geklickt, así Su gewählte Variable (hier pfad1$) con el ausgewählten Directorio bestückt. Como Usted sehen kannst es De todos modos irgendein Directorio en Aufruf des Dialoges markiert.
Also si sí klickst hättest Usted para Ejemplo en el Pfad1$ C

ROFAN
hier also sería el
If (pfad1$<>) greifen, como el Variable no leer es (). Also grösser kleiner leer!
Ansonsten sería el ELSE greifen, porque lo sí no leer es y pfad1$ con Deiner Wahl bestückt es.
Horst ha natürlich auch Recht, pero yo habe siempre esta Método con Variablenabfragen bevorzugt en Choosedir, como uno sí sowieso con el Cuerdas arbeitet.

09.11.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Alfred
Wagner

Gracias euch beiden

<> el es größer oder kleiner
y leer

otra vez qué gelernt

bien el lo el Comunidad son

Grüße
Alfred con Familie

WinXP-Home ,XProfan10

Alfreds ... Freeware : [...]

09.11.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita