(261)  Registro

Italia
Foro

Chociebox will nicht so wie ich will

 

liveFamilie
Ciao,
habe mit Rokos Objektcreator etwas erzeugt. Unter anderem ist auch eine Chociebox dabei.
Doch wenn ich diese anklicke und "andere" auswähle soll eine Messagebox kommen "nicht in dieser Version" und danach wieder auf "deutsch" springen.
Tja die Messagebox kommt, aber das war es dann auch schon, nichts geht mehr
Auswahl technisch.
Habe viel gelesen im Foro, Handbuch usw. aber irgendwie finde Io l'
passenden "Zauberspruch" nicht der mich von meiner Denkblockade erlöst.

Daher hoffe ich jetzt mal auf eure Aiuto.

Saluto
Toni
KompilierenMarkierenSeparieren
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'Dialog aufrufen!
 
XProfan 9
"Profan das Besondere"
was auch in einem gewissen Alter noch Spass macht und Fit hält.
23.08.2012  ▲
 




Dieter
Zornow
Bei mir kommt nur eine Fehlermeldung _A1 nicht declariert. Mach deinen Code erst mal 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 sollte es gehen.
KompilierenMarkierenSeparieren
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'Dialog aufrufen!
 
XProfan X4, PRFellow, Profan2Cpp - Version 2.0c-pre5, Windows 11
23.08.2012  ▲
 




liveFamilie
Sorry Dieter,

bei mir corre dieser Code so in XProfan 9 mit LemonEd ohne Probleme, daher habe ich diesen auch so eingestellt ohne weiter darüber nachzudenken.

Danke an Detlef das Du diesen soweit abgeändert hast.

Aber mein Problem besteht leider immer noch.

Saluto
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 das einmal.
KompilierenMarkierenSeparieren
' 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'Dialog aufrufen!
 
XProfan X2
XProfan X4, PRFellow, Profan2Cpp - Version 2.0c-pre5, Windows 11
24.08.2012  ▲
 




liveFamilie
Hallo Detlef,

DANKE es klappt.
Trotzdem habe ich eine Frage dazu :

Du hast
KompilierenMarkierenSeparieren
SendMessage(CHOICEBOX1&,$014E,0,2)'CB_SETCURSEL
>

eingefügt.
Weiter oben habe ich ja schon
KompilierenMarkierenSeparieren
SendMessage(CHOICEBOX1&,$014E,0,0)'CB_SETCURSEL
>

drin.
Wo genau liegt denn hier der Unterschied ?
Schreib jetzt bitte nicht das du nur die 0 in 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: [...]  -

nach dieser Erklärung wird lParam garnicht beachtet -

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




Detlef
Jagolski
Genau IF war zu schnell. Du muss wParam nehmen.
 
XProfan X2
XProfan X4, PRFellow, Profan2Cpp - Version 2.0c-pre5, Windows 11
24.08.2012  ▲
 



Answer


Topictitle, max. 100 characters.
 

Systemprofile:

Kein Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Bitte anmelden um einen Beitrag zu verfassen.
 

Topic-Options

Unreaded
subscribe
Remember-List
Notes
guests
Delete
Permanent
Done

6.864 Views

Untitledvor 0 min.
Wilfried28.05.2016
GDL01.03.2015
RICOSCH15.08.2013
Wolfgang03.06.2013
Di più...

Themeninformationen

Dieses Thema hat 4 subscriber:

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


Admins  |  AGB  |  Applications  |  Autori  |  Chat  |  Informativa sulla privacy  |  Download  |  Entrance  |  Aiuto  |  Merchantportal  |  Impronta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Giochi  |  Cerca  |  Support

Ein Projekt aller XProfaner, die es gibt!


Il mio XProfan
Private Notizie
Eigenes Ablageforum
Argomenti-Merkliste
Eigene Beiträge
Eigene Argomenti
Zwischenablage
Annullare
 Deutsch English Français Español Italia
Traduzioni

Informativa sulla privacy


Wir verwenden Cookies nur als Session-Cookies wegen der technischen Notwendigkeit und bei uns gibt es keine Cookies von Drittanbietern.

Wenn du hier auf unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung von Informationen in unseren Cookies auf XProfan.Net zu.

Weitere Informationen zu unseren Cookies und dazu, wie du die Kontrolle darüber behältst, findest du in unserer nachfolgenden Datenschutzerklärung.

einverstandenDatenschutzerklärung
Ich möchte keinen Cookie