Új hozzászólás Aktív témák

• #1365 #90999040 törölt tag dani850430 #1364

  Új Válasz 2011-03-29 14:14:44 #1365

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  #90999040

  törölt tag

  válasz dani850430 #1364 üzenetére

  Ha csak 1-szerű sorbarendezést szeretnél:

  Private Sub Command2_Click()
  Dim rendezendoe As Boolean
  Dim szamlalo As Integer
  Dim temp As String
  Do
  rendezendoe = False
  For szamlalo = 0 To List1.ListCount - 2
  If (List1.List(szamlalo) > List1.List(szamlalo + 1)) Then
  rendezendoe = True
  temp = List1.List(szamlalo)
  List1.List(szamlalo) = List1.List(szamlalo + 1)
  List1.List(szamlalo + 1) = temp
  End If
  Next
  Loop Until rendezendoe = False
  End Sub

Új hozzászólás Aktív témák