VB.net Button_Click事件多次触发应该触发一次

时间:2015-11-30 09:26:58

标签: vb.net

我在基于桌面的应用程序中的Windows窗体上有一个按钮,它似乎会多次触发。它应该执行一个数据库操作" Insert"单击时,但仅在单击一次时执行多次操作。这种情况偶尔会在2到3个月内发生,我通过调试确认它确实会触发并多次调用数据库函数,一次只需单击15次。 单击按钮后,我还将代码设置为禁用按钮,并进行验证检查,如果按钮启用为true,则转到。

我的电脑物理鼠标按钮工作正常。

按钮代码如下所示!

Private Sub BTnSave_Click(sender As System.Object, e As System.EventArgs) Handles btnSave.Click
    Dim CN As New SqlConnection("data source=.;network library=dbmssocn; initial catalog=MyDb; user id=sa; password=abc125;")
    If BtnSave.Enabled = True Then
        Dim inscmd3 As New SqlCommand("insert into Product(id,Name,Category) values(@id,@Name,@Category)")
        With inscmd3
            .CommandType = CommandType.Text
            .Parameters.AddWithValue("@id", lblid.text)
            .Parameters.AddWithValue("@Name", txtName.text)
            .Parameters.AddWithValue("@Category", txtCategory.text)
        End With
        inscmd3.Connection = CN
        inscmd3.Connection.Open()
        inscmd3.ExecuteNonQuery()
        inscmd3.Connection.Close()
        MsgBox("Item Inserted Successfully")
        btnSave.Enabled = False
    End If
End Sub

0 个答案:

没有答案