формат (по цвету) выходных дней в FlexGrid

[pooli]

на форме flexgrid, при выборе диапазона календаря в сетку вписываются дни недели.
Подскажите как организовать выделение цветом (в шапке) выходных дней?

[R Dmitry]

Сообщение от pooli

на форме flexgrid, при выборе диапазона календаря в сетку вписываются дни недели.
Подскажите как организовать выделение цветом (в шапке) выходных дней?

Здравствуйте,pooli

красить грид можно примерно так

Private Sub Кнопка1_Click()
With Me.MSFlexGrid0
For i = 1 To 21 Step 7
.Row = 0
.Col = i
.CellBackColor = 65535
.Col = i + 1
.CellBackColor = 65535
Next
End With
End Sub

Данный код раскрасит нулевую строку грида......
так как Ваш красивый скрин не дает четкого определения даты, то и ответ получился приблизительным, но общий принцип я Вам показал.
С уважением, Дмитрий.

[R Dmitry]

Private Sub Кнопка1_Click()
Dim x&, c&, nd&
nd = Format(Me.Поле6, "w", vbMonday)
If nd = 6 Then x = 1: c = 1
If nd = 7 Then x = 1: c = 0
If nd < 6 Then x = 7 - nd: c = 1
On Error Resume Next
With Me.MSFlexGrid0
For i = x To .Cols Step 7
.Row = 0
.Col = i
.CellBackColor = 65535
.Col = i + c 
.CellBackColor = 65535
If nd = 7 Then c = -1
Next
End With
End Sub

поле6 - значение стартовой даты
Этот способ если в гриде не дата а только число, если в гриде дата, то можно красить пройдясь по ячейкам в цикле и определяя день недели - если больше пяти то красим.

ну если не разберетесь , спрашивайте

[pooli]

так строится сетка...

Sub blankGrid() 'ïóñòàÿ ñåòêà

   Dim db As Database, rst As Recordset, datX As Date
   Dim r, c As Integer
   
   If IsNull(Int(ocxStartDate.Value)) Then
      Message vbCrLf & "Íå ââåäåíà äàòà íà÷àëà ïåðèîäà ðàçìåùåíèÿ"
      Exit Sub
   End If
   If IsNull(Int(ocxEndDate.Value)) Then
      Message vbCrLf & "Íå ââåäåíà äàòà îêîí÷àíèÿ ïåðèîäà ðàçìåùåíèÿ"
      Exit Sub
   End If
   If Int(ocxStartDate.Value) > Int(ocxEndDate.Value) Then
      Message vbCrLf & "Äàòà íà÷àëà ïåðèîäà ðàçìåùåíèÿ íå äîëæíà áûòü áîëåå äàòû îêîí÷àíèÿ ðàçìåùåíèÿ"
      Exit Sub
   End If
   
   ocxGrid.Cols = Int(ocxEndDate.Value) - Int(ocxStartDate.Value) + 2
   ocxGrid.Rows = 2
   ocxGrid.MergeRow(0) = True
   ocxGrid.Row = 0:                        ocxGrid.Col = 0
   ocxGrid.RowSel = 1:      ocxGrid.ColSel = ocxGrid.Cols - 1
   ocxGrid.Font.Bold = True
   ocxGrid.CellAlignment = flexAlignCenterCenter
   
   For c = 1 To ocxGrid.Cols - 1
      ocxGrid.ColWidth(c) = 400 'ðàçìåð ñèìâîëîâ â øàïêå
      ocxGrid.TextMatrix(0, c) = Format(Int(ocxStartDate.Value) + c - 1, "mmmm yyyy") & "ã."
      ocxGrid.TextMatrix(1, c) = Day(Int(ocxStartDate.Value) + c - 1)
   Next

   If IsNull(StationID) Then
      Message vbCrLf & "Íå ââåäåíà ñòàíöèÿ"
      Exit Sub
   End If
   
   Set db = CurrentDb
   ocxGrid.Rows = Nz(DCount("[Time]", "[qryGridTimes]", "[StationID]=" & StationID)) + 2
   If ocxGrid.Rows = 2 Then
      Message vbCrLf & "Âíèìàíèå!" & vbCrLf & "Íà âûáðàííóþ ñòàíöèþ íå ââåäåí øàáëîí ñåòêè!"
      Exit Sub
   End If
   
   ocxGrid.Row = 2:                        ocxGrid.Col = 0
   ocxGrid.RowSel = ocxGrid.Rows - 1:      ocxGrid.ColSel = ocxGrid.Cols - 1
   ocxGrid.CellAlignment = flexAlignCenterCenter
   ocxGrid.Value = ""
   
   ocxGrid.Row = 0:                        ocxGrid.Col = 0
   ocxGrid.RowSel = ocxGrid.Rows - 1:    ocxGrid.ColSel = 0
   ocxGrid.Font.Bold = True
   
   ocxGrid.Row = 2:                        ocxGrid.Col = 1
   ocxGrid.RowSel = ocxGrid.Rows - 1:      ocxGrid.ColSel = ocxGrid.Cols - 1
   ocxGrid.CellBackColor = RGB(255, 255, 255)
   
   Set rst = db.OpenRecordset("SELECT * FROM [qryGridTimes] WHERE [StationID]=" & StationID, dbOpenDynaset)
   r = 1
   Do While Not rst.EOF
      r = r + 1
      ocxGrid.TextMatrix(r, 0) = Format(rst!time, "hh:mm")
      rst.MoveNext
   Loop
   
   rst.Close

   disableCells
   
   bUpdated = False
   
End Sub

[pooli]

первый способ подходит только он красит пятницу и субботу, а нужно субботу,воскресенье

[pooli]

в общем подошел такой способ

 'красим выходные дни
   Dim i
   With Me.ocxGrid
   On Error Resume Next

  For i = 2 To 365 Step 7
    .Row = 1
    .Col = i
    .CellBackColor = 255 '65535
    .Col = i + 1
    .CellBackColor = 255 '65535
   Next
  End With

[R Dmitry]

У меня красит правильно : если стартовая дата помещается в cells (1,1)

[pooli]

ерунда это все!
получается так если например при добавлении новой сетки с периодом дат на 3 дня например то тогда красятся не правильные дни!

[R Dmitry]

Сообщение от pooli

ерунда это все!
получается так если например при добавлении новой сетки с периодом дат на 3 дня например то тогда красятся не правильные дни!

For c = 1 To ocxGrid.Cols - 1
      ocxGrid.ColWidth(c) = 400 'ðàçìåð ñèìâîëîâ â øàïêå
      ocxGrid.TextMatrix(0, c) = Format(Int(ocxStartDate.Value) + c - 1, "mmmm yyyy") & "ã."
      ocxGrid.TextMatrix(1, c) = Day(Int(ocxStartDate.Value) + c - 1)
   Next

это цикл заполнения грида
вот и вставьте туда условие если день недели больше пятого надо покрасить
Все исходники и примеры у вас есть

[R Dmitry]

For c = 1 To ocxGrid.Cols - 1
ocxGrid.ColWidth(c) = 400 'ðàçìåð ñèìâîëîâ â øàïêå
ocxGrid.TextMatrix(0, c) = Format(Int(ocxStartDate.Value) + c - 1, "mmmm yyyy") & "ã."
ocxGrid.TextMatrix(1, c) = Day(Int(ocxStartDate.Value) + c - 1)

if clng(Format(ocxStartDate.Value + c - 1, "w", vbMonday))>5 then
ocxGrid.row=1:ocxGrid.col=c
ocxGrid.CellBackColor = 255
end if
Next

Это если совсем не получается.
Дмитрий.