Imprimir Página - Seleccionar Todos

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: sircuit en Miércoles 2 de Febrero de 2005, 22:56

Título: Seleccionar Todos
Publicado por: sircuit en Miércoles 2 de Febrero de 2005, 22:56

Buenas
saben que tengo DOS dudaS

1.- tengo varios textboxs, quiero en que cada uno de ellos, al presionar la tecla enter (solo de ejmplo ya que puede ser cualquier evento) o 13(ascii) me realize alguna accion, por ejemplo de bajar al proximo text box...

pd: si no entiendieron muy bien mi idea solo expliquen como seleccionar varios objetos para realizar alguna accion determinada :lol:

2.- hay un label - tengo una palabra dentro de una variable - y que en el, al presionar un boton, me aparesca algun caracter de la cadena de la variable ... algo asi como un ahorcado y si la letra se repite que aparesca la cantidad de veces que se hace presente en el lugar correspondiente del label...

salu2

Título: Re: Seleccionar Todos
Publicado por: Vlady en Miércoles 2 de Febrero de 2005, 23:14

Si no me equivoco, nesecitas hacer una matriz de controles con esos textbox y seleccionar sus indices uno despues del otro :comp:
La proxima te mando un ejercicio
Espero haberte ayudado...Vlady.

Título: Re: Seleccionar Todos
Publicado por: RadicalEd en Jueves 3 de Febrero de 2005, 16:03

Citar

1.- tengo varios textboxs, quiero en que cada uno de ellos, al presionar la tecla enter (solo de ejmplo ya que puede ser cualquier evento) o 13(ascii) me realize alguna accion, por ejemplo de bajar al proximo text box...

Código: Text

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    Text2.SetFocus
End If
End Sub
 

La segunda sino se como pueda ser.

Título: Re: Seleccionar Todos
Publicado por: sircuit en Jueves 3 de Febrero de 2005, 16:54

Cita de: "RadicalEd"

Citar
1.- tengo varios textboxs, quiero en que cada uno de ellos, al presionar la tecla enter (solo de ejmplo ya que puede ser cualquier evento) o 13(ascii) me realize alguna accion, por ejemplo de bajar al proximo text box...
Código: Text
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub

La segunda sino se como pueda ser.

claro ahi serviria solo para el text1 pero lo que quiero es para todos y no tener que escribir en cada uno esas lineas... yo creo que puede ser por lo que dice el amigo arriba de una matriz o no ? :unsure:

salu2

Título: Re: Seleccionar Todos
Publicado por: ArKaNtOs en Jueves 3 de Febrero de 2005, 18:13

hola la parte uno seria algo asi

Código: Text

 
Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
If KeyAscii = 13 Then
    If Index &#60; 3 Then 'Ejemplo para 4 text
        Text1(Index + 1).SetFocus
    End If
End If
End Sub
 
 

para el segundo si te entendi bien seria algo asi:

Código: Text

 
Dim veces As Byte
Private Sub Command1_Click()
Randomize
x = Rnd() * Len(Text1)
x=Round(x)
If x = 0 Then x = 1
If x &#62; Len(Text1) Then x = Len(Text1)
For a = 0 To List1.ListCount - 1
    If List1.List(a) = Mid(Text1, x, 1) Then veces = veces + 1
Next
MsgBox Mid(Text1, x, 1) & &#34; &#34; & veces
List1.AddItem Mid(Text1, x, 1)
veces = 0
End Sub
 
 

espero y te funcionen, bye :kicking: ;)

Título: Re: Seleccionar Todos
Publicado por: Widark en Jueves 3 de Febrero de 2005, 18:36

Hola sircuit.

Para la primera parte debes, utiliza el TabIndex de los textos y ponlos consecutivos, es decir el TabIndex del Text1 seria 1, el TabIndex del Text2 seria 2 y así sucesivamente, luego haces esto

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys "{tab}"
End If
End Sub

seria para cada texto a menos que crees una matriz con ellos, espero te sirva

Título: Re: Seleccionar Todos
Publicado por: sircuit en Jueves 3 de Febrero de 2005, 20:16

Gracias...
vere y les cuento
salu2

Título: Re: Seleccionar Todos
Publicado por: sircuit en Jueves 3 de Febrero de 2005, 20:18

Citar

hola la parte uno seria algo asi
Código: Text

Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
If KeyAscii = 13 Then
If Index < 3 Then 'Ejemplo para 4 text
Text1(Index + 1).SetFocus
End If
End If
End Sub

para el segundo si te entendi bien seria algo asi:

Código: Text

Dim veces As Byte
Private Sub Command1_Click()
Randomize
x = Rnd() * Len(Text1)
x=Round(x)
If x = 0 Then x = 1
If x > Len(Text1) Then x = Len(Text1)
For a = 0 To List1.ListCount - 1
If List1.List(a) = Mid(Text1, x, 1) Then veces = veces + 1
Next
MsgBox Mid(Text1, x, 1) & " " & veces
List1.AddItem Mid(Text1, x, 1)
veces = 0
End Sub

gracias por los ejemplos pero el code uno me tiro un error de manera que me salto una msgbox que habia un error al declarar pero me imagino que funciona siempre y cuando se este en el primer textbox o no ? y el segundo esta re bueno pero tengo que practivar para hacer algunos ajustes....

una cosa.... que significa esa declaracion como index ? es que toy aprendiendo :D

Código: Text

 Hola sircuit.
 
Para la primera parte debes, utiliza el TabIndex de los textos y ponlos consecutivos, es decir el TabIndex del Text1 seria 1, el TabIndex del Text2 seria 2 y así sucesivamente, luego haces esto
 
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys &#34;{tab}&#34;
End If
End Sub
 
seria para cada texto a menos que crees una matriz con ellos, espero te sirva
 

gracias pero la verdad, como soy nuevito me puede explicar eso del Tabindex ?

gracias a todos

Título: Re: Seleccionar Todos
Publicado por: ArKaNtOs en Viernes 4 de Febrero de 2005, 00:12

Hola Sircuit no te preocupes todos estuvimos asi alguna vez, por lo que dices del 1 si te debe funcionar, mejor te lo mando en zip para que lo cheques oki :) :kicking:

Título: Re: Seleccionar Todos
Publicado por: sircuit en Sábado 5 de Febrero de 2005, 22:59

ooo si man
muchas gracias
me ahorraste unas cuantas lineas hehe
salu2

SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: sircuit en Miércoles 2 de Febrero de 2005, 22:56