| |
| |
|
| - Página 1 - |
|
Manfred
Barei | ¡Hola,
tener veces una Cuestión, es posible en el Crear("DateEdit", kein Startwert also Datum en aufruf des Edits eingetragen es.
Yo bräuchte Edit leer y sólo en gewähltem Datum una Eintrag.
Wenn posible Por favor, una kurzes Code Ejemplo.
Saludo |
|
| |
| XProfan X2Zu wenig Wissen ist gefärlich, zu viel auch.(XProfan X4) | Win 10 Pro 64 | Win7 Ultimate 32/64 | AMD FX-8320, 16GB, GeForce GT 630 | | 23.11.2015 ▲ |
|
| |
|
 |
« Dieser Contribución wurde como Solución gekennzeichnet. » |
|
H.Brill | Das SpinEdit scheint se wohl cada Clic
neu a befüllen, obwohl uno z.B. para M = 0 T = 0
y J = 0 eingibt.
Das beste para dein Vorhaben sería wohl una
Kalender con
calender& = Control("SysMonthCal32","", $54000004,150,100,202,155,%hwnd,2000,%hInstance)
a redactar y selber una Editar campo oder SpinEdit darüber
pappen. Code para Auslesen des Kalendercontrols findest
du sí en el Foro dafür.
Ist sólo entonces algo mehr Arbeit. Roland hatte damals
auch qué dazu gemacht :
KompilierenMarcaSeparación'SysMonthCal
'-----------
$H Windows.ph
$H Messages.ph
$H commctrl.ph
Declarar OldTest&,ende%
Struct POINT = \
x&, \
y&
Struct SYSTEMTIME = \
wYear%, \
wMonth%, \
wDayOfWeek%, \
wDay%, \
wHour%, \
wMinute%, \
wSecond%, \
wMilliseconds%
Struct MCHITTESTINFO = \
cbSize&, \
pt!POINT, \
uHit&, \
st!SYSTEMTIME
Proc Get_MonthCalHit
Declarar DATA#, HIT%
Dim DATA#,MCHITTESTINFO
DATA#.cbSize& = SizeOf(DATA#)
DATA#.pt!x& = %MouseX - 500
DATA#.pt!y& = %MouseY - 150
Var QT% = SendMessage(KAL1&,$100E,0,DATA#)' $100E = $1000 + 14 = HITTEST
Var TEXT$ = str$(DATA#.st!wDay%)+"."+str$(DATA#.st!wMonth%)+"."+str$(DATA#.st!wYear%)
Messagebox(TEXT$,"HITFLAG "+Str$(QT%),$40000)
Disponer DATA#
RETORNO QT%
ENDPROC
WINDOW 0,0 - 800,600
Var KAL1& = Control("SysMonthCal32", "Kalender", 1342177280, 500, 150, 180, 406, %HWND, 0, %hInstance, 0)
Sinestar encargado Ende%
Waitinput
If %Key = 2
Ende% = 1
Más
Get_MonthCalHit
EndIf
EndWhile
|
|
| |
| Benutze XPROFAN X3 + FREEPROFAN
Wir sind die XProfaner.
Sie werden von uns assimiliert.
Widerstand ist zwecklos!
Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.
Was die Borg können, können wir schon lange. | 23.11.2015 ▲ |
|
| |
|
|
|
ByteAttack | | Einem DateTimePicker kannst sólo una gültiges Datum zuweisen, como lo con DBNull no umgehen kann. |
|
| |
| |
| |
|
|
H.Brill | Yo nehme veces a, daß Manfred no el DateTimePicker,
pero el SpinEdit neu conjunto voluntad.
Como podría sólo Roland algo hacer.
Das DateEdit scheint sí una zusammengesetztes
Control a ser :
Der eigentliche Picker : SysMonthCal32
y una SpinEdit darüber.
Wenn al Kalender-Control en @Control-Función
producido, sieht uno, daß como sólo el eigentliche Kalender
erstellt se :
KompilierenMarcaSeparación
Folglich bräuchte al Handle des SpinEdits,
en como qué a ändern. |
|
| |
| Benutze XPROFAN X3 + FREEPROFAN
Wir sind die XProfaner.
Sie werden von uns assimiliert.
Widerstand ist zwecklos!
Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.
Was die Borg können, können wir schon lange. | 23.11.2015 ▲ |
|
| |
|
|
Manfred
Barei | ¡Hola,
lo va en folgendes, Yo una Formular en el hay una DateEdit con Bestelldatum.
Nun kann lo aber folgende konstellationen geben, lo se el Aktuelle Datum o. una Datum früher como Aktuell o. una Datum später Aktuell oder aber auch kein Datum, entonces muß Edit leer bleiben así beim Druck no una Datum erscheint qué garnicht gewolt es.
Darum mi Cuestión si al DatEdit no auch leer erzeugen kann.
Saludo |
|
| |
| XProfan X2Zu wenig Wissen ist gefärlich, zu viel auch.(XProfan X4) | Win 10 Pro 64 | Win7 Ultimate 32/64 | AMD FX-8320, 16GB, GeForce GT 630 | | 23.11.2015 ▲ |
|
| |
|
|
H.Brill | Das SpinEdit scheint se wohl cada Clic
neu a befüllen, obwohl uno z.B. para M = 0 T = 0
y J = 0 eingibt.
Das beste para dein Vorhaben sería wohl una
Kalender con
calender& = Control("SysMonthCal32","", $54000004,150,100,202,155,%hwnd,2000,%hInstance)
a redactar y selber una Editar campo oder SpinEdit darüber
pappen. Code para Auslesen des Kalendercontrols findest
du sí en el Foro dafür.
Ist sólo entonces algo mehr Arbeit. Roland hatte damals
auch qué dazu gemacht :
KompilierenMarcaSeparación'SysMonthCal
'-----------
$H Windows.ph
$H Messages.ph
$H commctrl.ph
Declarar OldTest&,ende%
Struct POINT = \
x&, \
y&
Struct SYSTEMTIME = \
wYear%, \
wMonth%, \
wDayOfWeek%, \
wDay%, \
wHour%, \
wMinute%, \
wSecond%, \
wMilliseconds%
Struct MCHITTESTINFO = \
cbSize&, \
pt!POINT, \
uHit&, \
st!SYSTEMTIME
Proc Get_MonthCalHit
Declarar DATA#, HIT%
Dim DATA#,MCHITTESTINFO
DATA#.cbSize& = SizeOf(DATA#)
DATA#.pt!x& = %MouseX - 500
DATA#.pt!y& = %MouseY - 150
Var QT% = SendMessage(KAL1&,$100E,0,DATA#)' $100E = $1000 + 14 = HITTEST
Var TEXT$ = str$(DATA#.st!wDay%)+"."+str$(DATA#.st!wMonth%)+"."+str$(DATA#.st!wYear%)
Messagebox(TEXT$,"HITFLAG "+Str$(QT%),$40000)
Disponer DATA#
RETORNO QT%
ENDPROC
WINDOW 0,0 - 800,600
Var KAL1& = Control("SysMonthCal32", "Kalender", 1342177280, 500, 150, 180, 406, %HWND, 0, %hInstance, 0)
Sinestar encargado Ende%
Waitinput
If %Key = 2
Ende% = 1
Más
Get_MonthCalHit
EndIf
EndWhile
|
|
| |
| Benutze XPROFAN X3 + FREEPROFAN
Wir sind die XProfaner.
Sie werden von uns assimiliert.
Widerstand ist zwecklos!
Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.
Was die Borg können, können wir schon lange. | 23.11.2015 ▲ |
|
| |
|
(267)
Deutsch
English
Français
Español
Italia