MonthView1

[baranich]

Помогите.
У меня есть MonthView1, мне надо в нем сделать так чтоб выходные и праздники были показаны красным цветом....
Как это сделать я не пойму.

[Alexanbar]

По-моему, никак.

[Sirik]

откуда твой контрол (созданий между прочим несколько лет назад) может "знать" какие праздники "вбила" в этом году Дума ?

[Andrey Fedorov]

откуда твой контрол (созданий между прочим несколько лет назад) может "знать" какие праздники "вбила" в этом году Дума ?

Это можно и самому проставить. Исключения то бишь.

А реализовать данный календарик можно на любом Grid-е поддерживающем расскраску. Ну или самим нарисовать, в конце-концов (если Grid использовать неохота) - не столь оно и сложно.

[GSerg]

Можно жирным выделить...

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

Private Sub MonthView1_GetDayBold(ByVal StartDate As Date, ByVal Count As Integer, State() As Boolean)
  Dim i As Long
 
  Count = LBound(State) - Count
 
  For i = LBound(State) To UBound(State)
    Select Case Weekday(StartDate + i - Count)
    Case vbSaturday, vbSunday
      State(i) = True
    End Select
  Next
End Sub

[Andrey Fedorov]

Помогите.
У меня есть MonthView1, мне надо в нем сделать так чтоб выходные и праздники были показаны красным цветом....
Как это сделать я не пойму.

Немножко набросал на днях - можешь попробовать мой MonthView.
Позволяет задавать рабочие/выходные дни. Ну и заодно можно выводить в его ячейки что угодно - см в примере.

Делал как пример на скорую руку - оптимизацией особо не занимался.