msgbox.yesno가있는 다른 하위의 하위가 계속되는 경우

Question

나는 최근에 msgbox.styleyesno를 사용하여 sub를 호출하면 문제가 발생했습니다. 호출 한 원래 하위로 돌아 가지 않습니다.

이

내 코드입니다 : SUB1 :

Private Sub cmbLeegmaken_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbLeegmaken.SelectedIndexChanged 
    Tabel_Leegmaken(cmbLeegmaken.Text) 
    Hide_Leegmaken() 
    Loadtable() 
End Sub 

호출 서브 :

Sub Tabel_Leegmaken(ByVal Tabelnaam As String) 
    MsgBox("Weet je zeker dat je de tabel " & Tabelnaam & " volledig wilt leegmaken?", MsgBoxStyle.YesNo) 
    If vbYes Then 
     Dim QuerVerwijdertabel As New SqlCommand("TRUNCATE TABLE " & Tabelnaam, connection) 
     QuerVerwijdertabel.ExecuteNonQuery() 
    End If 
End Sub 

문제는 Tabel_Leegmaken이 종료 하위 후에는 "개인에 다시 반환하지 것입니다 Sub cmbLeegmaken_SelectedIndexChanged "를 선택하십시오.

거기에있는 msgbox와 관련이 있는지 모르겠지만 작동하지 못하는 것 같습니다 (단지 작은 실수 일지라도). 자리 잡기> <).

미리 감사드립니다.

Answer 1

은 당신이 쓰는 말은 생각 :

Sub Tabel_Leegmaken(ByVal Tabelnaam As String) 
    If MsgBox("Weet je zeker dat je de tabel " & Tabelnaam & " volledig wilt leegmaken?", MsgBoxStyle.YesNo) = vbYes Then 
     Dim QuerVerwijdertabel As New SqlCommand("TRUNCATE TABLE " & Tabelnaam, connection) 
     QuerVerwijdertabel.ExecuteNonQuery() 
    End If 
End Sub 

Answer 2

나는 당신이있는 MsgBox의 코드를 변경해야 할 것 같아요. 다음과 같이 코드가 제대로 작동하는지 테스트했습니다.

Private Sub ComboBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged 
    LaunchHere(ComboBox1.Text) 
    MessageBox.Show("Back into Main ComboBox1_SelectedIndexChanged") 
End Sub 

Sub LaunchHere(ByVal abc As String) 
    Dim response As MsgBoxResult 
    response = MsgBox("Hello from inside Launch", MsgBoxStyle.YesNo, "Title") 
    If response = MsgBoxResult.Yes Then 
     MessageBox.Show("Inside Launch Here and used YES") 
    Else 
     MessageBox.Show("Inside Launch Here and used NO") 
    End If 
End Sub