| |
| |
|
| - Page 1 - |
|
Manfred
Barei | Hi,
Have time a question, is it possible the with Create("DateEdit", no Startwert means date with appeal the Edits registered is.
I bräuchte the Edit empty and only gewähltem date one entry.
If possible Please one kurzes code example.
Greeting |
|
| |
| 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 | | 11/23/15 ▲ |
|
| |
|
 |
« this Posting watts as Solution marked. » |
|
H.Brill | the SpinEdits shining itself well each Click
new To befüllen, though one z.B. for M = 0 T = 0
and J = 0 types.
the best for your think about would well a
Calendar with
calender& = Control("SysMonthCal32","", $54000004,150,100,202,155,%hwnd,2000,%hinstance)
to create and yourself one Editfeld or SpinEdits above
pasteboards. code to that Reading the Kalendercontrols find
You Yes in the Forum for.
is hold then little more work. Roland having then
too what moreover made :
CompileMarkSeparation'SysMonthCal
'-----------
$H windows.ph
$H Messages.ph
$H commctrl.ph
Declare OldTest&,end%
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
Declare 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$ = st$(DATA#.st!wDay%)+"."+st$(DATA#.st!wMonth%)+"."+st$(DATA#.st!wYear%)
Messagebox(TEXT$,"HITFLAG "+Str $(QT%),$40000)
Dispose DATA#
RETURN QT%
ENDPROC
WINDOW 0,0 - 800,600
Var KAL1& = Control("SysMonthCal32", "Kalender", 1342177280, 500, 150, 180, 406, %HWND, 0, %hInstance, 0)
WhileNot end%
Waitinput
If %Key = 2
end% = 1
Else
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. | 11/23/15 ▲ |
|
| |
|
|
|
ByteAttack | | one DateTimePicker can only one gültiges date allocate, there it with DBNull not bypass can. |
|
| |
| |
| |
|
|
H.Brill | I take at times, that Manfred not whom DateTimePicker,
separate the SpinEdits new settle wants.
there could only Roland matter.
the DateEdit shining yes a zusammengesetztes
Control To his :
The eigentliche Picker : SysMonthCal32
and a SpinEdits above.
If to the Calendar-Control over The @Control-function
created, sees one, that there only the eigentliche Calendar
prepares becomes :
CompileMarkSeparation
accordingly bräuchte to the lever the SpinEdits,
circa there what To Change. |
|
| |
| 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. | 11/23/15 ▲ |
|
| |
|
|
Manfred
Barei | Hi,
it's about the following, I have one form in the there one DateEdit with Bestelldatum.
now can But following konstellationen give, it'll the actually date or. one date earlier currently or. one date later currently or but too no date, then must the Edit empty stay so at pressure not one date appear what not at all gewolt is.
therefore my question whether to the DatEdit not too empty produce can.
Greeting |
|
| |
| 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 | | 11/23/15 ▲ |
|
| |
|
|
H.Brill | the SpinEdits shining itself well each Click
new To befüllen, though one z.B. for M = 0 T = 0
and J = 0 types.
the best for your think about would well a
Calendar with
calender& = Control("SysMonthCal32","", $54000004,150,100,202,155,%hwnd,2000,%hinstance)
to create and yourself one Editfeld or SpinEdits above
pasteboards. code to that Reading the Kalendercontrols find
You Yes in the Forum for.
is hold then little more work. Roland having then
too what moreover made :
CompileMarkSeparation'SysMonthCal
'-----------
$H windows.ph
$H Messages.ph
$H commctrl.ph
Declare OldTest&,end%
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
Declare 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$ = st$(DATA#.st!wDay%)+"."+st$(DATA#.st!wMonth%)+"."+st$(DATA#.st!wYear%)
Messagebox(TEXT$,"HITFLAG "+Str $(QT%),$40000)
Dispose DATA#
RETURN QT%
ENDPROC
WINDOW 0,0 - 800,600
Var KAL1& = Control("SysMonthCal32", "Kalender", 1342177280, 500, 150, 180, 406, %HWND, 0, %hInstance, 0)
WhileNot end%
Waitinput
If %Key = 2
end% = 1
Else
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. | 11/23/15 ▲ |
|
| |
|
(946)
Deutsch
English
Français
Español
Italia