| |
|
|
- 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.
|
|
|
| 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. |
|
|
| |
|
|
|
|
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 : pas erfüllt. Alternativ
|
|
|
| |
|
|