• Lunes 13 de Mayo de 2024, 15:15

Autor Tema:  Simular Enter  (Leído 1325 veces)

Vortice

  • Miembro MUY activo
  • ***
  • Mensajes: 135
    • Ver Perfil
Simular Enter
« en: Lunes 29 de Octubre de 2007, 20:40 »
0
Private Sub id_cliente_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles id_cliente.KeyPress
        bus_id_cliente()
        MsgBox("Ingrese el ID a buscar y preione Enter")
        If id_cliente.Text <> "" Then
            If cond_bus = "ID" Then 'And Asc(e.KeyChar) = 13 Then
                conectar_bd()
                Command = New SqlCommand("SELECT * FROM clientes WHERE
Q tal Camaradas espero y estén bien……paso a mi problema

Tengo un menú en donde esta el botón buscar y este a su vez tiene un RadioButton, entonces lo q necesito es q al presionar el radio button (.checked ) este me envié a una caja de texto lo cual resulta un poco lento pero resulta y lo que necesito es q una vez q ingrese el ID a buscar y se presione Enter se desplieguen los demás datos en sus respectivas cajas de texto, lo tengo con un keypress pero al presionar un tecla entra al textbox(código) como lo puedo hacer para q me deje ingresar el dato y después apretar el Enter y ahí realice lo q esta digitado en el código de la caja de texto. Espero haberme explicado bien.


ID_cliente = '" & Trim(id_cliente.Text) & "' ", Connection)
                Command.ExecuteNonQuery()
                id_cliente.Text = ds.Tables(0).Rows(0)(0)
                rut_cliente.Text = ds.Tables(0).Rows(0)(1)
                emp_cliente.Text = ds.Tables(0).Rows(0)(2)
                nom_cliente.Text = ds.Tables(0).Rows(0)(3)
                direc_cliente.Text = ds.Tables(0).Rows(0)(4)
                fono_cliente.Text = ds.Tables(0).Rows(0)(10)
                correo_cliente.Text = ds.Tables(0).Rows(0)(13)
                rubro_cliente.Text = ds.Tables(0).Rows(0)(17)
                com_est_cliente.Text = ds.Tables(0).Rows(0)(19)
                fecha_ing_cliente.Text = ds.Tables(0).Rows(0)(20)
                Actualizar.Focus()
            End If
            Connection.Close()
        Else
            MsgBox("Ingrese un ID para la busqueda")
            id_cliente.Focus()
        End If
    End Sub
Solo el Bueno muere joven...

ing_marco

  • Miembro MUY activo
  • ***
  • Mensajes: 263
    • Ver Perfil
Re: Simular Enter
« Respuesta #1 en: Martes 30 de Octubre de 2007, 14:25 »
0
Pues tendrias que poner todo el codigo del boton dentro de una funcion o procedimiento y llamarla tanto en la caja de texto  como luego de traer los datos.

Deberia funcionar.
MARCO DIAZ
Ing_Marco
Bachiller Ing de Sistemas.
UNT
Trujillo-Peru