| |
| |
|
| - page 1 - |
|
Julian
Schmidt | Salut,
j'ai un kleines Problem avec Sélectionnez String à cause de eines Array's
ici la fois un Minibeispiel.
KompilierenMarqueSéparationcls
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
Sélectionnez String tut malheureusement pas toujours dans qui Choicebox qui entsprechende Font auswählen.
si je allerdings cela Array ( titelschrift$[1] ) par une normalen String ersetze funktioniert es einwandfrei.
dans qui Variable titelschrift$[1] steht toujours qui richtige Wert!
wohin liegt cela Problem cela Sélectionnez String pas toujours markiert 
LG
Julian57 |
|
| |
| ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...]  | 09.05.2011 ▲ |
|
| |
|
 |
« cette Beitrag wurde comme Solution gekennzeichnet. » |
|
Nico
Madysa | qui faute liegt dans qui la ligne:
KompilierenMarqueSéparation
jusqu'à dato wusste je pas la fois, dass on GetText$ so benutzen darf.
cela Problem liegt y, dass qui String, den du ici erhältst, encore un zusätzliches Leerzeichen am Ende hat -- cela du dans deinen MessageBoxen naturellement pas voyons konntest. Hättest du la fois que voici incorporé:
KompilierenMarqueSéparation
ensuite hättest du gesehen, dass avant dem schließenden Strich une Lücke klafft.
Umwege, cela trop lösen, gibt es deux. Du könntest einmal mittels Trim$ cela Leerzeichen beseitigen:
KompilierenMarqueSéparation
ou bien du utilise GetString$, comment je es bisher pour richtig gehalten habe:
KompilierenMarqueSéparation
Beides sollte zum but mener.
pourquoi oui c'est ca chez GetText$ am Ende un Leerzeichen hinzugerät, sais je allerdings selbst pas.
PS: encore la fois dans qui Aider geblättert. GetText$ ist gar pas pour Choiceboxen gedacht. dans qui Aider steht bien sûr, dass cet -- oui c'est ca comment Listboxen -- mittels GetString$ auszulesen sommes. |
|
| |
| |
| |
|
|
|
 | | Du bedenkst cela qui 1. Eintrag eines Arrays qui ID 0 besitzt? |
|
| |
| |
| |
|
|
Nico
Madysa | qui faute liegt dans qui la ligne:
KompilierenMarqueSéparation
jusqu'à dato wusste je pas la fois, dass on GetText$ so benutzen darf.
cela Problem liegt y, dass qui String, den du ici erhältst, encore un zusätzliches Leerzeichen am Ende hat -- cela du dans deinen MessageBoxen naturellement pas voyons konntest. Hättest du la fois que voici incorporé:
KompilierenMarqueSéparation
ensuite hättest du gesehen, dass avant dem schließenden Strich une Lücke klafft.
Umwege, cela trop lösen, gibt es deux. Du könntest einmal mittels Trim$ cela Leerzeichen beseitigen:
KompilierenMarqueSéparation
ou bien du utilise GetString$, comment je es bisher pour richtig gehalten habe:
KompilierenMarqueSéparation
Beides sollte zum but mener.
pourquoi oui c'est ca chez GetText$ am Ende un Leerzeichen hinzugerät, sais je allerdings selbst pas.
PS: encore la fois dans qui Aider geblättert. GetText$ ist gar pas pour Choiceboxen gedacht. dans qui Aider steht bien sûr, dass cet -- oui c'est ca comment Listboxen -- mittels GetString$ auszulesen sommes. |
|
| |
| |
| |
|
|
Julian
Schmidt | thx  |
|
| |
| ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...] | 09.05.2011 ▲ |
|
| |
|
(508)
Deutsch
English
Français
Español
Italia