| |
| |
|
E.T. | So, da ich nun den halben Nachmittag ohne Ergebnis damit verbracht habe, eine Lösung zu finden, hier meine Frage:
Wie kann ich ein SysMonthCal32 dazu bewegen, auf ein bestimmtes Datum zu springen ??
  
Das wälzen sämtlicher Literatur (incl. commctrl.ph) hat mich auch nicht weiter gebracht. Ich hab zwar alles mögliche rausgefunden (z.B. Wochen-Nr-Anzeige, 1.Wochentag ändern usw.), aber das setzen eines bestimmten Tages im Control ist mir nicht gelungen. Hab div. Messages durchprobiert, von einfachen Werten bis hin zu Strukturen an das Ding geschickt  .
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... | 23.12.2008 ▲ |
|
| |
|
|
Stefan
M.
Caillet | Hallo E.T.
Wenn Du mit Deiner Frage das Auswählen eines Datums meinst, also wie wenn Du mit der Maus einen bestimmten Tag auswählst, Hilft Dir folgende Procedur weiter: (Du kannst Sie auch als normale, - nicht SubProc umschreiben und verwenden)
Hoffe es hilft:
KompilierenMarkierenSeparieren
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 | 23.12.2008 ▲ | |
|
| |
|
|
E.T. | Danke per die schnelle Antwort.
Das ist leider nicht ganz das, was ich suche, deine Variante ändert das Heute-Datum.
Was ich meine: Ich will z.B. per Sendmessage ein Datum an das Control senden, so das die Markierung (wie mit der Maus angeklickt) auf das übergebene Datum springt. |
|
| |
| 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... | 23.12.2008 ▲ |
|
| |
|
|
E.T. | Ha, ich habs: Mit MCM_SETCURSEL (soweit war ich ja schon).
Meine Struktur war Falsch  , mit der Struktur von 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... | 23.12.2008 ▲ |
|
| |
|
|
Stefan
M.
Caillet | Hallo E.T.,
Ja, Sorry, war etwas im Stress, und hab aus Versehen die falsche SubProc aus meinem Prog. kopiert,
und war nun einige Tage nicht Online. Ist naturalmente folgende Proc.
KompilierenMarkierenSeparieren
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 | 28.12.2008 ▲ | |
|
| |
|
|
E.T. | @Stefan: Danke, habs hinbekommen (siehe ein Post zuvor).
Bin schon wieder von ganz anderen Sorgen 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... | 28.12.2008 ▲ |
|
| |
|
|
Stefan
M.
Caillet | Hallo E.T.
Ja, habe Dein Vorposting gelesen, den korekten Code habe ich nur der Vollständigkeit halber reingesetzt.
Zu deinen anderen Sorgen hab ich leider keine Lösung, da ich beim Subclassing (noch) nicht so richtig durchblicke. Tut mir leid, Dir in jener Hinsicht nicht helfen zu können.
Gruss 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 | 28.12.2008 ▲ |
|
| |
|
(447)
Deutsch
English
Français
Español
Italia