XProfan

Français

Andre
Hilprecht

Salut,
conducteur% ist une ChoiceBox. je voudrais cela pour sélection dans cette Box un
TextFeld (Text1&) la valeur übernimmt et qui ChoiceBox ensuite ausgeblendet
wird. qui Choice verschwindet mais déjà avant qui sélection.

Kompilieren Marque Séparation

ElseIf Clicked(conducteur%)

Text1& = @Créer("Text", %hwnd, @getText$(conducteur%), 30, 10, 190, 24)
SetFont Text1&, CBFont&
@DestroyWindow (conducteur%)

Ein PC ist die beste Möglichkeit Fehler zu beheben, die ohne PC gar nicht passiert wären. -frei aus Murphy's Computergesetzen

XProfan X2, Win8 Pro 64bit Update von Win7
i5 / 3,2GHz 4 GB RAM
Treibstoff: Radeberger Pils

17.12.2012 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

« cette Beitrag wurde comme Solution gekennzeichnet. »

Thomas
Freier

peut-être so:

Kompilieren Marque Séparation

cls
var conducteur%=CreateChoiceBox(%hwnd,»,10,110,200,200)
AddStrings(conducteur%,"Klaus")
AddStrings(conducteur%,"Werner")
AddStrings(conducteur%,"Tim")
declare Text1&, x%
Text1&=CreateText(%hwnd,»,10,10,300,22)
SetFont Text1&, CBFont&

tandis que 1

    waitinput
    cas getfocus(conducteur%) : WAEHLE_FAHRER

Wend

Proc WAEHLE_FAHRER

    tandis que getfocus(conducteur%)

        x%=-1
        waitinput
        x%=GetCurSel(conducteur%)

        Si x%>-1

            SetText Text1&,Gettext$(conducteur%)
            DestroyWindow(conducteur%)
            BREAK

        endif

    Wend

ENDPROC

là beim 1. getfocus(conducteur%) encore aucun l'élection getroffen wird, cet dans einer Boucle anbieten.

Gruß Thomas
Windows XP SP2, XProfan X2

17.12.2012 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Andre
Hilprecht

merci pour qui Aider, hat aussi funktioniert. seulement malheureusement si je cela chez
einer 2. ChoiceBox anwende funzt cela pas. Irgendwas fais je faux.

Kompilieren Marque Séparation

Déclarer Ende%, Text1&, Text2&, x%, conducteur%, TankW%
'--------------------------------------------------------conducteur

Proc FAHRER

    var s$ = »
    assign #1,"namen.aht"
    reset #1

    tandis que not(eof(#1))

        input #1,s$
        addchoice(conducteur%,s$)

    Wend

    close #1
    assign #1,»

    tandis que getfocus(conducteur%)

        x% = -1
        waitinput
        x% = GetCurSel(conducteur%)

        Si x% > -1

            Text1& = @Créer("Text", %hwnd, », 10, 10, 110, 22)
            SetText Text1&,Gettext$(conducteur%)
            DestroyWindow(conducteur%)

        endif

    Wend

    TANKWAGEN

ENDPROC

'-------------------------------------------------------------TW

Proc TANKWAGEN

    TankW% = @Créer("ChoiceBox", %hwnd,1,200,10,150,100)
    var s$ = »
    assign #1,"TW.aht"
    reset #1

    tandis que not(eof(#1))

        input #1,s$
        addchoice(TankW%,s$)

    Wend

    close #1
    assign #1,»

    tandis que getfocus(TankW%)

        x% = -1
        waitinput
        x% = GetCurSel(TankW%)

        Si x% > -1

            Text2& = @Créer("Text",%hwnd,»,200,10,150,22)
            SetText Text2&,Gettext$(TankW%)
            DestroyWindow(TankW%)

        endif

    Wend

ENDPROC

'--------------------------------------------------------------------
WINDOWSTYLE 84
WINDOW 0,0 - %MaxX,%MaxY
Ende% = @Créer("Button", %hWnd, "ENDE", %MaxX-120, 10, 100, 30)
Fahrer% = @Créer("ChoiceBox",%hwnd,1,10,10,150,300)

tandis que 1

    waitinput
    cas getfocus(conducteur%) : FAHRER
    cas getfocus(Ende%) : end

Wend

17.12.2012 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Andre
Hilprecht

Tricolore selber trouvé, es musste un SetFocus sur qui 2. ChoiceBox gesetzt volonté.
pourquoi es chez qui ersten Box sans allez, entzieht sich mir zwar, mais j'ai seulement la fois
une Solution et peux plus faire.

Salut Andre

peux comme erledigt betrachtet volonté

17.12.2012 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Thomas
Freier

pourquoi es chez qui ersten Box sans allez, entzieht sich mir zwar,

Den Concentrer et avec cela cela Handle qui ersten Box bekommst par Mausklick. après erstellst du une Zweite, sur qui du sans Abfrage sur GetFocus()/ Clicked() zugreifen vouloir. avec cela ist l'état :

Kompilieren Marque Séparation

tandis que getfocus(TankW%)

    x% = -1
    waitinput
    x% = GetCurSel(TankW%)

    Si x% > -1

        Text2& = @Créer("Text",%hwnd,»,200,10,150,22)
        SetText Text2&,Gettext$(TankW%)
        DestroyWindow(TankW%)

    endif

Wend

pas erfüllt.
Alternativ

Kompilieren Marque Séparation

tandis que 1' récente

    x% = -1
    waitinput
    x% = GetCurSel(TankW%)

    Si x% > -1

        Text2& = @Créer("Text",%hwnd,»,200,10,150,22)
        SetText Text2&,Gettext$(TankW%)
        DestroyWindow(TankW%)
        BREAK' récente

    endif

Wend