XProfan

Español

Andre
Hilprecht

¡Hola,
Fahrer% es una ChoiceBox. Yo möchte el después de Auswahl en dieser Box una
TextFeld (Texto1&) valor übernimmt y el ChoiceBox entonces ausgeblendet
se. El Choice verschwindet aber ya antes Auswahl.

Kompilieren Marca Separación

ElseIf Clicked(Fahrer%)

Text1& = @Crear("Text", %hwnd, @getText$(Fahrer%), 30, 10, 190, 24)
SetFont Texto1&, CBFont&
@DestroyWindow (Fahrer%)

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 Zitat

Absatzweise Cita Zeilenweise Cita

« Dieser Contribución wurde como Solución gekennzeichnet. »

Thomas
Freier

Tal vez así:

Kompilieren Marca Separación

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

mientras que 1

    waitinput
    caso getfocus(Fahrer%) : WAEHLE_FAHRER

wend

Proc WAEHLE_FAHRER

    mientras que getfocus(Fahrer%)

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

        If x%>-1

            SetText Texto1&,Gettext$(Fahrer%)
            DestroyWindow(Fahrer%)
            BREAK

        endif

    wend

ENDPROC

Como beim 1. getfocus(Fahrer%) todavía no Wahl getroffen se, dieses en uno Bucle anbieten.

Gruß Thomas
Windows XP SP2, XProfan X2

17.12.2012 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Andre
Hilprecht

Gracias para el Ayuda, ha auch funktioniert. Nur desafortunadamente si yo en el
uno 2. ChoiceBox anwende funzt el no. Irgendwas mache Yo falso.

Kompilieren Marca Separación

Declarar Ende%, Texto1&, Texto2&, x%, Fahrer%, TankW%
'--------------------------------------------------------Fahrer

Proc FAHRER

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

    mientras que not(eof(#1))

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

    wend

    close #1
    assign #1,""

    mientras que getfocus(Fahrer%)

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

        If x% > -1

            Texto1& = @Crear("Text", %hwnd, "", 10, 10, 110, 22)
            SetText Texto1&,Gettext$(Fahrer%)
            DestroyWindow(Fahrer%)

        endif

    wend

    TANKWAGEN

ENDPROC

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

Proc TANKWAGEN

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

    mientras que not(eof(#1))

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

    wend

    close #1
    assign #1,""

    mientras que getfocus(TankW%)

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

        If x% > -1

            Texto2& = @Crear("Text",%hwnd,"",200,10,150,22)
            SetText Texto2&,Gettext$(TankW%)
            DestroyWindow(TankW%)

        endif

    wend

ENDPROC

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

mientras que 1

    waitinput
    caso getfocus(Fahrer%) : FAHRER
    caso getfocus(Ende%) : end

wend

17.12.2012 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Andre
Hilprecht

Habs selber gefunden, lo musste una SetFocus en el 2. ChoiceBox gesetzt voluntad.
¿Por qué lo en ersten Box sin va, entzieht se me zwar, pero yo habe sólo veces
una solución y kann más hacer.

Saludo Andre

Kann como se hace betrachtet voluntad

17.12.2012 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Thomas
Freier

¿Por qué lo en ersten Box sin va, entzieht se me zwar,

Den Foco y así el Handle el ersten Box bekommst por Mausklick. Danach erstellst du una Zweite, en el du sin Abfrage encima GetFocus()/ Clicked() zugreifen möchtest. Damit Es el Condición :

Kompilieren Marca Separación

mientras que getfocus(TankW%)

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

    If x% > -1

        Texto2& = @Crear("Text",%hwnd,"",200,10,150,22)
        SetText Texto2&,Gettext$(TankW%)
        DestroyWindow(TankW%)

    endif

wend

no erfüllt.
Alternativ

Kompilieren Marca Separación

mientras que 1' neu

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

    If x% > -1

        Texto2& = @Crear("Text",%hwnd,"",200,10,150,22)
        SetText Texto2&,Gettext$(TankW%)
        DestroyWindow(TankW%)
        BREAK' neu

    endif

wend