| |
|
|
Web Scanner | une neue Frage vom Web
je eröffne un Zeiteingabefeld: KompilierenMarqueSéparationDrawText 20,150, "Zeitdauer steigende Rampe "
timeEdit1& = @Create("TimeEdit", hd%, "00.00.00", 220, 148, 100, 24)e> ..et voudrais cela avec timeup& = @GetText$(timeEdit1&) auslesen.
là venez logischerweise seulement Schrott raus. je bräuchte qui Stunden et Minuten dans je einer eigenen Variablen, um cet ensuite weiterverarbeiten trop peut.
je hab dans qui cherche zwar bissel quoi trouvé, mais pas verstanden. Gibt es là une simple Solution?
merci + Grüße
Web |
|
|
| |
|
|
|
Rolf Koch | Hey Web peux oui so pas marcher, car Du utilise comme Variable une falsche. Du musst une Stringvariable zuordnen: KompilierenMarqueSéparation |
|
|
| |
|
|
|
Rolf Koch | Ok, ici la fois un Beispiel: KompilierenMarqueSéparation********************** HINWEISE ********************************
CODE ERZEUGT MIT ROKOS OBJECT CREATOR 4.7
DATUM 27.10.2009 um 21:44 Uhr
VERWENDETE PROFANVERSION IST 11.0-NT XPROFAN
CODE ERSTELLT UNTER WINDOWS Unbekannt
DECLARE TIMEEDIT1&,ENDE%,zeit$
Declare std$,min$,sek$,output&
DEF GETSYSCOLOR(1) !"USER32","GetSysColor"
WINDOWSTYLE 63
WINDOWTITLE "Zeitedit auslesen"
WINDOW 22,20-576,327
CLS GETSYSCOLOR(15)
USEFONT "MS Sans Serif",13,0,0,0,0
SETDIALOGFONT 1
Hier kann ggf. Ihr Menü hin
TIMEEDIT1& = CREATE("TIMEEDIT",%HWND,"",0018,0020,0120,0020)
Output&= CREATE("MULTIEDIT",%HWND,"",0178,0020,0120,-120)
SETFOCUS(%HWND)
REPAINT
WHILENOT ENDE%
WAITINPUT
zeit$=gettext$(timeedit1&)
std$=mid$(zeit$,1,2)
min$=mid$(zeit$,4,2)
sek$=mid$(zeit$,7,2)
Settext output&,"Stunden: "+std$+"
Minuten: "+min$+"
Sekunden: "+sek$
If %KEY=2
ENDE%= 1
ELSEIF %KEY=4
ELSEIF CLICKED(TIMEEDIT1&) TIMEEDIT
ENDIF
ENDWHILE
|
|
|
| |
|
|
|
Web Scanner | Oha, cela ging mais superschnell
Dankeschön! |
|
|
| |
|
|
|
Rolf Koch | comment chez Ebay qui Spruch: toujours wieder volontiers |
|
|
| |
|
|