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

Iniciado por ANTRAX, Julio 26, 2010, 12:34:30 PM

Tema anterior - Siguiente tema

0 Miembros y 6 Visitantes están viendo este tema.

Julio 26, 2010, 12:34:30 PM Ultima modificación: Mayo 12, 2014, 03:15:07 PM por Expermicid
Código: vb
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