فرض کن یه گرید داری به اسم datagridview1
با این کد ها میتونی کارت رو انجام بدی
Private Sub DataGridView1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles DataGridView1.KeyDown
If e.KeyCode = Keys.Enter Then
e.Handled = True
If DataGridView1.CurrentRow.Index Mod 2 = 0 Then
MsgBox("hi")
goToNExtCell()
Else
goToNExtCell()
End If
End If
End Sub
Private Sub goToNExtCell()
Try
If DataGridView1.CurrentCell.ColumnIndex < DataGridView1.Columns.Count - 1 Then
DataGridView1.CurrentCell = DataGridView1.Rows(DataGridView1.CurrentRow.Index) .Cells(DataGridView1.CurrentCell.ColumnIndex + 1)
Else
If DataGridView1.CurrentRow.Index < DataGridView1.Rows.Count - 1 Then
DataGridView1.CurrentCell = DataGridView1.Rows(DataGridView1.CurrentRow.Index + 1).Cells(0)
Else
DataGridView1.CurrentCell = DataGridView1.Rows(0).Cells(0)
End If
End If
Catch ex As Exception
End Try
End Sub
به جای اون شرطی که نوشتم که mod 2 = 0 شما شرط خودت رو بنویس، خالی بودن سلول و اینها و به جای msg دادن فرم رو باز کن
قوانین ایجاد تاپیک در تالار
پاسخ با نقل قول