Örnegin elinizde 5 adet Text Box var ve bunların textlerindeki numaraları sıralamak isriyorsunuz....
Kod asagıda fakat bu kodu kullanırken Private Sub Text1_Change() .... kullanmamaya özen gösterin çünkü numaralar o zaman sıralanmayacaktır..Çünkü kodun çalısma ilkesi ile bu ters düsecek..Ayrıca bu kod sanırım TExt Boxlardaki degerlerin sıralanması için yazılabilecek basit kodlardan hadi kolay gelsin...
Private Sub Command1_Click()
'Burada formunuzda sıralanmasını istediginiz TEXTBOx kadar Numberlist tanımlayın
Dim NumberList(4) As Integer
NumberList(0) = CInt(Text1.Text)
NumberList(1) = CInt(Text2.Text)
NumberList(2) = CInt(Text3.Text)
NumberList(3) = CInt(Text4.Text)
NumberList(4) = CInt(Text5.Text)
For j = 0 To 4
For i = 0 To 3
If NumberList(i) > NumberList(i + 1) Then
temp = NumberList(i)
NumberList(i) = NumberList(i + 1)
NumberList(i + 1) = temp
End If
Next i
Next j
'simdi bu number listleri sırasıyla TEXT BOX lara yerlestirin
Text1.Text = NumberList(0)
Text2.Text = NumberList(1)
Text3.Text = NumberList(2)
Text4.Text = NumberList(3)
Text5.Text = NumberList(4)
End Sub
