Vraag : Wanneer de controle ActiveX op vormveranderingen, nieuwe waarde op een andere controle op vorm toepast.

Ik heb een Controle van ActiveX van de „Kalender“ op een genoemde vorm „frmMain“.  Als me voor mogelijke gebeurtenissen geeft:
1) op Updated
2) op Enter
3) op Exit
4) op Gekregen Focus
5) op Verloren Focus

I heeft een andere genoemde vormcontrole „txtDate“ de waarvan standaardwaarde DateRange90 („Begin“) is, die op de functie
listed gebaseerd is waaronder op mijn kalender ActiveX Control.

When de vormladingen gebaseerd is, is „txtDate“ bevolkt met de waarde van DateRange90 („Begin“).  Nochtans, wanneer de gebruiker in de kalenderdatum via de Controle ActiveX verandert, wil ik dat de nieuwe datum worden weerspiegeld in „txtDate“.  Om het even welke ideeën op hoe ik dit werk kan maken?

" codeBody " 
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:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:

Public Functie DateRange90 (StartEnd) zoals lang
    
    Schemerige StartYear als Koord
    Schemerige StartMonth als Koord
    Schemerige StartDay als Koord
    Schemerige EndYear als Koord
    Schemerige EndMonth als Koord
    Schemerige EndDay als Koord
    
    Schemerige StartDay_S als Koord
    Schemerige EndDay_S als Koord
    
    Schemerige StartDay_I zoals lang
    Schemerige EndDay_I zoals lang
    
    Als StartEnd = „dan begint“
        StartYear = [Vormen]! [frmMain]! actxCalendar90Start.Year
        StartMonth = [Vormen]! [frmMain]! actxCalendar90Start.Month
        StartDay = [Vormen]! [frmMain]! actxCalendar90Start.Day
        
        Als Len (StartMonth) = 1 toen
            StartMonth = „0“ & StartMonth
        Eind als
        
        Als Len (StartDay) = 1 toen
            StartDay = „0“ & StartDay
        Eind als
        
        StartDay_S = StartYear & StartMonth & StartDay
        StartDay_I = CLng (StartDay_S)
        DateRange90 = StartDay_I
        
    ElseIf StartEnd = „Eind“ toen
        EndYear = [Vormen]! [frmMain]! actxCalendar90End.Year
        EndMonth = [Vormen]! [frmMain]! actxCalendar90End.Month
        EndDay = [Vormen]! [frmMain]! actxCalendar90End.Day
        
        Als Len (EndDay) = 1 toen
            EndDay = „0“ & EndDay
        Eind als
        
        Als Len (EndMonth) = 1 toen
            EndMonth = „0“ & EndMonth
        Eind als
        
        EndDay_S = EndYear & EndMonth & EndDay
        EndDay_I = CLng (EndDay_S)
        
        DateRange90 = EndDay_I
    Eind als
    

De Functie van het eind

Antwoord : Wanneer de controle ActiveX op vormveranderingen, nieuwe waarde op een andere controle op vorm toepast.

Gelieve te laten me een verschillend ontwerppatroon (dit is wat PayPal en ander verfijnd plaatsengebruik) voorstellen.

Wanneer u een bericht voor me hebt, gebruik huidige DATETIME, mijn cliëntidentiteitskaart, en berichtinhoud en maak omhoog een bericht het gebruiken van md5 () verteren.  Sla mijn bericht en md5 () koord in uw database op.

Verzend me een duidelijk-tekst e-mail met een verbinding naar het bericht-lezer manuscript.  Het manuscript heeft de md5 () sleutel in URL en het is slechts beschikbaar achter HTTPS.

Het manuscript vereist mijn cliëntidentiteitskaart en wachtwoord en bevestigt deze.  Dan wanneer ik voor authentiek word verklaard toont het het bericht over de Https- Web-pagina.

In dit ontwerppatroon hebt u hoofdzakelijk geen risico van onderschepping van e-mail -- iedereen wie snuift zou het nog UID en het Wachtwoord moeten kennen.  En aangezien u het bericht over HTTPS voorlegt, te hoeven u niet om om het even wat te coderen, en uw cliënt te hoeven niet om om het even wat te decrypteren - het is automatisch allen.  U kon het geavanceerde stileren van HTML zelfs gebruiken om uw bericht aardig te maken kijken!

Ontdekt dat merk voor uw app?

Best, ~Ray
Andere oplossingen  
 
programming4us programming4us