| 发表于:2007-01-18 09:38:382楼 得分:0 |
' format cell private sub dgvmessage_cellformatting(byval sender as object, byval e as system.windows.forms.datagridviewcellformattingeventargs) handles dgvmessage.cellformatting if e isnot nothing then dim rowid as integer = e.rowindex dim colid as integer = e.columnindex if (rowid > = 0 and colid > = 0) andalso not me.dgvmessage.rows(rowid).isnewrow then try if me.dgvmessage.columns(e.columnindex).name = "message_level " then ' id color for message level dim msglevel as integer = e.value select case msglevel case simpleloger.messagelevel.warnning dim cellbackcolor as system.drawing.color = color.yellow for each cell as datagridviewcell in me.dgvmessage.rows(rowid).cells cell.style.backcolor = cellbackcolor next case simpleloger.messagelevel.fault dim cellbackcolor as system.drawing.color = color.red for each cell as datagridviewcell in me.dgvmessage.rows(rowid).cells cell.style.backcolor = cellbackcolor next end select end if catch ex as exception debug.writeline(ex.message & vbtab & ex.stacktrace) end try end if end if end sub | | |
|