Página 1 de 1

TexBox en VB

Publicado: Vie Jul 06, 2007 7:38 pm
por Invitado
Hola a todos!!Soy nuevo en el foro y me gustaria hacer dos preguntas, pensaran que son muy tontas, pero llevo poco tiempo con programacion.
Alla van las preguntas. La primera es:
Tengo varios TexBox y me gustaria que al terminar de rellenar uno (tiene dos caracteres maximo) saltase al siguiente sin tener que pulsar intro ni nada.

La segunda es:

Teniendo dos TexBox diferentes, como podria hacer para que al escribir algo en uno, se escribiese lo mismo automaticamente en el otro.

Espero me puedan responder. Muchas gracias por adelantado y un saludo.

Publicado: Vie Jul 06, 2007 9:41 pm
por EPICA
Imagen

cualquier otra duda aquí estamos :wink:

Publicado: Vie Jul 06, 2007 10:37 pm
por jotahacker
Muchas gracias EPICA!! Me has sido de gran ayuda!!
Un saludo!

Publicado: Sab Jul 07, 2007 11:34 am
por jotahacker
Hola de nuevo!
Sigo con el problema de pasar de un TextBox a otro. Con el codigo que me copio EPICA no he conseguido hacer nada, siempre me da algun fallo de sintaxis. Les facilito el codigo del TextBox que tengo por defecto por si les facilita:

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged


End Sub


Por favor, diganme que codigo debo introducir para que me salte de uno a otro sin presionar ninguna tecla.
El otro codigo si me sirvio EPICA, muchas gracias de nuevo.

Saludos.

Publicado: Sab Jul 07, 2007 11:06 pm
por EPICA
que versión de Visual utilizas? porque yo te la di como si fuera la versión 6 :roll: y me temo que usas el Visual.NET

Publicado: Dom Jul 08, 2007 12:28 am
por jotahacker
Uso Visual Basic 2005 express, xro se poco mas,porque soy muy nuevo :roll:

Publicado: Dom Jul 08, 2007 6:28 am
por Carola77
hola
Mira por lo que vi en tu ejercicio es como si fuera un procedimiento o una funcion porque esta entregando un resultado al final del texto principal.

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
mira prueba lo siguiente
cuando entres al formulario ve a donde dice texto y selecciona la propiedad CHANGE
y prga dentro el codigo que te dio epica y veras que funciona, todo debes hacerlo en la parte de programacion no en diseño.
o por ultimo consulta en la ayuda de microsoft las caracteristicas de el CHANGE y los ejercicios que trae.
SUERTE :twisted:

Publicado: Dom Jul 08, 2007 5:53 pm
por jotahacker
Muchas gracias a los dos!! Ya lo consegui, era muy simple, lo unico que soy un novato... :lol:
Bueno, gracias de nuevo y un saludo a todos!!

PORFIS SI ALGUIN ME DIJIERA UN TRUCO SOBRE FORMS

Publicado: Sab Jul 14, 2007 3:51 am
por Batusai
8) SOLO KIERO SABER COMO LOGRAR UN SUMBIDO O MOVIMIENTO A MI FORM O CUANDO EJECUTE O LO LLAME :P LES AGRADECERIA MUUCHO

Re: PORFIS SI ALGUIN ME DIJIERA UN TRUCO SOBRE FORMS

Publicado: Mié Ago 15, 2007 4:03 pm
por gon
Batusai escribió:8) SOLO KIERO SABER COMO LOGRAR UN SUMBIDO O MOVIMIENTO A MI FORM O CUANDO EJECUTE O LO LLAME :P LES AGRADECERIA MUUCHO

Simplemente, agregar un Botón (Command1)! ;)

Código: Seleccionar todo

Private Sub Command1_Click()
    Call HacerZumbido
End Sub

Private Sub HacerZumbido()

    ' Declaramos Variables
    Dim x As Integer
    Dim y As Integer
    Dim AmplitudAncho As Integer
    Dim AmplitudAlto As Integer
    
    ' Configuramos
    AmplitudAncho = 300
    AmplitudAlto = 300
    
    ' Hacemos el Zumbido
    For x = 1 To 100
        For y = 1 To 4
            If y = 1 Then Me.Move Me.Left - AmplitudAncho, Me.Top - AmplitudAlto
            If y = 2 Then Me.Move Me.Left + AmplitudAncho, Me.Top - AmplitudAlto
            If y = 3 Then Me.Move Me.Left + AmplitudAncho, Me.Top + AmplitudAlto
            If y = 4 Then Me.Move Me.Left - AmplitudAncho, Me.Top + AmplitudAlto
            
            Call Pausa  ' Efectuamos una pausa de milisegundos, para limpiar la pantalla
        Next
    Next
    
End Sub

Public Sub Pausa()

    ' Declaramos Variables
    Dim Comenzar
    Dim Controlar

    ' Configuramos
    Comenzar = Timer

    ' Una pausa de 0.001 milisegundos, permitiendo ejecutar eventos
    Do Until Controlar >= Comenzar + 0.001
        Controlar = Timer
        DoEvents
    Loop

End Sub
Saludos,
Gonzalo