(488)  S'inscrire

Français
Forum

Chociebox veux pas so comment je veux

 

liveFamilie
Salut,
habe avec Rokos Objektcreator quelque chose erzeugt. sous anderem ist aussi une Chociebox dabei.
Doch si je cet anklicke et "andere" auswähle soll une Messagebox venons "nicht dans cette Version" et après wieder sur "deutsch" springen.
Tja qui Messagebox venez, mais cela était es ensuite aussi déjà, rien allez plus
sélection technique.
Habe viel gelesen im Forum, Handbuch usw. mais irgendwie finde Je l'
passenden "Zauberspruch" pas qui mich de meiner Denkblockade erlöst.

Daher hoffe je maintenant la fois sur eure Aider.

Salut
Toni
KompilierenMarqueSéparation
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 appel!
 
XProfan 9
"Profan das Besondere"
was auch in einem gewissen Alter noch Spass macht und Fit hält.
23.08.2012  ▲
 




Dieter
Zornow
chez mir venez seulement une Fehlermeldung _A1 pas declariert. Mach deinen Code seulement la fois courir.
 
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 aller.
KompilierenMarqueSéparation
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 appel!
 
XProfan X4, PRFellow, Profan2Cpp - Version 2.0c-pre5, Windows 11
23.08.2012  ▲
 




liveFamilie
Sorry Dieter,

chez mir fonctionne cette Code so dans XProfan 9 avec LemonEd sans Probleme, daher habe je cette aussi so eingestellt sans plus par-dessus nachzudenken.

merci à Detlef cela Du cette soweit abgeändert la hâte.

mais mon Problem besteht malheureusement toujours.

Salut
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 cela einmal.
KompilierenMarqueSéparation
' 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 appel!
 
XProfan X2
XProfan X4, PRFellow, Profan2Cpp - Version 2.0c-pre5, Windows 11
24.08.2012  ▲
 




liveFamilie
allô Detlef,

DANKE es klappt.
quand même habe je une Frage en supplément :

tu as
KompilierenMarqueSéparation
SendMessage(CHOICEBOX1&,$014E,0,2)'CB_SETCURSEL
>

eingefügt.
Weiter dessus habe je oui déjà
KompilierenMarqueSéparation
SendMessage(CHOICEBOX1&,$014E,0,0)'CB_SETCURSEL
>

drin.
wohin oui c'est ca liegt car ici qui Unterschied ?
Schreib maintenant s'il te plaît pas cela du seulement qui 0 dans 2 geändert la hâte.

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



Schniep: [...]  -

pour cette Erklärung wird lParam garnicht beachtet -

après ists égal si 0 ou bien 2 ...
 
24.08.2012  ▲
 




Detlef
Jagolski
oui c'est ca IF était trop vite. Du muss wParam prendre.
 
XProfan X2
XProfan X4, PRFellow, Profan2Cpp - Version 2.0c-pre5, Windows 11
24.08.2012  ▲
 



répondre


Topictitle, max. 100 marque.
 

Systemprofile:

ne...aucune Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

s'il te plaît s'inscrire um une Beitrag trop verfassen.
 

Options du sujet

Unreaded
abonner
La liste de voeux
Notes
guests
Effacer
Permanent
Done

6.998 Views

Untitledvor 0 min.
Wilfried28.05.2016
GDL01.03.2015
RICOSCH15.08.2013
Wolfgang03.06.2013
plus...

Themeninformationen

cet Thema hat 4 participant:

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


Admins  |  AGB  |  Applications  |  Auteurs  |  Chat  |  protection des données  |  Télécharger  |  Entrance  |  Aider  |  Merchantportal  |  Empreinte  |  Mart  |  Interfaces  |  SDK  |  Services  |  Jeux  |  cherche  |  Support

un projet aller XProfaner, qui il y a!


Mon XProfan
Privé Nouvelles
Eigenes Ablageforum
Sujets-La liste de voeux
Eigene Posts
Eigene Sujets
Zwischenablage
Annuler
 Deutsch English Français Español Italia
Traductions

protection des données


Wir verwenden Cookies seulement comme Session-Cookies à cause de qui technischen Notwendigkeit et chez uns gibt es aucun Cookies de Drittanbietern.

si du ici sur unsere Webseite klickst ou bien navigierst, stimmst du unserer Erfassung de Informationen dans unseren Cookies sur XProfan.Net trop.

Weitere Informationen trop unseren Cookies et en supplément, comment du qui Kontrolle par-dessus behältst, findest du dans unserer nachfolgenden Datenschutzerklärung.

d'accordDatenschutzerklärung
je voudrais keinen Cookie