- Public Class Form1
-
- Dim WithEvents TextControl As DataGridViewTextBoxEditingControl
-
- Private Sub DataGridView1_CellBeginEdit(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellCancelEventArgs) Handles DataGridView1.CellBeginEdit
- Dim CC As DataGridViewCell = sender.CurrentCell
- Me.TextBox1.Text = CC.EditedFormattedValue.ToString
- End Sub
-
- Private Sub DataGridView1_EditingControlShowing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewEditingControlShowingEventArgs) Handles DataGridView1.EditingControlShowing
- Try
- TextControl = e.Control
- Catch ex As Exception
-
- End Try
- End Sub
-
- Private Sub CTRL_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextControl.TextChanged
- Me.TextBox1.Text = TextControl.Text
- End Sub
-
- Private Sub DataGridView1_CellEndEdit(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellEndEdit
- Me.TextBox1.ResetText()
- End Sub
-
- Private Sub DataGridView1_SelectionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataGridView1.SelectionChanged
- Try
- Me.TextBox1.Text = sender.CurrentCell.Value.ToString
- Catch ex As Exception
-
- End Try
- End Sub
- End Class
Ответить
|
BeldDy | Web-сайт: www.ru
Дмитрий Юпатов
