vb2013 выход из локального закрытия закрывает форму

Question

У меня есть локальный юг, который позволяет пользователю перемещать строку datagridview, вызванную нажатием кнопки. Суб работает отлично в отладчике, но когда он выходит из управления, он переносится в вызывающую форму, то есть текущая форма закрывается. Это также происходит, когда ни одна строка не перемещается, то есть когда выполняется одно из условий прерывания на входе. Просто: выход из этого раздела закроет форму!?!

Private Sub btnMove_Click(sender As Object, e As EventArgs) Handles btnMove.Click 
    Dim rowToGo As DataGridViewRow 
    Dim rtgIndex As Integer = 0 
    If (dgvAuftrag.RowCount <= 1) or (dgvAuftrag.CurrentRow Is Nothing) Then 
     Beep() 
     Exit Sub 
    End If 
    rowToGo = dgvAuftrag.CurrentRow 
    rtgIndex = rowToGo.Index + 1 
    If (rtgIndex >= dgvAuftrag.RowCount) Then rtgIndex = 0 
    Try 
     dgvAuftrag.Rows.Remove(rowToGo) 
     dgvAuftrag.Rows.Insert(rtgIndex, rowToGo) 
    Catch ex As Exception 
     IssueErrorMessage(ex) 
    End Try 
End Sub 

Все остальные локальные подсистемы и функции работают нормально, только этот ведет себя странно. Любые идеи, как исправить/избежать этой ошибки?

Answer 1

Это не решение проблемы, а работающий обходной путь, основанный на санкционировании Ганса. Я ввел глобальную логическую переменную с именем OKtoExit, которая инициализируется значением false.

private OKtoExit as boolean = false 

Затем у меня есть новый обработчик события FormClose, который проверяет, что var. Если OKtoExit имеет значение false, e.Cancel = true, и обработчик завершает работу. Регулярные функции выхода (Save and Quit) устанавливают OKtoExit в true, любой другой код оставляет значения неизменными.

Private Sub Current_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing 
    If Not exitOK Then 
     e.Cancel = True 
     Exit Sub 
    End If 
End Sub 

Как я уже сказал, это всего лишь обходное решение, которое имеет тот же эффект, что и нормальный VB-код. Я был бы признателен, если бы кто-нибудь мог представить реальное решение!

Answer 2

После многих месяцев я обнаружил истинную причину проблемы, и я должен отдать все кредиты Хансу Пассанту: у меня была кнопка на одной из первых форм, у которой свойство Dialog Result установлено на Cancel. Это была очень красивая кнопка, поэтому многие другие кнопки в приложении были копией этой первой кнопки, где я только что изменил ярлык. Таким образом, все они привели к нежелательному поведению, что форма была закрыта, как только пользователь нажал на один из них, независимо от того, что сказал лейбл ... Через несколько месяцев я обнаружил это случайно. Спасибо Гансу снова, я, очевидно, упустил его последний намек: «И посмотри на свойство кнопки« Диалог ».»!