Español
Foro

Anfängerfrage ChoiceBox

 
- Página 1 -



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.
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  
 



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


Thomas
Freier
Tal vez así:
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  
 




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.
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

 
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  
 




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
 
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  
 




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 :
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
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

 
Gruß Thomas
Windows XP SP2, XProfan X2
18.12.2012  
 



Respuesta


Título del Tema, max. 100 Signo.
 

Systemprofile:

Kein Systemprofil creado. [anlegen]

XProfan:

 Contribución  Font  Smilies  ▼ 

Bitte registro en una Contribución a verfassen.
 

Tema opciones

7.195 Views

Untitledvor 0 min.
H.Brill15.09.2024
RudiB.12.03.2020
Peter Max Müller01.11.2019
rquindt15.04.2018
Más...

Themeninformationen

Dieses Thema ha 2 subscriber:

Andre Hilprecht (3x)
Thomas Freier (2x)


Admins  |  AGB  |  Applications  |  Autores  |  Chat  |  Política de Privacidad  |  Descargar  |  Entrance  |  Ayuda  |  Merchantportal  |  Pie de imprenta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Juegos  |  Búsqueda  |  Support

Ein Projekt aller XProfan, el lo son!


Mi XProfan
Privado Noticias
Eigenes Ablageforum
Temas-Merkliste
Eigene Beiträge
Eigene Temas
Zwischenablage
Cancelar
 Deutsch English Français Español Italia
Traducciones

Política de Privacidad


Wir uso Cookies sólo como Session-Cookies wegen el technischen Notwendigkeit y en uns hay no Cookies de Drittanbietern.

Wenn du hier en unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung de Informationen en unseren Cookies en XProfan.Net a.

Weitere Informationen a unseren Cookies y dazu, como du el Kontrolle darüber behältst, findest du en unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Yo möchte no Cookie