(1.123)  Registro

Español
Foro

Chociebox voluntad no como Yo voluntad

 

liveFamilie
¡Hola,
habe con Rokos Objektcreator algo producido. Bajo anderem es auch una Chociebox esta.
Doch si yo esta anklicke y "andere" auswähle se una Messagebox kommen "nicht en dieser Version" y danach otra vez en "deutsch" springen.
Tja el Messagebox kommt, aber el war lo entonces auch ya, nichts va mehr
Auswahl technisch.
Posesiones viel gelesen en el Foro, Handbuch usw. aber irgendwie finde Yo, el
passenden "Zauberspruch" no mich de meiner Denkblockade erlöst.

Daher hoffe Yo ahora veces en eure Ayuda.

Saludo
Toni
KompilierenMarcaSeparación
SetErrorLevel 0
'********************** HINWEISE ********************************
' CODE ERZEUGT MIT ROKO'S OBJECT CREATOR 4.7
' DATUM  04.08.2012    um  15:01 Uhr
' VERWENDETE PROFANVERSION IST 9.1-NT XPROFAN
' CODE ERSTELLT UNTER WINDOWS VISTA
' !!! Dieser Code wird von Roc immer neu erzeugt!!!
' !!! Erst bearbeiten, wenn alle Objekte erzeugt wurden !!!
' !!! Verändern Sie ggf. feste Pfade in variable Pfade
'********************** DATEN ***********************************
'>>>>> AB HIER KOPIEREN UND IN EIGENEN CODE EINBINDEN <<<<<<<<<<<<
'----- Programm Variabeln festlegen -----
'----- Programmverzeichnis festlegen (portable) -----
Declare Programm$
Programm$ = GetDir$("@")
'----- Programm ini-Pfad festlegen -----
Declare Progini$
Progini$ = Programm$+"\\Programm.ini"
SETTRUECOLOR 1

PROC DIALOG'---------------------------------------------------------------------------> Dialoganfang

    DECLARE DLG&, DIALOGENDE%
    DECLARE CHOICEBOX1&, Zeile$
    DECLARE BUTTON1&
    DECLARE BUTTON2&
    DECLARE BUTTON3&
    DECLARE BUTTON4&
    DECLARE BUTTON5&
    DLG&=CREATE("DIALOG",%HWND,"Programm",SUB(DIV(%MAXX,2),DIV(500,2)),SUB(DIV(%MAXY,2),DIV(420,2)),500,420)
    USEFONT "Ariel",13,0,0,0,0
    SETDIALOGFONT 1

    PROC DLG_REFRESH

        SETAUTOPAINT 2
        STARTPAINT DLG&
        CLS RGB(252,255,202)
        LoadSizedBmp Programm$+"\\Programm.BMP",0000,0000-0090,0400;0
        TextColor @RGB(15,15,31),-1
        UseFont "Ariel", 14, 0, 0, 0, 0
        Drawtext 127, 40, "Sprache / Language"
        ShowWindow (BUTTON1&,0)
        ShowWindow (BUTTON1&,1)
        ShowWindow (BUTTON2&,0)
        ShowWindow (BUTTON2&,1)
        ShowWindow (BUTTON3&,0)
        ShowWindow (BUTTON3&,1)
        ShowWindow (BUTTON4&,0)
        ShowWindow (BUTTON4&,1)
        ShowWindow (BUTTON5&,0)
        ShowWindow (BUTTON5&,1)
        ShowWindow (CHOICEBOX1&,0)
        ShowWindow (CHOICEBOX1&,1)
        EndPaint
        SETAUTOPAINT 0

    ENDPROC

    USEFONT "Ariel",12,0,0,0,0
    CHOICEBOX1& =@Control("ComboBox","",$50000003,0,0,0,0,DLG&,1001,%hinstance)
    BUTTON1& =@CREATE("BUTTON",DLG&,"Button oben",0197,0200,0171,0030)
    BUTTON2& =@CREATE("BUTTON",DLG&,"Button mitte",0197,0240,0171,0030)
    BUTTON3& =@CREATE("BUTTON",DLG&,"Button unten",0197,0280,0171,0030)
    BUTTON4& =@CREATE("BUTTON",DLG&,"Hilfe",0197,0320,0070,0030)
    BUTTON5& =@CREATE("BUTTON",DLG&,"Abbruch",0297,0320,0070,0030)
    AddChoice(CHOICEBOX1&,"deutsch / germany")
    AddChoice(CHOICEBOX1&,"englisch / english")
    AddChoice(CHOICEBOX1&,"andere ... / other ...")
    SetWindowPos CHOICEBox1& = 0127,0057-0200,0210
    @sendmessage(CHOICEBOX1&,$14E,0,0)
    SETFOCUS(DLG&)
    DLG_REFRESH
    LET DIALOGENDE%=0

    WHILENOT DIALOGENDE%

        WAITINPUT
        Declare SID%

        If equ(%KEY,2)

            LET DIALOGENDE%= 1

        ELSEIF %WMPAINT

            DLG_REFRESH

        ELSEIF GETFOCUS(BUTTON1&)'BUTTON

        ELSEIF GETFOCUS(BUTTON2&)'BUTTON

            MessageBox("Ist in dieser Version nicht vorgesehen.","Programm",64)

        ELSEIF GETFOCUS(BUTTON3&)'BUTTON

            MessageBox("Ist in dieser Version nicht vorgesehen.","Programm",64)

        ELSEIF GETFOCUS(BUTTON4&)'BUTTON Hilfe

            MessageBox("Programm Hilfe","Programm - Hilfe",64)

        ELSEIF GETFOCUS(BUTTON5&)'BUTTON Abbruch

            End

        ELSEIF GetText$(CHOICEBOX1&) = "deutsch / germany"'CHOICEBOX

            SID% = 1031
            Print SID%+_A1

        ELSEIF GetText$(CHOICEBOX1&) = "englisch / english"'CHOICEBOX

            SID% = 1033
            Print SID%+_A1

        ELSEIF GetText$(CHOICEBOX1&) = "andere ... / other ..."'CHOICEBOX

            MessageBox("Ist in dieser Version nicht vorgesehen.","Programm / Language",64)

        ENDIF

    WEND

    DESTROYWINDOW(DLG&)

ENDPROC'--------------------------------------------------------------------------------> Dialogende

SETAUTOPAINT 2
'>>>>> HIER KOPIERENDE FÜR EIGENEN CODEEINBAU <<<<<<<<<<<<<<<<<<<<
'Das folgende Hauptfenster ist nur zum Testen:
WINDOWTITLE "DUMMY HAUPTFENSTER"
WINDOWSTYLE 63
WINDOW sub(%maxx,300),10-280,80
CLS RGB(0,0,0)
Color 10,0
PRINT "Bitte aufs Systemmenükre
cken " DIALOG'Diálogo aufrufen!
 
XProfan 9
"Profan das Besondere"
was auch in einem gewissen Alter noch Spass macht und Fit hält.
23.08.2012  ▲
 




Dieter
Zornow
En me kommt sólo una Fehlermeldung _A1 no declariert. Mach deinen Code sólo veces lauffähig.
 
XProfan X2
Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2
23.08.2012  ▲
 




Detlef
Jagolski
So debería lo ir.
KompilierenMarcaSeparación
SetErrorLevel 0
'********************** HINWEISE ********************************
' CODE ERZEUGT MIT ROKO'S OBJECT CREATOR 4.7
' DATUM  04.08.2012    um  15:01 Uhr
' VERWENDETE PROFANVERSION IST 9.1-NT XPROFAN
' CODE ERSTELLT UNTER WINDOWS VISTA
' !!! Dieser Code wird von Roc immer neu erzeugt!!!
' !!! Erst bearbeiten, wenn alle Objekte erzeugt wurden !!!
' !!! Verändern Sie ggf. feste Pfade in variable Pfade
'********************** DATEN ***********************************
'>>>>> AB HIER KOPIEREN UND IN EIGENEN CODE EINBINDEN <<<<<<<<<<<<
'----- Programm Variabeln festlegen -----
'----- Programmverzeichnis festlegen (portable) -----
Declare Programm$
Programm$ = GetDir$("@")
'----- Programm ini-Pfad festlegen -----
Declare Progini$
Declare SID%
Progini$ = Programm$+"\\Programm.ini"
SETTRUECOLOR 1

PROC DIALOG'---------------------------------------------------------------------------> Dialoganfang

    DECLARE DLG&, DIALOGENDE%
    DECLARE CHOICEBOX1&, Zeile$
    DECLARE BUTTON1&
    DECLARE BUTTON2&
    DECLARE BUTTON3&
    DECLARE BUTTON4&
    DECLARE BUTTON5&
    DLG&=CREATE("DIALOG",%HWND,"Programm",SUB(DIV(%MAXX,2),DIV(500,2)),SUB(DIV(%MAXY,2),DIV(420,2)),500,420)
    USEFONT "Ariel",13,0,0,0,0
    SETDIALOGFONT 1

    PROC DLG_REFRESH

        SETAUTOPAINT 2
        STARTPAINT DLG&
        CLS RGB(252,255,202)
        LoadSizedBmp Programm$+"\\Programm.BMP",0000,0000-0090,0400;0
        TextColor @RGB(15,15,31),-1
        UseFont "Ariel", 14, 0, 0, 0, 0
        Drawtext 127, 40, "Sprache / Language"
        ShowWindow (BUTTON1&,0)
        ShowWindow (BUTTON1&,1)
        ShowWindow (BUTTON2&,0)
        ShowWindow (BUTTON2&,1)
        ShowWindow (BUTTON3&,0)
        ShowWindow (BUTTON3&,1)
        ShowWindow (BUTTON4&,0)
        ShowWindow (BUTTON4&,1)
        ShowWindow (BUTTON5&,0)
        ShowWindow (BUTTON5&,1)
        ShowWindow (CHOICEBOX1&,0)
        ShowWindow (CHOICEBOX1&,1)
        EndPaint
        SETAUTOPAINT 0

    ENDPROC

    USEFONT "Ariel",12,0,0,0,0
    CHOICEBOX1& =@Control("ComboBox","",$50000003,0,0,0,0,DLG&,1001,%hinstance)
    BUTTON1& =@CREATE("BUTTON",DLG&,"Button oben",0197,0200,0171,0030)
    BUTTON2& =@CREATE("BUTTON",DLG&,"Button mitte",0197,0240,0171,0030)
    BUTTON3& =@CREATE("BUTTON",DLG&,"Button unten",0197,0280,0171,0030)
    BUTTON4& =@CREATE("BUTTON",DLG&,"Hilfe",0197,0320,0070,0030)
    BUTTON5& =@CREATE("BUTTON",DLG&,"Abbruch",0297,0320,0070,0030)
    AddChoice(CHOICEBOX1&,"deutsch / germany")
    AddChoice(CHOICEBOX1&,"englisch / english")
    AddChoice(CHOICEBOX1&,"andere ... / other ...")
    SetWindowPos CHOICEBox1& = 0127,0057-0200,0210
    @sendmessage(CHOICEBOX1&,$14E,0,0)
    SETFOCUS(DLG&)
    DLG_REFRESH
    LET DIALOGENDE%=0

    WHILENOT DIALOGENDE%

        WAITINPUT

        If equ(%KEY,2)

            LET DIALOGENDE%= 1

        ELSEIF %WMPAINT

            DLG_REFRESH

        ELSEIF GETFOCUS(BUTTON1&)'BUTTON

        ELSEIF GETFOCUS(BUTTON2&)'BUTTON

            MessageBox("Ist in dieser Version nicht vorgesehen.","Programm",64)

        ELSEIF GETFOCUS(BUTTON3&)'BUTTON

            MessageBox("Ist in dieser Version nicht vorgesehen.","Programm",64)

        ELSEIF GETFOCUS(BUTTON4&)'BUTTON Hilfe

            MessageBox("Programm Hilfe","Programm - Hilfe",64)

        ELSEIF GETFOCUS(BUTTON5&)'BUTTON Abbruch

            End

        ELSEIF GetText$(CHOICEBOX1&) = "deutsch / germany"'CHOICEBOX

            SID% = 1031
            Print SID%, "_A1"

        ELSEIF GetText$(CHOICEBOX1&) = "englisch / english"'CHOICEBOX

            SID% = 1033
            Print SID%, "_A1"

        ELSEIF GetText$(CHOICEBOX1&) = "andere ... / other ..."'CHOICEBOX

            MessageBox("Ist in dieser Version nicht vorgesehen.","Programm / Language",64)
            SelectString(CHOICEBOX1&,-1,"deutsch / germany")

        ENDIF

    WEND

    DESTROYWINDOW(DLG&)

ENDPROC'--------------------------------------------------------------------------------> Dialogende

SETAUTOPAINT 2
'>>>>> HIER KOPIERENDE FÜR EIGENEN CODEEINBAU <<<<<<<<<<<<<<<<<<<<
'Das folgende Hauptfenster ist nur zum Testen:
WINDOWTITLE "DUMMY HAUPTFENSTER"
WINDOWSTYLE 63
WINDOW sub(%maxx,300),10-280,80
CLS RGB(0,0,0)
Color 10,0
PRINT "Bitte aufs Systemmenükr
icken " DIALOG'Diálogo aufrufen!
 
XProfan X4, PRFellow, Profan2Cpp - Version 2.0c-pre5, Windows 11
23.08.2012  ▲
 




liveFamilie
Sorry Dieter,

en me se ejecuta dieser Code así en XProfan 9 con LemonEd sin Problemas, por lo tanto Yo esta auch así eingestellt sin más darüber nachzudenken.

Gracias a Detlef el Usted esta soweit abgeändert hast.

Aber mein Problema besteht desafortunadamente siempre todavía.

Saludo
Toni
 
XProfan 9
"Profan das Besondere"
was auch in einem gewissen Alter noch Spass macht und Fit hält.
24.08.2012  ▲
 




Detlef
Jagolski
Versuche el una vez.
KompilierenMarcaSeparación
' CODE ERZEUGT MIT ROKO'S OBJECT CREATOR 4.7
' DATUM  04.08.2012    um  15:01 Uhr
' VERWENDETE PROFANVERSION IST 9.1-NT XPROFAN
' CODE ERSTELLT UNTER WINDOWS VISTA
' !!! Dieser Code wird von Roc immer neu erzeugt!!!
' !!! Erst bearbeiten, wenn alle Objekte erzeugt wurden !!!
' !!! Verändern Sie ggf. feste Pfade in variable Pfade
'********************** DATEN ***********************************
'>>>>> AB HIER KOPIEREN UND IN EIGENEN CODE EINBINDEN <<<<<<<<<<<<
'----- Programm Variabeln festlegen -----
'----- Programmverzeichnis festlegen (portable) -----
Declare Programm$
Programm$ = GetDir$("@")
'----- Programm ini-Pfad festlegen -----
Declare Progini$
Declare SID%
Progini$ = Programm$+"\\Programm.ini"
SETTRUECOLOR 1

PROC DIALOG'---------------------------------------------------------------------------> Dialoganfang

    DECLARE DLG&, DIALOGENDE%
    DECLARE CHOICEBOX1&, Zeile$
    DECLARE BUTTON1&
    DECLARE BUTTON2&
    DECLARE BUTTON3&
    DECLARE BUTTON4&
    DECLARE BUTTON5&
    DLG&=CREATE("DIALOG",%HWND,"Programm",SUB(DIV(%MAXX,2),DIV(500,2)),SUB(DIV(%MAXY,2),DIV(420,2)),500,420)
    USEFONT "Ariel",13,0,0,0,0
    SETDIALOGFONT 1

    PROC DLG_REFRESH

        SETAUTOPAINT 2
        STARTPAINT DLG&
        CLS RGB(252,255,202)
        LoadSizedBmp Programm$+"\\Programm.BMP",0000,0000-0090,0400;0
        TextColor @RGB(15,15,31),-1
        UseFont "Ariel", 14, 0, 0, 0, 0
        Drawtext 127, 40, "Sprache / Language"
        ShowWindow (BUTTON1&,0)
        ShowWindow (BUTTON1&,1)
        ShowWindow (BUTTON2&,0)
        ShowWindow (BUTTON2&,1)
        ShowWindow (BUTTON3&,0)
        ShowWindow (BUTTON3&,1)
        ShowWindow (BUTTON4&,0)
        ShowWindow (BUTTON4&,1)
        ShowWindow (BUTTON5&,0)
        ShowWindow (BUTTON5&,1)
        ShowWindow (CHOICEBOX1&,0)
        ShowWindow (CHOICEBOX1&,1)
        EndPaint
        SETAUTOPAINT 0

    ENDPROC

    USEFONT "Ariel",12,0,0,0,0
    CHOICEBOX1& =@Control("ComboBox","",$50000003,0,0,0,0,DLG&,1001,%hinstance)
    BUTTON1& =@CREATE("BUTTON",DLG&,"Button oben",0197,0200,0171,0030)
    BUTTON2& =@CREATE("BUTTON",DLG&,"Button mitte",0197,0240,0171,0030)
    BUTTON3& =@CREATE("BUTTON",DLG&,"Button unten",0197,0280,0171,0030)
    BUTTON4& =@CREATE("BUTTON",DLG&,"Hilfe",0197,0320,0070,0030)
    BUTTON5& =@CREATE("BUTTON",DLG&,"Abbruch",0297,0320,0070,0030)
    AddChoice(CHOICEBOX1&,"deutsch / germany")
    AddChoice(CHOICEBOX1&,"englisch / english")
    AddChoice(CHOICEBOX1&,"andere ... / other ...")
    SetWindowPos CHOICEBox1& = 0127,0057-0200,0210
    @sendmessage(CHOICEBOX1&,$14E,0,0)
    SETFOCUS(DLG&)
    DLG_REFRESH
    LET DIALOGENDE%=0

    WHILENOT DIALOGENDE%

        WAITINPUT

        If equ(%KEY,2)

            LET DIALOGENDE%= 1

        ELSEIF %WMPAINT

            DLG_REFRESH

        ELSEIF GETFOCUS(BUTTON1&)'BUTTON

        ELSEIF GETFOCUS(BUTTON2&)'BUTTON

            MessageBox("Ist in dieser Version nicht vorgesehen.","Programm",64)

        ELSEIF GETFOCUS(BUTTON3&)'BUTTON

            MessageBox("Ist in dieser Version nicht vorgesehen.","Programm",64)

        ELSEIF GETFOCUS(BUTTON4&)'BUTTON Hilfe

            MessageBox("Programm Hilfe","Programm - Hilfe",64)

        ELSEIF GETFOCUS(BUTTON5&)'BUTTON Abbruch

            End

        ELSEIF GetText$(CHOICEBOX1&) = "deutsch / germany"'CHOICEBOX

            SID% = 1031
            Print SID%, "_A1"

        ELSEIF GetText$(CHOICEBOX1&) = "englisch / english"'CHOICEBOX

            SID% = 1033
            Print SID%, "_A1"

        ELSEIF GetText$(CHOICEBOX1&) = "andere ... / other ..."'CHOICEBOX

            MessageBox("Ist in dieser Version nicht vorgesehen.","Programm / Language",64)
            'SelectString(CHOICEBOX1&,-1,"deutsch / germany")
            SendMessage(CHOICEBOX1&,$014E,0,2)'CB_SETCURSEL

        ENDIF

    WEND

    DESTROYWINDOW(DLG&)

ENDPROC'--------------------------------------------------------------------------------> Dialogende

SETAUTOPAINT 2
'>>>>> HIER KOPIERENDE FÜR EIGENEN CODEEINBAU <<<<<<<<<<<<<<<<<<<<
'Das folgende Hauptfenster ist nur zum Testen:
WINDOWTITLE "DUMMY HAUPTFENSTER"
WINDOWSTYLE 63
WINDOW sub(%maxx,300),10-280,80
CLS RGB(0,0,0)
Color 10,0
PRINT "Bitte aufs Systemmenükre
cken " DIALOG'Diálogo aufrufen!
 
XProfan X2
XProfan X4, PRFellow, Profan2Cpp - Version 2.0c-pre5, Windows 11
24.08.2012  ▲
 




liveFamilie
¡Hola Detlef,

DANKE lo klappt.
Trotzdem Yo una Cuestión dazu :

Usted hast
KompilierenMarcaSeparación
SendMessage(CHOICEBOX1&,$014E,0,2)'CB_SETCURSEL
>

eingefügt.
Weiter oben Yo sí ya
KompilierenMarcaSeparación
SendMessage(CHOICEBOX1&,$014E,0,0)'CB_SETCURSEL
>

drin.
Wo genau liegt porque hier el Diferencia ?
Schreib ahora Por favor, no el du sólo el 0 en 2 geändert hast.

Toni
 
XProfan 9
"Profan das Besondere"
was auch in einem gewissen Alter noch Spass macht und Fit hält.
24.08.2012  ▲
 



Schniep: [...]  -

después de dieser Erklärung se lParam garnicht beachtet -

danach ists egal si 0 oder 2 ...
 
24.08.2012  ▲
 




Detlef
Jagolski
Exactamente IF war a rápidamente. Usted muss wParam nehmen.
 
XProfan X2
XProfan X4, PRFellow, Profan2Cpp - Version 2.0c-pre5, Windows 11
24.08.2012  ▲
 



Respuesta


Título del Tema, max. 100 Signo.
 

Systemprofile:

Kein Systemprofil creado. [anlegen]

XProfan:

 Contribución  Font  Smilies  ▼ 

Bitte registro en una Contribución a verfassen.
 

Tema opciones

Unreaded
subscribe
Remember-List
Notes
guests
Delete
Constantemente
Hecho

6.883 Views

Untitledvor 0 min.
Wilfried28.05.2016
GDL01.03.2015
RICOSCH15.08.2013
Wolfgang03.06.2013
Más...

Themeninformationen

Dieses Thema ha 4 subscriber:

Detlef Jagolski (3x)
liveFamilie (3x)
iF (1x)
Dieter Zornow (1x)


Admins  |  AGB  |  Applications  |  Autores  |  Chat  |  Política de Privacidad  |  Descargar  |  Entrance  |  Ayuda  |  Merchantportal  |  Pie de imprenta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Juegos  |  Búsqueda  |  Support

Ein Projekt aller XProfan, el lo son!


Mi XProfan
Privado Noticias
Eigenes Ablageforum
Temas-Merkliste
Eigene Beiträge
Eigene Temas
Zwischenablage
Cancelar
 Deutsch English Français Español Italia
Traducciones

Política de Privacidad


Wir uso Cookies sólo como Session-Cookies wegen el technischen Notwendigkeit y en uns hay no Cookies de Drittanbietern.

Wenn du hier en unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung de Informationen en unseren Cookies en XProfan.Net a.

Weitere Informationen a unseren Cookies y dazu, como du el Kontrolle darüber behältst, findest du en unserer nachfolgenden Datenschutzerklärung.

einverstandenDatenschutzerklärung
Yo möchte no Cookie