| |
|
|
E.T. | so, I now whom half-way afternoon without Result so spent have, a Solution to find, here my question: How can I one SysMonthCal32 moreover moving, on one bestimmtes date To jumping ?? the wallow sämtlicher Literatur (incl. commctrl.ph) has me neither moreover brought. I Have of course all sorts of things rausgefunden (z.B. weeks-Nr-display, 1.week-day Change etc.), but the settle one designed Day in the Control is me not been successful. Have div. Messages durchprobiert, of einfachen Values To there To Structures on the thing skillful .
MB: [...] |
|
|
| Grüße aus Sachsen... Mario WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte... | 12/23/08 ▲ |
|
|
|
|
Stefan M. Caillet | Hello E.T. If you with your question the select one Datums mean, So how if you with the mouse a designed day auswählst, helps you following Procedur moreover: (You can tappt im dunkeln too as normal, - not SubProc paraphrase and use) hope it helps: CompileMarkSeparation
SubProc Set.MonthCalDate
Parameters HDL&,DAT$ HDL = Handel des Kalenders. Dat$ = TT.MM.JJJJ
Case %pcount = 0 : Return 1 Nur zur Sicherheit, da ich die SubProc als
Befehlserweiterung in div Progs. nutze
Declare DATA#
Dim DATA#,20
Case %pcount = 1 : Dat$ = DATE$(0)
Word DATA#,0 = VAL(SubStr$(Dat$,3,.)) Jahr
Word DATA#,2 = VAL(SubStr$(Dat$,2,.)) Monat
Word DATA#,6 = VAL(SubStr$(Dat$,1,.)) Tag
Var QT% = SendMessage(HDL&,$100C,0,DATA#)
Dispose DATA#
Return QT% 0 = Erfolg
Ich habe grosses Glück, weil ich Mitmenschen helfen darf. Entwicklungsumgebung: XProfan11 , Win XP Pro 32Bit , Win XP Home ,Win7 HomePremium 64Bit PC: P4/3GHz , 2GB RAM , 1700GB HD Laptop: Intel Core 2 Duo /2,2GHz , 4GB RAM , 500GB HD | 12/23/08 ▲ | |
|
|
|
|
E.T. | thanks for speedy response.
this is unfortunately not integrally the, I Search, your Variante changes the today-date. what I mean: i will z.B. by Sendmessage one date on the control Send, so the The Mark (How with the mouse klicked) the übergebene date jumping. |
|
|
| Grüße aus Sachsen... Mario WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte... | 12/23/08 ▲ |
|
|
|
|
E.T. | Ha, I habs: with MCM_SETCURSEL (so far i was already). my structure was wrong , with the structure of Stefan funktionierts !!! |
|
|
| Grüße aus Sachsen... Mario WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte... | 12/23/08 ▲ |
|
|
|
|
Stefan M. Caillet | Hello E.T., Yes, Sorry, was something in the Stress, and Have from slip The incorrect SubProc from my Prog. copies, and was now some days not Online. is naturally following Proc. CompileMarkSeparation
SubProc Set.MonthCalSelect
Parameters HDL&,DAT$ HDL = Handel des Kalenders. Dat$ = TT.MM.JJJJ
Case %pcount = 0 : Return 1 Nur zur Sicherheit, da ich die SubProc als
Befehlserweiterung in div Progs. nutze
Declare DATA#
Dim DATA#,20
Case %pcount = 1 : Dat$ = DATE$(0)
Word DATA#,0 = VAL(SubStr$(Dat$,3,.)) Jahr
Word DATA#,2 = VAL(SubStr$(Dat$,2,.)) Monat
Word DATA#,6 = VAL(SubStr$(Dat$,1,.)) Tag
Var QT% = SendMessage(HDL&,$1002,0,DATA#)
Dispose DATA#
Return QT% 0 = Erfolg
Ich habe grosses Glück, weil ich Mitmenschen helfen darf. Entwicklungsumgebung: XProfan11 , Win XP Pro 32Bit , Win XP Home ,Win7 HomePremium 64Bit PC: P4/3GHz , 2GB RAM , 1700GB HD Laptop: Intel Core 2 Duo /2,2GHz , 4GB RAM , 500GB HD | 12/28/08 ▲ | |
|
|
|
|
E.T. | @Stefan: thanks, habs hinbekommen (see one mail before). be again of integrally others care geplagt: [...] |
|
|
| Grüße aus Sachsen... Mario WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte... | 12/28/08 ▲ |
|
|
|
|
Stefan M. Caillet | Hello E.T. Yes, have your Vorposting red, whom korekten code have I only the Vollständigkeit halber reingesetzt. To your others care Have I unfortunately no Solution, I at Subclassing (yet) not so correctly. durchblicke. does me sorrow, you in jener Hinsicht not help to. greeting Stefan |
|
|
| Ich habe grosses Glück, weil ich Mitmenschen helfen darf. Entwicklungsumgebung: XProfan11 , Win XP Pro 32Bit , Win XP Home ,Win7 HomePremium 64Bit PC: P4/3GHz , 2GB RAM , 1700GB HD Laptop: Intel Core 2 Duo /2,2GHz , 4GB RAM , 500GB HD | 12/28/08 ▲ |
|
|
|