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