Глюк компонента Microsoft Calendar Control

[Alexanbar]

ПРи смене месяца или года день обнуляется, в результате чего при попытке чтения месяца и года выдаются нули, в то время, как видим мы абсолютно ненулевые конкретные значения. Пока не ткнешь на к-л день, ситуация не меняется. ОДнако лишнее тыканье не всегда входит в наши планы, а , меняя месяц или год, мы не планируем менять день, поэтому сей глюк откорректировал следующим образом:

Код: Выделить всё

Private myDay As Integer
....
Private Sub Calendar1_Click()
myDay = Me.Calendar1.Day

End Sub

Private Sub Calendar1_NewMonth()
CorrectDay
End Sub

Private Sub Calendar1_NewYear()
CorrectDay
End Sub

private Sub CorrectDay()


md% = myDay
On Error Resume Next
'--------------------------
'переводи фокус в сторону от контрола. М.б. это и не обязательно
cmdOK.SetFocus
If Err.Number <> 0 Then
'если форма ещё не загружена,  на кнопку фокус передать нельзя, а  VB6, почему-то считает своим долгом вырубить программу по этому пустяковому поводу
   Err.Clear
    Exit Sub
End If
'--------------------------


If md > 1 Then
    Calendar1.Day = myDay - 1
Else
    Calendar1.Day = myDay + 1
End If
Calendar1.Day = md
Calendar1_Click
Err.Clear
On Error GoTo 0
End Sub
Private Sub Form_Activate()

myDay = Me.Calendar1.Day

End Sub



[Alexanbar]

Глюки продолжаются. Контрол не считает нужным сохранять параметры, указанные во время дизайна на всех компах, кроме моего. Метод борьбы: Задание нужных параметров в событии Form_Load:

Код: Выделить всё

With Calendar1
    .GridFont.Size = 12
    .GridFont.Name = "Arial Cyr"
    .GridFont.Italic = True
    .MonthLength = 0
    .FirstDay = 1
    .DayLength = 1
    .DayFont.Size = 9
    .DayFont.Name = "Times New Roman Cyr"
    .TitleFont.Name = "Arial Cyr"
    .TitleFont.Size = 9
   
End With


Обнаружено также, что в w98 контрол версии 11 работает неверно, те. в Combobox-ах выбора месяца и года ничего не отображается. Т.е. в дистрибутив нужно включать версию 9. Не пойму, где же тогда используется внрсия 10, если в дистрибутив Office2000 входит 9я, а в дистрибутив Offic XP - 11я?