Вопрос : Когда управление ActiveX на форме изменяет, приложите новое значение к другому управлению на форме.

Я имею управление ActiveX «календара» на названной форме «frmMain».  Если дает меня для по возможности случаев:, то
1) на Updated
2) на Enter
3) на Exit
4) на полученном Focus
5) на потерянном Focus

I имеет другое названное управление формы «txtDate» автоматически принимаемым значением будет DateRange90 («старт»), которое основано на
listed функции под которым основаны на моем календаре ActiveX Control.

When нагрузки формы, «txtDate» заселено с значением DateRange90 («старта»).  Однако, когда потребитель изменяет к дате календара через управление ActiveX, я хочу новую дату быть отраженным в «txtDate».  Все идеи на как я могу сделать эту работу?

class= " ясное " >
> " codeSnippet " class=
class= " lineNumbers "
class= 
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:
функция DateRange90 " class= " id= " codeSnippet837007 
Public (StartEnd) как длиной
    
    Тусклое StartYear как шнур
    Тусклое StartMonth как шнур
    Тусклое StartDay как шнур
    Тусклое EndYear как шнур
    Тусклое EndMonth как шнур
    Тусклое EndDay как шнур
    
    Тусклое StartDay_S как шнур
    Тусклое EndDay_S как шнур
    
    Тусклое StartDay_I как длиной
    Тусклое EndDay_I как длиной
    
    Если StartEnd = «начинает» после этого
        StartYear = [формы]! [frmMain]! actxCalendar90Start.Year
        StartMonth = [формы]! [frmMain]! actxCalendar90Start.Month
        StartDay = [формы]! [frmMain]! actxCalendar90Start.Day
        
        Если Len (StartMonth) = 1 после этого
            StartMonth = «0» & StartMonth
        Закончитесь если
        
        Если Len (StartDay) = 1 после этого
            StartDay = «0» & StartDay
        Закончитесь если
        
        StartDay_S = StartYear & StartMonth & StartDay
        StartDay_I = CLng (StartDay_S)
        DateRange90 = StartDay_I
        
    ElseIf StartEnd = «конец» после этого
        EndYear = [формы]! [frmMain]! actxCalendar90End.Year
        EndMonth = [формы]! [frmMain]! actxCalendar90End.Month
        EndDay = [формы]! [frmMain]! actxCalendar90End.Day
        
        Если Len (EndDay) = 1 после этого
            EndDay = «0» & EndDay
        Закончитесь если
        
        Если Len (EndMonth) = 1 после этого
            EndMonth = «0» & EndMonth
        Закончитесь если
        
        EndDay_S = EndYear & EndMonth & EndDay
        EndDay_I = CLng (EndDay_S)
        
        DateRange90 = EndDay_I
    Закончитесь если
    

Закончите функцию
class=

Ответ : Когда управление ActiveX на форме изменяет, приложите новое значение к другому управлению на форме.

Пожалуйста препятствуйте мне предложить по-разному картину конструкции (это PayPal и другая изощренная польза мест).

Когда вы имеете сообщение для меня, используйте в настоящее время DATETIME, мое удостоверение личности клиента, и содержание сообщения и составляйте справочник сообщения using md5 ().  Храньте мое сообщение и () шнур md5 в вашей базе данных.

Пошлите мной электронная почта незашифрованныйа текст с соединением к сценарию сообщени-читателя.  Сценарий имеет () ключа md5 в URL и это будет только имеющимся задним HTTPS.

Сценарий требует моих удостоверения личности клиента и пароля и утверждает эти.  После этого когда я authenticated он показывает сообщение над страницой стержня HTTPS.

В этой картине конструкции вы не имеете необходимо никакой риск перехвата электронная почта -- sniffs всякий, кто, котор для этого все еще было бы нужно знать UID и пароль.  И с вас представьте сообщение над HTTPS, вам не нужно шифровать что-нибыдь, и вашему клиенту не нужно decrypt что-нибыдь - он совсем автоматический.  Вы smogли даже использовать предварительное HTML вводя в моду для того чтобы сделать ваш взгляд сообщения славным!

То делает чувство для вашего app?

Само лучше, ~Ray
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us