Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Как Раскрасить MSHFlexGrid??? Добавлено: 02.09.09 19:27  

Автор вопроса:  Mc.WOLF
Как Раскрасить MSHFlexGrid, в зависимости от значения?

Ответить

  Ответы Всего ответов: 2  

Номер ответа: 1
Автор ответа:
 rw12lq



Вопросов: 2
Ответов: 80
  Профиль | | #1 Добавлено: 02.09.09 20:08
  1.  
  2. Private Sub Form_Load()
  3. Dim i As Integer
  4.  
  5.         ' тут настраиваешь по своему вкусу)
  6.         With MSFlexGrid1
  7.             .Rows = 1
  8.             .BackColorFixed = &H8000000F
  9.             .BackColorBkg = &H808080
  10.             .BackColorSel = RGB(69, 69, 182)
  11.             .ForeColorSel = vbWhite
  12.             .BackColor = vbWhite
  13.             .ForeColor = vbBlack
  14.             .GridColor = RGB(170, 170, 170)
  15.             .FormatString = "<|<Наименование|<Адрес|<Телефон"
  16.         End With
  17.  
  18.     'забиваю 10 строк
  19.     For i = 1 To 10
  20.         MSFlexGrid1.AddItem vbTab & "x" & vbTab & "x" & vbTab & i
  21.         
  22.         'условие свое сюда....
  23.         If i = 5 Then
  24.             MSFlexGrid1.Row = i 'строка
  25.             MSFlexGrid1.Col = 3 'столбец
  26.             MSFlexGrid1.CellBackColor = RGB(51, 51, 206) 'цвет ячейки
  27.             MSFlexGrid1.CellForeColor = vbWhite 'цвет шрифта ячейки
  28.         End If
  29.         
  30.     Next i
  31.     
  32. End Sub

Ответить

Номер ответа: 2
Автор ответа:
 rw12lq



Вопросов: 2
Ответов: 80
  Профиль | | #2 Добавлено: 02.09.09 20:11
собственно из вышенаписанного тебе надо:

  1.  
  2.             MSFlexGrid1.Row = i 'строка
  3.             MSFlexGrid1.Col = 3 'столбец
  4.             MSFlexGrid1.CellBackColor = RGB(51, 51, 206) 'цвет ячейки
  5.             MSFlexGrid1.CellForeColor = vbWhite 'цвет шрифта ячейки



т.е. чтобы "раскрасить" ячейку нужно сначало указать строку и столбец....

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам