Al leer un código QR que está impreso, el sistema no muestra la confirmación de lo que se desea hacer mediante la ejecución de un msgbox, sino que asume directamente el valor NO del msgbox. La lectura se hace con un lector de códigos
La validación del código QR la realizo en el TextChanged de un control Textbox, cuando se llega a la longitud máxima del control Textbox, la cual es de 6 caracteres.
El código que realizo en el textbox de captura del QR es:
Private Sub txtBusquedaOrden_TextChanged(sender As Object, e As EventArgs) Handles txtBusquedaOrden.TextChanged
If Len(txtBusquedaOrden.Text) = txtBusquedaOrden.MaxLength Then
Dim NumeroOrden As Long = Val(txtBusquedaOrden.Text)
Try
Dim style = MsgBoxStyle.YesNoCancel Or MsgBoxStyle.DefaultButton2 Or MsgBoxStyle.Information
Dim msg As String = "ORDEN No. " & NumeroOrden & vbCrLf & vbCrLf & "Seleccione : " & vbCrLf & "SI para CARGAR ORDEN" & vbCrLf & "NO para CERRAR ORDEN " & vbCrLf
Dim title As String = "Orden"
Dim response = MsgBox(msg, style, title)
Select Case response
Case Is = 6
CargaOrdendesdeQR(NumeroOrden)
txtBusquedaOrden.Text = ""
txtBusquedaOrden.Focus()
Case Is = 7
CierraOrdendesdeQR(NumeroOrden)
txtBusquedaOrden.Text = ""
txtBusquedaOrden.Focus()
Case Else
txtBusquedaOrden.Text = ""
txtBusquedaOrden.Focus()
End Select
Catch ex As Exception
MessageBox.Show(ex.Message, Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End Try
End If
End Sub
MsgBoxStyle.DefaultButton2
le indicas que el botón seleccionado por default (y por consiguiente valor que te está retornando) sea el botón 2; que para tu vaso es No, si mal no recuerdo elMsgBoxStyle.YesNoCancel
así es como aparecen en la ventana de diálogo que muestras.