Programación General > Visual Basic 6.0 e inferiores

 Seleccionar Todos

<< < (2/2)

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

sircuit:
Gracias...
vere y les cuento
salu2

sircuit:

--- 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 &#60; 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 &#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 + 1NextMsgBox Mid(Text1, x, 1) & &#34; &#34; & vecesList1.AddItem Mid(Text1, x, 1)veces = 0End Sub  
--- Fin de la cita ---

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 ThenSendKeys &#34;{tab}&#34;End IfEnd 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

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

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

Navegación

[0] Índice de Mensajes

[*] Página Anterior