Event dataGridView

14/06/2008 - 13:25 von Dirk Ohrmund | Report spam
Hallo,

ich habe folgendes Problem:

Ich möchte, dass das 2. Event das 1. Event auslöst.
Geht das?


1.Event:
Private Sub DataGridView1_CellClick(ByVal sender As Object, ByVal e As
System.Windows.Forms.DataGridViewCellEventArgs) Handles
DataGridView1.CellClickIf e.ColumnIndex = 0 And e.RowIndex >= 0 Then

If Aenderung = True Then

SaveChangeDataBase() 'Messagebox "Haben Sie Ihre Znderungen gespeichert?"

Aenderung = False

End If

HPNr = DataGridView1.Item(0, e.RowIndex).Value.ToString

DGV2KundenLieferanten()

End If

End Sub



2. Event

Private Sub DataGridView1_KeyUp(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyEventArgs) Handles DataGridView1.KeyUp

If e.KeyCode = Keys.Down Or e.KeyCode = Keys.Up Then

End If

End Sub
 

Lesen sie die antworten

#1 Martin H.
14/06/2008 - 16:48 | Warnen spam
Hallo Dirk,

Ja, Du kannst das Event auslösen, indem Du die benötigten Parameter an
die Sub DataGridView1_CellClick übergibst.

Private Sub DataGridView1_KeyUp(ByVal sender As Object, ByVal e As _
System.Windows.Forms.KeyEventArgs) Handles DataGridView1.KeyUp
If e.KeyCode = Keys.Down Or e.KeyCode = Keys.Up Then
Dim RowIndex As Integer = DataGridView1.CurrentRow.Index
Dim ColumnIndex As Integer = _
DataGridView1.CurrentCell.ColumnIndex
'If you want to use a specific cell for your click, change
'RowIndex and ColumnIndex accordingly.

Dim DatGriVieCelEveArg As New _
System.Windows.Forms.DataGridViewCellEventArgs(ColumnIndex, RowIndex)

DataGridView1_CellClick(DataGridView1, DatGriVieCelEveArg)
End If
End Sub

On 14.06.2008 19:25, wrote Dirk Ohrmund:
Hallo,

ich habe folgendes Problem:

Ich möchte, dass das 2. Event das 1. Event auslöst.
Geht das?


1.Event:
Private Sub DataGridView1_CellClick(ByVal sender As Object, ByVal e As
System.Windows.Forms.DataGridViewCellEventArgs) Handles
DataGridView1.CellClickIf e.ColumnIndex = 0 And e.RowIndex>= 0 Then

If Aenderung = True Then

SaveChangeDataBase() 'Messagebox "Haben Sie Ihre Znderungen gespeichert?"

Aenderung = False

End If

HPNr = DataGridView1.Item(0, e.RowIndex).Value.ToString

DGV2KundenLieferanten()

End If

End Sub



2. Event

Private Sub DataGridView1_KeyUp(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyEventArgs) Handles DataGridView1.KeyUp

If e.KeyCode = Keys.Down Or e.KeyCode = Keys.Up Then

End If

End Sub


Ähnliche fragen