| |
| |
|
E.T. | So, como Yo nun el halben Nachmittag sin Ergebnis así verbracht habe, una solución para encontrar, hier mi Cuestión:
¿Cómo se puede Yo una SysMonthCal32 dazu bewegen, en una bestimmtes Datum a springen ??
  
Das wälzen sämtlicher Literatur (incl. commctrl.ph) ha mich auch no más gebracht. Yo zwar alles mögliche rausgefunden (z.B. Wochen-Nr-Anzeige, 1.Wochentag ändern usw.), aber el conjunto uno cierto Tages en el Control Yo no soy gelungen. Hab div. Messages durchprobiert, de einfachen Werten a hin a Estructuras a lo 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 | ¡Hola E.T.
Si usted con Deiner Cuestión el Auswählen uno Datums media, Entonces, ¿cómo si con ratón una cierto Tag auswählst, Hilft Usted folgende Procedur más: (Usted puede Sie auch como normale, - no SubProc umschreiben y uso)
Hoffe lo hilft:
KompilierenMarcaSeparación
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. | Gracias para la respuesta rápida.
Es por desgracia, no bastante el, Yo búsqueda, deine Variante ändert el Heute-Datum.
Was Yo mi: Yo voluntad z.B. por SendMessage una Datum a el Control senden, así el el Markierung (como con ratón angeklickt) el ü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, Yo habs: Mit MCM_SETCURSEL (soweit war Yo sí ya).
Mi Struktur war Falsch  , con el 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 | ¡Hola E.T.,
Sí, Sorry, war algo en el Stress, y tener de Versehen el falsche SubProc de mi Prog. kopiert,
y war nun algunos Tage no Online. Ist natürlich folgende Proc.
KompilierenMarcaSeparación
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: Gracias, habs hinbekommen (siehe una Post zuvor).
Bin ya otra vez de bastante otro 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 | ¡Hola E.T.
Sí, habe Su Vorposting gelesen, el korekten Code Yo sólo el Vollständigkeit halber reingesetzt.
Zu deinen otro Sorgen tener Yo desafortunadamente no Solución, como Yo beim Subclassing (todavía) no así correcto durchblicke. Tut me leid, Usted en jener Hinsicht no helfen a puede.
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.103)
Deutsch
English
Français
Español
Italia