xtragrid cellulaire et les lignes de sélection utilisant DevExpress Winforms Vb.net

Question

Private Sub GridView1_RowCellStyle(sender As Object, e As 
    RowCellStyleEventArgs) Handles GridView1.RowCellStyle 
    Try 
     If IsDBNull(e.CellValue) Then 
      e.Appearance.BackColor = Color.LightYellow 
     End If 
     Dim selectedCells As GridCell() = GridView1.GetSelectedCells() 
     isRowSelected = GridView1.IsRowSelected(e.RowHandle) 
     For Each Cells In selectedCells 
      If GridView1.GetSelectedCells.Count = 1 Then 
       If IsDBNull(GridView1.GetRowCellValue(Cells.RowHandle, 
        Cells.Column)) Then 
        e.Appearance.BackColor = Color.LightYellow 
       End If 
      Else 
       If isRowSelected Then 
        If IsDBNull(GridView1.GetRowCellValue(Cells.RowHandle, 
         Cells.Column)) Then 
         e.Appearance.BackColor = Color.FromArgb(226, 234, 
          253) 
        End If 
       End If 
      End If 
     Next 
    Catch ex As Exception 
     MessageBox.Show(ex.Message) 
    End Try 
End Sub 

J'utilise DevExpress .I déclarer la valeur « DBNull » doit être de couleur par défaut dans « Lightyellow'.After je veux être sélectionné rows ou Cell dans la valeur 'DbNull' pour changer la couleur bleue. Qu'ai-je fait de mal? Je veux être Sélectionnez les cellules ou les lignes à modifier la couleur (cette valeur nulle également)

Answer 1

Il est illogique de parcourir les cellules sélectionnées dans le gestionnaire d'événements RowCellStyle car cet événement est levé uniquement pour un unicellulaire. Finalement, il va augmenter pour toutes les cellules visibles.

Ainsi, le code suivant sera suffisant pour compléter votre tâche:

Private Sub GridView1_RowCellStyle(ByVal sender As Object, ByVal e As RowCellStyleEventArgs) 
    Dim view As GridView = TryCast(sender, GridView) 
    Dim isRowSelected As Boolean = view.IsRowSelected(e.RowHandle) 
    If IsDbNull(e.CellValue) AndAlso (Not isRowSelected) Then 
     e.Appearance.BackColor = Color.Yellow 
    End If 
End Sub 

-t-il pour vous?

Answer 2

Dim state As GridRowCellState 
     state = DirectCast(e.Cell, GridCellInfo).State 
     If (state And GridRowCellState.Selected) = GridRowCellState.Selected Then 
      e.Appearance.BackColor = Color.FromArgb(226, 234, 253) 
     End If 

Ce code est utilisé pour sélectionner les cellules à modifier la couleur de votre apparence. GridRowCellState contient les états des cellules de ligne pour les événements de personnalisation de l'apparence de la commande Grid. Les cellules sélectionnées indiquent que la ligne/cellule en cours de traitement est sélectionnée. This is My Output