Programación General > Visual Basic 6.0 e inferiores

 Seleccionar Todos

(1/2) > >>

sircuit:
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

Vlady:
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.

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...
--- Fin de la cita ---


--- Código: Text ---Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then    Text2.SetFocusEnd IfEnd Sub 
La segunda sino se como pueda ser.

sircuit:

--- 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...
--- Fin de la cita ---

--- Código: Text ---Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then    Text2.SetFocusEnd IfEnd Sub 
La segunda sino se como pueda ser.
--- Fin de la cita ---
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

ArKaNtOs:
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 IfEnd IfEnd Sub  
para el segundo si te entendi bien seria algo asi:


--- Código: Text --- Dim veces As BytePrivate Sub Command1_Click()Randomizex = Rnd() * Len(Text1)x=Round(x)If x = 0 Then x = 1If 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 + 1NextMsgBox Mid(Text1, x, 1) & " " & vecesList1.AddItem Mid(Text1, x, 1)veces = 0End Sub  
espero y te funcionen, bye  :kicking:   ;)

Navegación

[0] Índice de Mensajes

[#] Página Siguiente