Привет,
как изменить backcolor в различных рядах или колонках так, чтобы MSHFLEXGRID была была "полосатой"

Заранее спасибо.

Здравствуйте Shurik12, Вы писали:

S>Привет,
S>как изменить backcolor в различных рядах или колонках так, чтобы MSHFLEXGRID была была "полосатой"

Единственное, чем могу помочь — изменить цвет фона всего ФлексГрида:
(тебе нужен будет CommonDialog, две кнопы и MSFlexGrid. Имена — по дефолту)

Private Sub Command1_Click()
CommonDialog1.ShowColor
MSFlexGrid1.BackColor = CommonDialog1.Color
End Sub

Поманьячься, может получится заполнить конкретные столбцы или строки...

Или изменить фон той области, где нет ячеек (задний фон):

Private Sub Command2_Click()
CommonDialog1.ShowColor
MSFlexGrid1.BackColorBkg = CommonDialog1.Color
End Sub

Xobbut,

Спасибо за реакцию на вопрос.
Я вот еще кое-что выкопал. Посмотри, может будет интересно

Здесь два варианта:
---------------------------------
Private Sub Form_Load()

Dim X As Integer
Dim y As Integer

MSFlexGrid1.Visible=False

MSFlexGrid1.Cols = 5
MSFlexGrid1.Rows = 5
For y = 1 To MSFlexGrid1.Cols — 1 Step 2
MSFlexGrid1.Col = y
For X = 1 To MSFlexGrid1.Rows — 1
MSFlexGrid1.Row = X
MSFlexGrid1.CellBackColor = vbGreen
Next
Next

MSFlexGrid1.Visible=True

End Sub
-------------------------

------------------------
Private Sub Form_Load()

Dim i%, colNo%

With MSHFlexGrid1

.Visible = False 'process faster
.Rows = 5
.Cols = 5
.FixedCols = 0
.FixedRows = 0
.Row = 0
.Col = 0
For i = 0 To .Rows — 1
For colNo = 0 To .Cols — 1
If (i Mod 2) Then
.Row = i
.Col = colNo
.CellBackColor = vbBlue
End If
Next colNo
Next i
.Visible = True

End With

End Sub
--------------------

Всего хорошего,

Shurik12.






Здравствуйте XobbuT, Вы писали:

XT>Здравствуйте Shurik12, Вы писали:

S>>Привет,
S>>как изменить backcolor в различных рядах или колонках так, чтобы MSHFLEXGRID была была "полосатой"

XT>Единственное, чем могу помочь — изменить цвет фона всего ФлексГрида:
XT>(тебе нужен будет CommonDialog, две кнопы и MSFlexGrid. Имена — по дефолту)

XT>

XT>Private Sub Command1_Click()
XT>CommonDialog1.ShowColor
XT>MSFlexGrid1.BackColor = CommonDialog1.Color
XT>End Sub
XT>

XT>Поманьячься, может получится заполнить конкретные столбцы или строки...

XT>Или изменить фон той области, где нет ячеек (задний фон):

XT>

XT>Private Sub Command2_Click()
XT>CommonDialog1.ShowColor
XT>MSFlexGrid1.BackColorBkg = CommonDialog1.Color
XT>End Sub
XT>