comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Proceso Inverso: Ordenar los Numeros de un TextBox en forma Descendente

  • 0 Respuestas
  • 1689 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Conectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5380
  • Actividad:
    81.67%
  • Reputación 31
  • ANTRAX
    • Ver Perfil
    • Underc0de
    • Email
  • Skype: underc0de.org
  • Twitter: @Underc0de
« en: Julio 26, 2010, 12:34:30 pm »
Código: Visual Basic
  1. Function SearchNumbers(ByVal lNumber As String) As String
  2. Dim UlParada As Long
  3. UlParada = 1
  4. Do
  5. b = InStr(UlParada, Text1, lNumber)
  6. If b > 0 Then
  7. SearchNumbers = SearchNumbers & lNumber
  8. End If
  9. UlParada = b + 1
  10. Loop While b > 0
  11. End Function
  12. Private Sub Text1_Change()
  13. Texto = SearchNumbers("9")
  14. Texto = Texto & SearchNumbers("8")
  15. Texto = Texto & SearchNumbers("7")
  16. Texto = Texto & SearchNumbers("6")
  17. Texto = Texto & SearchNumbers("5")
  18. Texto = Texto & SearchNumbers("4")
  19. Texto = Texto & SearchNumbers("3")
  20. Texto = Texto & SearchNumbers("2")
  21. Texto = Texto & SearchNumbers("1")
  22. Texto = Texto & SearchNumbers("0")
  23. Text1.Text = Texto
  24. End Sub
« Última modificación: Mayo 12, 2014, 03:15:07 pm por Expermicid »


 

¿Te gustó el post? COMPARTILO!



Buscar archivos en forma avanzada usando funciones API

Iniciado por ANTRAX

Respuestas: 1
Vistas: 1589
Último mensaje Julio 28, 2010, 12:40:43 am
por Ignaro mayor de BsAs
Otra forma de crear DSN, modificarlo y eliminarlo

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1408
Último mensaje Julio 26, 2010, 03:54:52 pm
por ANTRAX
Como ingresar solo numeros en un campo de texto

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1357
Último mensaje Julio 26, 2010, 10:24:49 am
por ANTRAX
Solo numeros en un Texbox

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1353
Último mensaje Julio 26, 2010, 11:15:30 am
por ANTRAX
Proceso repetido, finalizar hasta dejar uno solo

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1361
Último mensaje Julio 26, 2010, 01:48:37 pm
por ANTRAX