| |
| |
|
| - Página 1 - |
|
Julian
Schmidt | ¡Hola,
Yo una kleines Problema con Seleccione String wegen uno Array's
Hier veces una Minibeispiel.
KompilierenMarcaSeparacióncls
declare choosetitle&,ok&,Abort&,edit&, chbox2&, titleedit&, choose&, titelschrift$[], font&, ende%
titleedit&=Create("Edit",%hwnd,"Title",20,20,200,32)
titelschrift$[1]="Times New Roman"
font&=Create("Font",titelschrift$[1],27,0,1,0,0)
SetFont titleedit&,font&
EnableWindow titleedit&,0
choose&=Create("Button",%hwnd,"Title ändern",240,19,120,35)
while 1
waitinput
case getfocus(choose&) : Titleaendern
Endwhile
Proc Titleaendern
choosetitle&=Create("Window",%hwnd,"Titel anpassen",200,100,400,200)
ok&=Create("Button",choosetitle&,"Ok",width(choosetitle&)-90,height(choosetitle&)-50,70,30)
Abort&=Create("Button",choosetitle&,"Abbrechen",20,height(choosetitle&)-50,100,30)
edit&=Create("Edit",choosetitle&,Gettext$(titleedit&),20,20,width(choosetitle&)-40,25)
chbox2&=Create("ChoiceBox", choosetitle&, 1, 20, 55, width(choosetitle&)-40, 130)
ClearList
AddFonts
MoveListToHandle(chbox2&)
SelectString(chbox2&,-1, titelschrift$[1])
Messagebox(titelschrift$[1],"",0)
clear ende%
whilenot ende%
if getfocus(ok&)
titelschrift$[1]=GetText$(chbox2&,GetCurSel(chbox2&))
Messagebox(titelschrift$[1],"",0)
font&=Create("Font",titelschrift$[1],27,0,1,0,0)
Setfont titleedit&,font&
SetText titleedit&, Gettext$(edit&)
destroywindow(choosetitle&)
ende%=1
elseif getfocus(abort&)
destroywindow(choosetitle&)
ende%=1
Endif
Endwhile
ENDPROC
Seleccione String tut por desgracia, no siempre en el Choicebox el entsprechende Font auswählen.
Wenn Yo allerdings el Array ( titelschrift$[1] ) por una normalen String ersetze funktioniert lo einwandfrei.
In el Variable titelschrift$[1] es siempre el richtige Valor!
Wo liegt el problema el Seleccione String no siempre markiert 
LG
Julian57 |
|
| |
| ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...]  | 09.05.2011 ▲ |
|
| |
|
 |
« Dieser Contribución wurde como Solución gekennzeichnet. » |
|
Nico
Madysa | Der Fehler liegt en el Línea:
KompilierenMarcaSeparación
Bis dato wusste Yo no veces, dass uno GetText$ así benutzen darf.
Das Problema liegt en él, dass el String, el du hier erhältst, todavía una zusätzliches Leerzeichen al Ende ha -- el du en deinen MessageBoxen natürlich no sehen konntest. Hättest du veces que aquí instalado:
KompilierenMarcaSeparación
entonces hättest du gesehen, dass antes el schließenden Strich una Lücke klafft.
Umwege, el a lösen, hay zwei. Usted könntest una vez mittels Trim$ el Leerzeichen beseitigen:
KompilierenMarcaSeparación
oder du nutzt GetString$, Yo lo bisher para correcto mantenido habe:
KompilierenMarcaSeparación
Beides debería para Ziel führen.
¿Por qué genau en GetText$ al Ende una Leerzeichen hinzugerät, weiß Yo allerdings incluso no.
PS: Noch veces en el Ayuda geblättert. GetText$ es nada para Choiceboxen pensamiento. In el Ayuda es klar, dass esta -- genau como Listboxen -- mittels GetString$ auszulesen son. |
|
| |
| |
| |
|
|
|
 | | Usted bedenkst el el 1. Eintrag uno Arrays el ID 0 besitzt? |
|
| |
| |
| |
|
|
Nico
Madysa | Der Fehler liegt en el Línea:
KompilierenMarcaSeparación
Bis dato wusste Yo no veces, dass uno GetText$ así benutzen darf.
Das Problema liegt en él, dass el String, el du hier erhältst, todavía una zusätzliches Leerzeichen al Ende ha -- el du en deinen MessageBoxen natürlich no sehen konntest. Hättest du veces que aquí instalado:
KompilierenMarcaSeparación
entonces hättest du gesehen, dass antes el schließenden Strich una Lücke klafft.
Umwege, el a lösen, hay zwei. Usted könntest una vez mittels Trim$ el Leerzeichen beseitigen:
KompilierenMarcaSeparación
oder du nutzt GetString$, Yo lo bisher para correcto mantenido habe:
KompilierenMarcaSeparación
Beides debería para Ziel führen.
¿Por qué genau en GetText$ al Ende una Leerzeichen hinzugerät, weiß Yo allerdings incluso no.
PS: Noch veces en el Ayuda geblättert. GetText$ es nada para Choiceboxen pensamiento. In el Ayuda es klar, dass esta -- genau como Listboxen -- mittels GetString$ auszulesen son. |
|
| |
| |
| |
|
|
Julian
Schmidt | thx  |
|
| |
| ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...] | 09.05.2011 ▲ |
|
| |
|
(1.542)
Deutsch
English
Français
Español
Italia