Bonjour,
je suis en train de me faire une petite application avec VS 2013 et je ne trouve pas comment Ajouter le ENTER pour valider une recherche.Voici mon code:
Public Class Form1
Private Sub INVBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs)
Me.Validate()
Me.INVBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.Database2DataSet)
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'Database2DataSet.INV' table. You can move, or remove it, as needed.
Me.INVTableAdapter.Fill(Me.Database2DataSet.INV)
End Sub
Private Sub FillByITEMToolStripButton_Click(sender As Object, e As EventArgs) Handles FillByITEMToolStripButton.Click, Field1ToolStripTextBox.Validated, Field1ToolStripTextBox.Enter, MyBase.Enter
Try
If Asc(e.keychar) = 13 Then
Me.INVTableAdapter.FillByITEM(Me.Database2DataSet.INV, Field1ToolStripTextBox.Text)
Catch ex As System.Exception
System.Windows.Forms.MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub Field2Label_Click(sender As Object, e As EventArgs) Handles Button1.Click
Field1ToolStripTextBox.Text = ""
End Sub
End Class
La partie en bold est la partie problematique.Donc je voudrais seulement que si je tape ENTER dans Field1ToolStripTextBox.Text il execute FillByITEMToolStripButton_Click
Quelqu'un peux me donner un hint ?
je suis en train de me faire une petite application avec VS 2013 et je ne trouve pas comment Ajouter le ENTER pour valider une recherche.Voici mon code:
Public Class Form1
Private Sub INVBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs)
Me.Validate()
Me.INVBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.Database2DataSet)
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'Database2DataSet.INV' table. You can move, or remove it, as needed.
Me.INVTableAdapter.Fill(Me.Database2DataSet.INV)
End Sub
Private Sub FillByITEMToolStripButton_Click(sender As Object, e As EventArgs) Handles FillByITEMToolStripButton.Click, Field1ToolStripTextBox.Validated, Field1ToolStripTextBox.Enter, MyBase.Enter
Try
If Asc(e.keychar) = 13 Then
Me.INVTableAdapter.FillByITEM(Me.Database2DataSet.INV, Field1ToolStripTextBox.Text)
Catch ex As System.Exception
System.Windows.Forms.MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub Field2Label_Click(sender As Object, e As EventArgs) Handles Button1.Click
Field1ToolStripTextBox.Text = ""
End Sub
End Class
La partie en bold est la partie problematique.Donc je voudrais seulement que si je tape ENTER dans Field1ToolStripTextBox.Text il execute FillByITEMToolStripButton_Click
Quelqu'un peux me donner un hint ?