09/06/2005, 13:50
|
 | Moderador | | Fecha de Ingreso: abril-2005 Ubicación: In this planet
Mensajes: 15.720
Antigüedad: 19 años, 9 meses Puntos: 839 | |
| Ordenar Números de un TextBox en Forma Ascendente
Código:
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("0")
Texto = Texto & SearchNumbers("1")
Texto = Texto & SearchNumbers("2")
Texto = Texto & SearchNumbers("3")
Texto = Texto & SearchNumbers("4")
Texto = Texto & SearchNumbers("5")
Texto = Texto & SearchNumbers("6")
Texto = Texto & SearchNumbers("7")
Texto = Texto & SearchNumbers("8")
Texto = Texto & SearchNumbers("9")
Text1.Text = Texto
End Sub
|