| |
|
|
| | Подскажите пожалуйста, можно ли изменить цвет подсветки выделенной записи в элементе управления "Список" например вместо черного желтый при неизменном цвете текста (черном). | |
| |
| |
| |
|
|
| | в стандартном - вроде как нет
можно использовать ListView - в нем можно менять цвет шрифта | |
| |
| |
| |
|
|
| | А можно простенький примерчик... или где можно почитать о ListView, в Help чтото не нашел | |
| |
| |
| |
|
|
| | кидаем на форму лист-вью (lv_Order)
на событие формы Load пишем код
Private Sub Form_Load()
lv_Order.ListItems.Clear
lv_Order.ColumnHeaders.Add , , "OrderID", 0
lv_Order.ColumnHeaders.Add , , "№№", 1000
lv_Order.ColumnHeaders.Add , , "дата", 1000
lv_Order.ColumnHeaders.Add , , "время", 1000
lv_Order.ColumnHeaders.Add , , "статус", 2000
lv_Order.ColumnHeaders.Add , , "источник", 1700
lv_Order.View = lvwReport
Call get_Order
End Sub
|
функция get_Order() формирует рекордсет и заполняет этот лист-вью
Private Sub get_Order()
On Error GoTo L_Err
...
lv_Order.ListItems.Clear
rs.Open sSQL, cnn, adOpenStatic
If rs.EOF Then GoTo L_Exit
If Not rs.BOF Then rs.MoveFirst
Do While Not rs.EOF
lv_Order.ListItems.Add 1, , rs("OrderID")
lv_Order.ListItems(1).ListSubItems.Add 1, , IIf(IsNull(rs("OrderNumber")), "", rs("OrderNumber"))
lv_Order.ListItems(1).ListSubItems.Add 2, , IIf(IsNull(rs("OrderDate")), "", Format(rs("OrderDate"), "dd.mm.yyyy"))
lv_Order.ListItems(1).ListSubItems.Add 3, , IIf(IsNull(rs("OrderTime")), "", Format(rs("OrderTime"), "hh:mm:ss"))
lv_Order.ListItems(1).ListSubItems.Add 4, , sStatus
lv_Order.ListItems(1).ListSubItems.Add 5, , IIf(IsNull(rs("tblShop.Name")), "", rs("tblShop.Name"))
If rs("OrderStatusID") = -1755166719 Then
lv_Order.ListItems(1).ListSubItems(4).ForeColor = vbRed
lv_Order.ListItems(1).ListSubItems(4).Bold = True
Else
lv_Order.ListItems(1).ListSubItems(4).ForeColor = vbBlue
End If
rs.MoveNext
Loop
L_Exit: Set rs = Nothing: Exit Sub
L_Err: MsgBox Err.Description & " (" & Err.Number & ")", vbExclamation, "get_Order": GoTo L_Exit
End Sub
|
| |
| |
| |
