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
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)