How to make a MessageBox pop up only if the value in ComboBox changes

debugcn Published at Dev

Rusnnja

I'm trying to make the MessageBox pop up whenever the value in the combobox changes, instead, it currently pops up on the load and then when the value changes. Not sure what I'm doing wrong here.

Public Class DropDownBox

Private Sub DropDownBox_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    Dim dropSource As New Dictionary(Of String, String)()
    dropSource.Add("", "")
    dropSource.Add("1", "1")
    dropSource.Add("2", "2")
    dropSource.Add("3", "3")
    dropSource.Add("4", "4")
    dropSource.Add("5", "5")
    dropSource.Add("6", "6")
    dropSource.Add("7", "7")
    dropSource.Add("8", "8")
    dropSource.Add("9", "9")
    dropSource.Add("10", "10")

    cbox.DataSource = New BindingSource(dropSource, Nothing)
    cbox.DisplayMember = "Value"
    cbox.ValueMember = "Key"

    cbox.Text = Nothing

End Sub


Private Sub cbox_TextChanged(sender As Object, e As EventArgs) Handles cbox.TextChanged

    If cbox.Text IsNot Nothing Then
        MsgBox("Are you sure?")
    Else

    End If

End Sub

End Class

Thank you for your help.

Please let me know if you need any additional information on this subject, I've searched all over and haven't been able to figure this out.

Fabio

Event Combobox.SelectionChangeCommitted perfectly fit your requirement without extra workarounds.

The SelectionChangeCommitted event is raised only when the user changes the combo box selection

ComboBox.SelectionChangeCommitted Event

Private Sub cbox_SelectionChangeCommitted(sender As Object, e As EventArgs) 
                                                      Handles cbox.SelectionChangeCommitted

    Dim combobox = DirectCast(sender, ComboBox)
    If combobox.Text IsNot Nothing Then
        MsgBox("Are you sure?")
    End If

End Sub

Collected from the Internet

Please contact [email protected] to delete if infringement.