У меня есть форма с несколькими кнопками, текстовыми полями и сеткой данных. Я хочу выполнить некоторый код, когда пользователь нажимает кнопку закрытия. Когда пользователь нажимает кнопку закрытия, выполняется приведенный ниже код, поэтому он работает правильно.
Проблема запускается при нажатии кнопки, и после выполнения кода внутри подпрограммы, которая фиксирует событие «buttonclicked», он переходит к подпрограмма, которая захватывает событие «formclosing», и я не знаю, почему это происходило, в других случаях я использовал события Formclosing, и он работает правильно.
FormClosing sub:
Private Sub FRM_Ver_Maq_Closing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
Dim buit As Boolean = False
For pos As Byte = 0 To DG_Verificacions.VisibleRowCount - 1
If DG_Verificacions(pos, 8) = 0 Then
buit = True
End If
Next
If buit Then
Dim result As DialogResult = MessageBox.Show("Has deixat algunes característiques sense entrar el resultat, estàs segur de que vols sortir?", "Atenció!", MessageBoxButtons.YesNo)
If result = DialogResult.No Then
e.Cancel = True
ElseIf result = DialogResult.Yes Then
e.Cancel = False
End If
End If
End Sub
Кнопка нажал sub:
Private Sub BTN_NovaValidacio_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_NovaValidacio.Click
Dim id As Integer
Dim Pos As Short
Pos = DG_Verificacions.CurrentRowIndex
Comu.MySelection.CommandText = "SELECT NVL (MAX (ID), 0) + 1 FROM i_cal_vermaq WHERE codmaq = '" & DG_Verificacions(Pos, 2) & "'"
id = Comu.MySelection.ExecuteScalar()
LBL_Id.Text = id
Omplir_DG_Verificacions()
End Sub
Посмотрите, может ли кто-нибудь помочь мне, большое спасибо!