Français
Forum

Anfängerfrage ChoiceBox

 
- page 1 -



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



« cette Beitrag wurde comme Solution gekennzeichnet. »


Thomas
Freier
peut-être so:
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  
 




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

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

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

 
Gruß Thomas
Windows XP SP2, XProfan X2
18.12.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

7.192 Views

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

Themeninformationen

cet Thema hat 2 participant:

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


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