(266)  Anmelden

Deutsch
Forum

Chociebox will nicht so wie ich will

 

liveFamilie
Hallo,
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 Forum, Handbuch usw. aber irgendwie finde ich den
passenden "Zauberspruch" nicht der mich von meiner Denkblockade erlöst.

Daher hoffe ich jetzt mal auf eure Hilfe.

Gruß
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ükreuz klicken "
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ükreuz klicken "
DIALOG'Dialog aufrufen!
 
XProfan X4, PRFellow, Profan2Cpp - Version 2.0c-pre5, Windows 11
23.08.2012  ▲
 




liveFamilie
Sorry Dieter,

bei mir läuft 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.

Gruß
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ükreuz klicken "
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  ▲
 



Antworten


Thementitel, max. 100 Zeichen.
 

Systemprofile:

Kein Systemprofil angelegt. [anlegen]

XProfan:

 Beitrag  Schrift  Smilies  ▼ 

Bitte anmelden um einen Beitrag zu verfassen.
 

Themenoptionen

Ungelesen
Abonnieren
Merkliste
Hinweise
Gäste
Löschen
Ständig
Erledigt

6.862 Betrachtungen

Unbenanntvor 0 min.
Wilfried28.05.2016
GDL01.03.2015
RICOSCH15.08.2013
Wolfgang03.06.2013
Mehr...

Themeninformationen

Dieses Thema hat 4 Teilnehmer:

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


Admins  |  AGB  |  Anwendungen  |  Autoren  |  Chat  |  Datenschutz  |  Download  |  Eingangshalle  |  Hilfe  |  Händlerportal  |  Impressum  |  Mart  |  Schnittstellen  |  SDK  |  Services  |  Spiele  |  Suche  |  Support

Ein Projekt aller XProfaner, die es gibt!


Mein XProfan
Private Nachrichten
Eigenes Ablageforum
Themen-Merkliste
Eigene Beiträge
Eigene Themen
Zwischenablage
Abmelden
 Deutsch English Français Español Italia
Übersetzungen

Datenschutz


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