| |
| |
|
E.T. | So, là je eh bien den halben l'après-midi sans Ergebnis avec cela verbracht habe, une Solution pour trouver, ici mon Frage:
comment peux je un SysMonthCal32 en supplément bewegen, sur un bestimmtes date trop springen ??
  
cela wälzen sämtlicher Literatur (incl. commctrl.ph) hat mich aussi pas plus gebracht. je hab zwar alles mögliche rausgefunden (z.B. Wochen-Nr-Anzeige, 1.Wochentag changement usw.), mais cela mettons eines certain Tages im Contrôle c'est moi pas gelungen. Hab div. Messages durchprobiert, de einfachen Werten jusqu'à hin trop Strukturen à cela Ding envoyé  .
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 | allô E.T.
si Du avec Deiner Frage cela Auswählen eines Datums meinst, Alors, comment si Du avec qui souris une certain journée auswählst, Hilft Dir folgende Procedur plus: (tu peux vous aussi comme normale, - pas SubProc paraphraser et verwenden)
Hoffe es hilft:
KompilierenMarqueSéparation
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. | merci pour qui schnelle Antwort.
c'est malheureusement pas entier cela, quoi je cherche, deine variante ändert cela aujourd'hui-date.
quoi je mon: je veux z.B. par mess un date à cela Contrôle senden, so cela qui Markierung (comment avec qui souris angeklickt) sur cela übergebene date 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, je habs: avec MCM_SETCURSEL (soweit était je oui déjà).
mon Struktur était faux  , avec qui Struktur de 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 | allô E.T.,
oui, Sorry, était quelque chose im Stress, et hab aus Versehen qui falsche SubProc aus meinem Prog. kopiert,
et était eh bien quelques Tage pas Online. Ist naturellement folgende Proc.
KompilierenMarqueSéparation
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: merci, habs hinbekommen (siehe un poste zuvor).
suis encore de entier 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 | allô E.T.
oui, habe Dein Vorposting gelesen, den korekten Code habe je seulement qui Vollständigkeit halber reingesetzt.
trop deinen anderen Sorgen hab je malheureusement aucun Solution, là je beim Subclassing (encore) pas so richtig durchblicke. Tut mir leid, Dir dans celui-là Hinsicht pas aider trop peut.
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 ▲ |
|
| |
|
(1.108)
Deutsch
English
Français
Español
Italia