MenuStrip não consegue se concentrar no carregamento
Eu vou tentar ser o mais preciso possível, eu tenho um formulário principal, vamos chamá-lo "Form1" no Form1 o usuário tem a possibilidade, através de uma faixa de menu para lançar outro formulário, vamos chamá-lo "Form2", no Form2 Eu tenho outro menustrip e um datagridview.
Meu problema quando o usuário iniciar o Form2 eu tenho que clicar com o botão esquerdo 2 vezes antes da faixa de menu ficar "ativado" o que quero dizer é
A carga form2Clico no item da faixa de menu: "Menu"Nada aconteceuClico outra vez a faixa de menu rolar para baixoé realmente anoying e eu não posso consertar isso porque eu não tenho idéia do que está causando isso
Se vocês tiverem algum tipo de solução ou precisarem de mais informações, apenas me digam.
Este é o Form2 chamado Ajout.vb
Imports System.Data.OleDb
Imports System.Globalization
Public Class Ajout
Private dSet As DataSet
Private dAdapter As New OleDbDataAdapter
Private bJustEdit As Boolean = False
Sub New(ByRef dSet As DataSet, ByRef dAdapter As OleDbDataAdapter)
InitializeComponent()
Me.dSet = dSet
Me.dAdapter = dAdapter
End Sub
Private Sub Ajout_Load(sender As Object, e As EventArgs) Handles MyBase.Load
With DataGridView1
.DataSource = dSet
.DataMember = "Articles_table"
.Columns("Prix").DefaultCellStyle.Format = "C2"
Console.WriteLine(.Columns("Prix").ValueType)
For Each clm As DataGridViewColumn In .Columns
clm.SortMode = DataGridViewColumnSortMode.NotSortable
Next
End With
End Sub
Private Sub DataGridView1_DataError(ByVal sender As Object, ByVal e As DataGridViewDataErrorEventArgs) Handles DataGridView1.DataError
'Quelle est l'erreur
If (TypeOf (e.Exception) Is ConstraintException) Then
'Envoie une message box pour informer l'utilisateur avec une possibiliter
If (drMessageBoxFuntion(0) = Windows.Forms.DialogResult.Yes) Then
'Possibiliter choisi on regarde si le sender est bien de datagridview pour eviter un erreur de cast
If (TypeOf sender Is DataGridView) Then
'Nouvelle variable car sa devien inlisible avec beaucoup de cast
Dim dgvLocal As DataGridView = CType(sender, DataGridView)
Dim sNameValue As String = dgvLocal.Rows(e.RowIndex).Cells("Nom").Value.ToString
Dim dgvOriginalCells As DataGridViewCellCollection = dgvLocal.Rows(dgvFindRowsBy_Name(sNameValue).Index).Cells
Dim dgvErrorCells As DataGridViewCellCollection = dgvLocal.Rows(e.RowIndex).Cells
'Regarde si le prix est pareille si faux propose a l'utilisateur d'updater le prix avec le nouveau
'ou de simplement ajouter la quantite
If (Not Equals(dgvOriginalCells("Prix").Value.ToString, dgvErrorCells("Prix").Value.ToString)) Then
'Prix different propose de mettre a jour
If (drMessageBoxFuntion(1) = Windows.Forms.DialogResult.Yes) Then
dgvOriginalCells("Prix").Value = dErrorRow()
dgvOriginalCells("Quantité").Value += dgvErrorCells("Quantité").Value
Else
dgvOriginalCells("Quantité").Value += dgvErrorCells("Quantité").Value
End If
Else
dgvOriginalCells("Quantité").Value += dgvErrorCells("Quantité").Value
End If
'Sender inconnu
Else
MsgBox("Une erreur inconnu est survenu, aucune operation n'a été effectué, vous n'avez qu'à recommencer")
End If
End If
'Si lettre entré, msg pour informer le reste est gerer par le dataset qui n'accepte que
'les chiffre, car defini dans la database
ElseIf (TypeOf (e.Exception) Is FormatException) Then
MsgBox("Vous ne pouvez pas entrer de lettre dans la collone de prix ou de quantité")
End If
End Sub
'Fonction contenant plusieur message box
Private Function drMessageBoxFuntion(ByVal index As Integer) As DialogResult
If (index = 0) Then
Dim drAction As DialogResult = MessageBox.Show("Vous ne pouvez pas ajouter deux fois le même nom," & _
" voulez vous ajouter la quantité du nouvelle arti" & _
"cle a celui deja présent ?", _
"Erreur, article double.", _
MessageBoxButtons.YesNo, _
MessageBoxIcon.Question)
Return drAction
ElseIf (index = 1) Then
Dim drAction As DialogResult = MessageBox.Show("Le prix de vos deux article, de même genre, diffère." & _
"Voulez-vous mettre a jour le prix à jour (oui), ou " & _
"simplement ajouter la quantité a l'item déjà présent (no" & _
"n).", "Erreur, prix different", _
MessageBoxButtons.YesNo, _
MessageBoxIcon.Question)
Return drAction
End If
Return Nothing
End Function
'Retourne une datagridviewROW et non l'index car permet d'avoir l'objet
'et donc de prendre la methode index ou autre methode si le besoin est
Private Function dgvFindRowsBy_Name(ByVal oNameValue As Object) As DataGridViewRow
For Each row As DataGridViewRow In DataGridView1.Rows
If row.Cells.Item("Nom").Value = oNameValue Then
Return row
End If
Next
Return Nothing
End Function
'Message pre programmer dans une array permettant l'affichage de message avec une input
Private Function dErrorRow() As Single
Dim dNewValue As Object = InputBox("Nouveau prix, entrez uniquement un nombre s'il vous plait.")
Do Until IsNumeric(dNewValue)
dNewValue = InputBox("Nouveau prix, entrez uniquement un nombre s'il vous plait.")
Loop
Return CType(dNewValue, Single)
End Function
Private Sub DataGridView1_RowValidating(sender As Object, e As DataGridViewCellCancelEventArgs) Handles DataGridView1.RowValidating
If (TypeOf sender Is DataGridView) Then
Dim dgvRow As DataGridViewRow = CType(sender, DataGridView).Rows(e.RowIndex)
If (Not ((IsDBNull(dgvRow.Cells("Nom").Value) Or IsDBNull(dgvRow.Cells("Prix").Value) Or IsDBNull(dgvRow.Cells("Quantité").Value)) = (IsDBNull(dgvRow.Cells("Nom").Value) And IsDBNull(dgvRow.Cells("Prix").Value) And IsDBNull(dgvRow.Cells("Quantité").Value)))) Then
MsgBox("Veuillez remplir toute les cases.")
e.Cancel = True
End If
End If
End Sub
Private Sub DataGridView1_CellValidating(sender As Object, e As DataGridViewCellValidatingEventArgs) Handles DataGridView1.CellValidating
If (TypeOf sender Is DataGridView) Then
Dim dgvRow As DataGridViewRow = CType(sender, DataGridView).Rows(e.RowIndex)
If (Not dgvRow.IsNewRow) Then
If (e.ColumnIndex = 1) Then
Dim dTemp As Single
If (Not Single.TryParse(e.FormattedValue.ToString, NumberStyles.Currency, CultureInfo.CurrentCulture, dTemp) OrElse dTemp < 0) Then
MsgBox("La valeur ne doit pas être négative ni être une lettre. Ne laisser pas la case vide non plus.")
e.Cancel = True
End If
ElseIf (e.ColumnIndex = 2) Then
Dim iTemp As Integer
If (Not Integer.TryParse(e.FormattedValue.ToString, NumberStyles.Currency, CultureInfo.CurrentCulture, iTemp) OrElse iTemp < 0) Then
MsgBox("La valeur ne doit pas être négative ni être une lettre. Ne laisser pas la case vide non plus.")
e.Cancel = True
End If
End If
End If
dgvRow.Selected = False
End If
End Sub
Private Sub EnregistrerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EnregistrerToolStripMenuItem.Click
If dSet.HasChanges Then
Try
Using con = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source = Mokmeuh.accdb")
con.Open()
Dim cmb As New OleDbCommandBuilder(dAdapter)
dAdapter.Update(dSet.Tables("Articles_Table"))
End Using
Catch ex As Exception
End Try
End If
End Sub
Private Sub AnnulerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AnnulerToolStripMenuItem.Click
dSet.RejectChanges()
DataGridView1.Refresh()
End Sub
End Class
Mais precisão