Frage : Wenn ActiveX-Steuerung auf Form ändert, neuen Wert an einer anderen Steuerung auf Form anwenden.

Ich habe eine „Kalender“ ActiveX-Steuerung auf einer Form, die „frmMain“ genannt wird.  Wenn mich für mögliche Ereignisse gibt:
1) auf Updated
2) auf Enter
3) auf Exit
4) auf erhaltenem Focus
5) auf verlorenem Focus

I haben eine andere Formsteuerung, die „txtDate“ genannt wird, dessen Default-Wert DateRange90 („Anfang“) ist, das auf dem Funktion
listed basiert, unterhalb dessen auf meinem Kalender ActiveX Control.

When die Formlasten basiert, das „txtDate“ wird bevölkert mit dem Wert von DateRange90 („Anfang“).  Jedoch wenn der Benutzer zum Kalendertag über die ActiveX-Steuerung ändert, wünsche ich das neue Datum „im txtDate“ reflektiert werden.  Irgendwelche Ideen auf, wie ich diese Arbeit bilden kann? 

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
6:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:

Public Funktion DateRange90 (StartEnd) als lang
    
    Schwaches StartYear als Schnur
    Schwaches StartMonth als Schnur
    Schwaches StartDay als Schnur
    Schwaches EndYear als Schnur
    Schwaches EndMonth als Schnur
    Schwaches EndDay als Schnur
    
    Schwaches StartDay_S als Schnur
    Schwaches EndDay_S als Schnur
    
    Schwaches StartDay_I als lang
    Schwaches EndDay_I als lang
    
    Wenn StartEnd = dann „beginnen“
        StartYear = [Formen]! [frmMain]! actxCalendar90Start.Year
        StartMonth = [Formen]! [frmMain]! actxCalendar90Start.Month
        StartDay = [Formen]! [frmMain]! actxCalendar90Start.Day
        
        Wenn Len (StartMonth) = 1 dann
            StartMonth = „0“ u. StartMonth
        Beenden wenn
        
        Wenn Len (StartDay) = 1 dann
            StartDay = „0“ u. StartDay
        Beenden wenn
        
        StartDay_S = StartYear u. StartMonth u. StartDay
        StartDay_I = CLng (StartDay_S)
        DateRange90 = StartDay_I
        
    ElseIf StartEnd = „Ende“ dann
        EndYear = [Formen]! [frmMain]! actxCalendar90End.Year
        EndMonth = [Formen]! [frmMain]! actxCalendar90End.Month
        EndDay = [Formen]! [frmMain]! actxCalendar90End.Day
        
        Wenn Len (EndDay) = 1 dann
            EndDay = „0“ u. EndDay
        Beenden wenn
        
        Wenn Len (EndMonth) = 1 dann
            EndMonth = „0“ u. EndMonth
        Beenden wenn
        
        EndDay_S = EndYear u. EndMonth u. EndDay
        EndDay_I = CLng (EndDay_S)
        
        DateRange90 = EndDay_I
    Beenden wenn
    

Funktion beenden

Antwort : Wenn ActiveX-Steuerung auf Form ändert, neuen Wert an einer anderen Steuerung auf Form anwenden.

Mich ein anderes Entwurfsmuster vorschlagen bitte lassen (dieses ist, was PayPal und anderer hoch entwickelter Aufstellungsortgebrauch).

Wenn Sie eine Mitteilung für mich haben, das gegenwärtige DATUM/UHRZEIT, meine Klientenidentifikation und den Mitteilunginhalt benutzen und eine Mitteilungauswahl using md5 bilden ().  Meine Mitteilung und die () Schnur md5 in Ihrer Datenbank speichern.

Mich eine Klartext-eMail mit einer Verbindung zum Mitteilungleser Index schicken.  Der Index hat den () Schlüssel md5 im URL und es ist nur vorhandenes hinteres HTTPS.

Der Index erfordert meine Klient Identifikation und Kennwort und validiert diese.  Dann, wenn ich beglaubigt, zeigt er die Mitteilung über der HTTPS Webseite.

In diesem Entwurfsmuster haben Sie im Wesentlichen kein Risiko des Abfangens der eMail -- jedermann, das sie schnüffelt, müssen noch das UID und das Kennwort kennen.  Und seit Ihnen die Mitteilung über HTTPS darstellen, brauchen Sie, nichts zu verschlüsseln, und Ihr Klient braucht, nichts zu entschlüsseln - es ist ganz automatisch.  Sie konnten vorgerücktes HTML sogar benutzen, das anredet, um Ihren Mitteilungblick nett zu bilden!

Ist das sinnvoll für Ihre APP?

Am besten, ~Ray
Weitere Lösungen  
 
programming4us programming4us