XProfan

Italia

Andre
Hilprecht

Ciao,
Fahrer% ist eine ChoiceBox. Ich möchte das nach Auswahl in dieser Box ein
TextFeld (Text1&) il valore übernimmt und die ChoiceBox dann ausgeblendet
wird. Die Choice verschwindet aber schon vor der Auswahl.

Kompilieren Markieren Separieren

ElseIf Clicked(Fahrer%)

Text1& = @Create("Text", %hwnd, @getText$(Fahrer%), 30, 10, 190, 24)
SetFont Text1&, 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 Citazione Zeilenweise Citazione

« Dieser Beitrag wurde als Lösung gekennzeichnet. »

Thomas
Freier

Vielleicht so:

Kompilieren Markieren Separieren

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

while 1

    waitinput
    case getfocus(Fahrer%) : WAEHLE_FAHRER

wend

Proc WAEHLE_FAHRER

    while getfocus(Fahrer%)

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

        If x%>-1

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

        endif

    wend

Endproc

Da beim 1. getfocus(Fahrer%) noch keine Wahl getroffen wird, dieses in einer Schleife anbieten.

Gruß Thomas
Windows XP SP2, XProfan X2

17.12.2012 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Andre
Hilprecht

Danke per die Aiuto, hat auch funktioniert. Nur leider wenn ich das bei
einer 2. ChoiceBox anwende funzt das nicht. Irgendwas mache ich falsch.

Kompilieren Markieren Separieren

Declare Ende%, Text1&, Text2&, x%, Fahrer%, TankW%
'--------------------------------------------------------Fahrer

Proc FAHRER

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

    while not(eof(#1))

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

    wend

    close #1
    assign #1,""

    while getfocus(Fahrer%)

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

        If x% > -1

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

        endif

    wend

    TANKWAGEN

Endproc

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

Proc TANKWAGEN

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

    while not(eof(#1))

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

    wend

    close #1
    assign #1,""

    while getfocus(TankW%)

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

        If x% > -1

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

        endif

    wend

Endproc

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

while 1

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

wend

17.12.2012 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Andre
Hilprecht

Habs selber gefunden, es musste ein SetFocus auf die 2. ChoiceBox gesetzt werden.
Warum es bei der ersten Box ohne geht, entzieht sich mir zwar, aber ich habe erst mal
eine Lösung und kann weiter machen.

Saluto Andre

Kann als erledigt betrachtet werden

17.12.2012 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Thomas
Freier

Warum es bei der ersten Box ohne geht, entzieht sich mir zwar,

Den Focus und damit das Handle der ersten Box bekommst durch Mausklick. Danach erstellst du eine Zweite, auf die du ohne Abfrage circa GetFocus()/ Clicked() zugreifen möchtest. Damit ist die Bedingung :

Kompilieren Markieren Separieren

while getfocus(TankW%)

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

    If x% > -1

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

    endif

wend

nicht erfüllt.
Alternativ

Kompilieren Markieren Separieren

while 1' neu

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

    If x% > -1

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

    endif

wend