vb.net evento seleziona riga

[g.scardigno]

Qual è l'evento che mi dice che ho selezionato una riga del datagrid???

Ci sono riuscito con datagrid_click...
Ma questo funziona anche quando clicco su una colonna!!!!

[giuSp]

SelectedIndexChanged...

[g.scardigno]

ma no esiste questo evento per datagrid microsoft!!!!

[giuSp]

scusa...è CurrentCellChanged...

[g.scardigno]

aiutami.....

Io voglio abilitare un pulsante se è selezionata almeno una riga e disabilitare lo stesso se non è selezionata nessuna riga!!!

Come faccio???



Grazie

[giuSp]

Selezionata in che senso? ke è attiva una cella, o ke c'è la selezione (striscia blu) su tutta la riga...?

[g.scardigno]

striscia blu su tutta la riga.....



Grazie

[giuSp]

devi utilizzare IsSelected e passargli il numero di riga che vuoi per testare se è selezionata...in questo caso devi fare un ciclo per le reghe visibili e fare un IsSelected per ogni riga...

[g.scardigno]

Si ci sono riuscito!!!!

applico la function rigaselezionata per gli eventi click e CurrentCellChanged...
Funziona alla grande!!!!

Ecco a voi..... per i posteri....

Se avete critiche da fare prego pure....

    Public Function RigaSelezionata(ByVal dg As DataGrid) As Boolean
        Dim cm As CurrencyManager = Me.BindingContext(dg.DataSource, dg.DataMember)
        Dim dv As DataView = CType(cm.List, DataView)
        Dim i As Integer

        Dim trovato As Boolean
        trovato = False
        For i = 0 To dv.Count - 1
            If dg.IsSelected(i) Then
                trovato = True
            End If
        Next i
        Return trovato
    End Function

    Private Sub griglia_selezionata(ByVal sender As Object, ByVal e As System.EventArgs) Handles grdDataGrid.CurrentCellChanged, DataGrid1.CurrentCellChanged, GrigliaSelez.CurrentCellChanged, GrigliaVerificatori.CurrentCellChanged, grdDataGrid.Click, DataGrid1.Click, GrigliaSelez.Click, GrigliaVerificatori.Click
        If sender.Equals(grdDataGrid) Then
            If RigaSelezionata(grdDataGrid) Then
                Me.Assegna.Enabled = True
            Else
                Me.Assegna.Enabled = False
            End If
        End If
        If sender.Equals(DataGrid1) Then
            If RigaSelezionata(DataGrid1) Then
                Me.CmdRiassTot.Enabled = True
            Else
                Me.CmdRiassTot.Enabled = False
            End If
        End If
        If sender.Equals(GrigliaSelez) Then
            If RigaSelezionata(GrigliaSelez) Then
                Me.CmdRiassegna.Enabled = True
            Else
                Me.CmdRiassegna.Enabled = False
            End If
        End If
        If sender.Equals(GrigliaVerificatori) Then
            If RigaSelezionata(GrigliaVerificatori) Then
                Me.CmdOKAss.Enabled = True
            Else
                Me.CmdOKAss.Enabled = False
            End If
        End If
    End Sub