Private Sub MyGridExporter_CellExporting(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinGrid.ExcelExport.CellExportingEventArgs) Handles MyGridExporter.CellExporting
If e.CurrentColumnIndex Mod 2 = 0 Then
e.GridRow.Cells(e.GridColumn).Appearance.BackColor = Color.AliceBlue
End If
End Sub
Private Sub MyGridExporter_CellExported(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinGrid.ExcelExport.CellExportedEventArgs) Handles MyGridExporter.CellExported
If e.CurrentColumnIndex Mod 2 = 0 Then
Dim tmCF As IWorksheetCellFormat = e.CurrentWorksheet.Rows(e.CurrentRowIndex).Cells(e.CurrentColumnIndex).CellFormat
tmCF.BottomBorderStyle = CellBorderLineStyle.SlantedDashDot
tmCF.TopBorderStyle = CellBorderLineStyle.SlantedDashDot
tmCF.LeftBorderStyle = CellBorderLineStyle.SlantedDashDot
tmCF.RightBorderStyle = CellBorderLineStyle.SlantedDashDot
End If
End Sub