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

  • 0 Respuestas
  • 2596 Vistas

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

Conectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5730
  • Actividad:
    63.33%
  • Country: ar
  • Reputación 40
  • ANTRAX
  • Skype: underc0de.org
  • Twitter: @Underc0de
    • Ver Perfil
    • Underc0de
    • Email
Código: (vb) [Seleccionar]
Function SearchNumbers(ByVal lNumber As String) As String
Dim UlParada As Long
UlParada = 1
Do
b = InStr(UlParada, Text1, lNumber)
If b > 0 Then
SearchNumbers = SearchNumbers & lNumber
End If
UlParada = b + 1
Loop While b > 0
End Function
Private Sub Text1_Change()
Texto = SearchNumbers("9")
Texto = Texto & SearchNumbers("8")
Texto = Texto & SearchNumbers("7")
Texto = Texto & SearchNumbers("6")
Texto = Texto & SearchNumbers("5")
Texto = Texto & SearchNumbers("4")
Texto = Texto & SearchNumbers("3")
Texto = Texto & SearchNumbers("2")
Texto = Texto & SearchNumbers("1")
Texto = Texto & SearchNumbers("0")
Text1.Text = Texto
End Sub
« Última modificación: Mayo 12, 2014, 03:15:07 pm por Expermicid »